burst lisp unknown command

[Anonymous]

Trying to create a simple selection set and burst that set.

Acad wont recognize burst when I include it in a (command "burst"). Why I do not know. Can you guys help me sort this code out?

(defun c:burstplid ( / pl)
  (setq pl (ssget "A" '((8 . "PL_ID"))))
    (command "._burst" pl)
  (princ)
)

I saw some post about adding a short command BB to acad.pgp, but that didn't seem to work (or maybe I  messed up the code).

Sincerely,

Fredrik

[hmsilva · Accepted solution]

Hi Fredrik, try

(defun c:burstplid (/ pl)
    (if (setq pl (ssget "A" '((8 . "PL_ID"))))
        (progn
            (sssetfirst nil pl)
            (c:burst)
        )
    )
    (princ)
)

Hope this helps,
Henrique