hosyn Posted September 22, 2013 Share Posted September 22, 2013 How do i can explode all blocks in drawing with lisp file?? Quote Link to comment Share on other sites More sharing options...
GP_ Posted September 22, 2013 Share Posted September 22, 2013 Try. (defun c:TesT ( / qaf a) (setq qaf (getvar 'qaflags)) (setvar 'qaflags 1) (setq a (ssget "_X" '((0 . "INSERT")))) (command "_explode" a "") (setvar 'qaflags qaf) (princ) ) See also here: http://www.cadtutor.net/forum/showthread.php?77625-explode-all-blocks Quote Link to comment Share on other sites More sharing options...
Tharwat Posted September 22, 2013 Share Posted September 22, 2013 GP , you may need to exclude the Xref blocks from the selection set and besides that if you add the if function to guarantee that the variable a is not equal to nil at last it would be great Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.