아래의 코드를 리습 파일로 만드는 방법을 동영상으로 볼 수 있는지요?
블록을 폭파하는 것인데요.
(defun c:xx (/ ss)
(setq ss (ssget (list (cons 0 “insert”))))
(if ss (progn (ssexplode ss)))
(princ)
)
(defun ssexplode (ss / index ss2)
(setq index 0)
(repeat (sslength ss)
(setq ent (ssname ss index))
(command “explode” ent)
(if (setq ss2 (ssget “p” (list (cons 0 “insert”)))) (ssexplode ss2))
(setq index (1+ index)))
)
공유
메모장에 위 텍스트들을 복사, 붙여넣으시고 확장자를 lsp로 저장하시면 됩니다
appload 하신후 명령어 XX 하고 객체 선택하시면 됩니다~
블럭 그냥 x 로 부쉬면 되지않나요??
맞습니다
위 리습은 인서트된 블럭만 선택해서 Explode하는거네요~
감사합니다. 이제 방법을 알 것 같습니다.
원하는것이 전체 객체 중에서 인서트된 블록만 폭파하는 거였든요.
다중삽입 블록과 분해가 허용되지 않도록 정의된 블록은 폭파가 안되지만요…
혹시 이런 것들도 폭파되도록 수정이 가능한지요?
감사합니다.
x로 안되는게 있어서요