Select all entities upon PlotStyleName property criteria

[lido]

Hello everybody.

Considering PSTYLEMODE=0 (use of named plot style tables), how to select with AutoLISP all entities in current working space based on PlotStyleName criteria?

 

Thank you in advance.

[marko_ribar]

Look into DXF 380 and 390 group codes...

[lido]

@marko_ribar

Thank you for your answer.

Here below are the results.

;;1
(vla-get-plotstylename(vlax-ename->vla-object(entlast)))
;;Return "Style_1"

;;2
(cdr (assoc 380 (entget (entlast))))
;;Return nil

;;3
(cdr (assoc 390 (entget (entlast))))
;;Return <ENTITY NAME: 2a253790>
;;???

 

[marko_ribar]

(defun c:selnamedpstyle-Style_1 ( / dict stename ss )
  (setq dict (dictsearch (namedobjdict) "ACAD_PLOTSTYLENAME"))
  (setq stename (cdr (assoc 350 (member '(3 . "Style_1") dict))))
  (setq ss (ssget "_X" (list (cons 390 stename) (cons 410 (getvar 'ctab)))))
  (sssetfirst nil ss)
  (princ)
)

HTH., M.R.

[lido]

@marko_ribar

Yess.

Thank you very much for your solution.