LISP Delete Block If Exists Not Working

david.faunce — Thu, 01 Feb 2018 14:17:13 GMT

I'm trying to first check to see if the block exists, then delete it. I'm getting a "error: bad SSGET list value" when I try to delete a KNOWN block that I know exists on the drawing.

What am I doing wrong? Can someone help?

;Erases a block name if it exists
;Example:   (m:eraseBlock  "PLC1FIRE")
(defun m:eraseBlock (blk / ss )
       (if (setq ss (ssget "X" (list '(0 . "INSERT") (cons 2 blk)))) )
		(progn		
			(command "_erase" ss "")
			(command "_purge" "B" blk "N")
		)		
	)
  )

Re: LISP Delete Block If Exists Not Working

ВeekeeCZ — Thu, 01 Feb 2018 14:40:22 GMT

@david.faunce wrote:

I'm trying to first check to see if the block exists, then delete it. I'm getting a "error: bad SSGET list value" when I try to delete a KNOWN block that I know exists on the drawing.

What am I doing wrong? Can someone help?
;Erases a block name if it exists
;Example:   (m:eraseBlock  "PLC1FIRE")
(defun m:eraseBlock (blk / ss )
       (if (setq ss (ssget "X" (list '(0 . "INSERT") (cons 2 blk)))) )
		(progn		
			(command "_erase" ss "")
			(command "_purge" "B" blk "N")
		)		
	)
  )

Too many parenthesis, but what if the block is in other layout then current?

(ssget) selects all the blocks across drawing, but the erase command will remove just the ones in current layout (or model)

topic LISP Delete Block If Exists Not Working in Visual LISP, AutoLISP and General Customization Forum

LISP Delete Block If Exists Not Working

Re: LISP Delete Block If Exists Not Working