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

Roy Klein Gebbinck
Roy Klein Gebbinck
in Programming and customization

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
)