중첩된 블록 한번에 깨는 리습 도움요청이요..
-
게시물 수정 , 삭제는 로그인 필요
다중 삽입된 블록 한번에 깨는 리습 구하다가 인터넷에 떠도는걸 발견하긴했는데 블록을 누르면 단계를 선택하게 하는게 아니라 지혼자 쭉넘어가더니 변한거 없이 그대로 있습니다.
혹시 뭐가 잘못된건지 좀 봐주세요.... 아니면 잘되는 블럭한번에깨는 리습 나눠주시면 정말 감사하겠습니다.
;;;
(defun c:blc (/ nam b en ss old0 os blss bname blp old70 old10 old8 old41 old50 ent tempindex index entlists insp tbp1 tbp2 base10 entlist addents)
(defun dtr (a) (* pi (/ a 180.0)))
(defun rtd (a) (/ (* a 180.0) pi))
(defun dxf (n ed) (cdr (assoc n ed)))
(setq ss (entsel "\n 블럭선택 : "))
(if ss
(progn
(command "undo" "g")
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq bnam (dxf 2 (entget (car ss))))
(setq old10 (dxf 10 (entget (car ss))))
(setq old8 (dxf 8 (entget (car ss))))
(setq old50 (dxf 50 (entget (car ss))))
(setq old70 (dxf 70 (entget (car ss))))
(setq old41 (dxf 41 (entget (car ss))))
(setq bname "sampless")
(if (setq b (tblsearch "block" bnam))
(if (setq en (dxf -2 b))
(progn
(setq blp (cdr (assoc 10 b)))
(setq ent (entget en))
(entmake
(append
'((0 . "BLOCK"))
(list (cons 2 bname))
(list (cons 70 0))
(list (cons 10 blp))
)
)
(setq addents (addent ent))
(if addents
(progn
(while (setq en (entnext en))
(setq ent (entget en))
(setq addents (addent ent))
)
)
)
(setq bname (entmake '((0 . "ENDBLK"))))
(setq bname "sampless")
(setq ss (ssget "x" (list (cons 2 bnam))))
(if ss
(progn
(setq index 0)
(repeat (sslength ss)
(setq ssent (ssname ss index))
(setq ent (entget ssent))
(setq old8 (cdr (assoc 8 ent)))
(setq old10 (cdr (assoc 10 ent)))
(setq old41 (cdr (assoc 41 ent)))
(setq old42 (cdr (assoc 42 ent)))
(setq old43 (cdr (assoc 43 ent)))
(setq old50 (cdr (assoc 50 ent)))
(entdel ssent)
(entmake
(append
'((0 . "INSERT"))
(list (cons 2 bname))
(list (cons 10 old10))
(list (cons 41 old41))
(list (cons 42 old42))
(list (cons 43 old43))
(list (cons 50 old50))
)
)
(setq index (1+ index))
)
(command "purge" "b" bnam "n")
(command "rename" "b" bname bnam)
)
)
)
)
)
(command "undo" "e")
)
(setvar "osmode" os)
)
(princ)
)
(defun addent (ent / index removenum entlist tempindex)
(setq index 0)
(setq removenum (list -1 330 5))
(setq entlist nil)
(repeat (length ent)
(setq tempindex (car (nth index ent)))
(if (not (member tempindex removenum))
(progn
(setq entlist (append entlist (list (nth index ent))))
)
)
(setq index (1+ index))
)
(entmake
(append
(mapcar
'(lambda (x)
x
)
entlist
)
)
)
t
)
블록을 누르면 단계를 선택하게 하는게 아니라 지혼자 쭉넘어가더니 변한거 없이 그대로 있습니다.
혹시 뭐가 잘못된건지 좀 봐주세요.... 아니면 잘되는 블럭한번에깨는 리습 나눠주시면 정말 감사하겠습니다.
;;;
(defun c:blc (/ nam b en ss old0 os blss bname blp old70 old10 old8 old41 old50 ent tempindex index entlists insp tbp1 tbp2 base10 entlist addents)
(defun dtr (a) (* pi (/ a 180.0)))
(defun rtd (a) (/ (* a 180.0) pi))
(defun dxf (n ed) (cdr (assoc n ed)))
(setq ss (entsel "\n 블럭선택 : "))
(if ss
(progn
(command "undo" "g")
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq bnam (dxf 2 (entget (car ss))))
(setq old10 (dxf 10 (entget (car ss))))
(setq old8 (dxf 8 (entget (car ss))))
(setq old50 (dxf 50 (entget (car ss))))
(setq old70 (dxf 70 (entget (car ss))))
(setq old41 (dxf 41 (entget (car ss))))
(setq bname "sampless")
(if (setq b (tblsearch "block" bnam))
(if (setq en (dxf -2 b))
(progn
(setq blp (cdr (assoc 10 b)))
(setq ent (entget en))
(entmake
(append
'((0 . "BLOCK"))
(list (cons 2 bname))
(list (cons 70 0))
(list (cons 10 blp))
)
)
(setq addents (addent ent))
(if addents
(progn
(while (setq en (entnext en))
(setq ent (entget en))
(setq addents (addent ent))
)
)
)
(setq bname (entmake '((0 . "ENDBLK"))))
(setq bname "sampless")
(setq ss (ssget "x" (list (cons 2 bnam))))
(if ss
(progn
(setq index 0)
(repeat (sslength ss)
(setq ssent (ssname ss index))
(setq ent (entget ssent))
(setq old8 (cdr (assoc 8 ent)))
(setq old10 (cdr (assoc 10 ent)))
(setq old41 (cdr (assoc 41 ent)))
(setq old42 (cdr (assoc 42 ent)))
(setq old43 (cdr (assoc 43 ent)))
(setq old50 (cdr (assoc 50 ent)))
(entdel ssent)
(entmake
(append
'((0 . "INSERT"))
(list (cons 2 bname))
(list (cons 10 old10))
(list (cons 41 old41))
(list (cons 42 old42))
(list (cons 43 old43))
(list (cons 50 old50))
)
)
(setq index (1+ index))
)
(command "purge" "b" bnam "n")
(command "rename" "b" bname bnam)
)
)
)
)
)
(command "undo" "e")
)
(setvar "osmode" os)
)
(princ)
)
(defun addent (ent / index removenum entlist tempindex)
(setq index 0)
(setq removenum (list -1 330 5))
(setq entlist nil)
(repeat (length ent)
(setq tempindex (car (nth index ent)))
(if (not (member tempindex removenum))
(progn
(setq entlist (append entlist (list (nth index ent))))
)
)
(setq index (1+ index))
)
(entmake
(append
(mapcar
'(lambda (x)
x
)
entlist
)
)
)
t
)