LISP: How to get all style-names from STB-file?

Hello everybody,

Using the command:
-layer > pstyle > ?
it is possible to list all the style-names in the current STB-file. However, there doesn't seem to be a way to get this information using lisp. The code below comes close but it only lists the names of the styles used in the current dwg. Is there a way to get all the style-names using lisp? In theory I could start a log-file and read the info from the -layer command using that, but that method seems ugly and too cumbersome.

Regards, Roy.

(defun GetAllPstyleNames ( / lst)
(foreach item (dictsearch (namedobjdict) "ACAD_PLOTSTYLENAME")
(if (= (car item) 3)
(setq lst (cons (cdr item) lst))
)
)
lst
)


 

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. Click one of the buttons on the top bar to get involved!