안녕하세요.
블록 내부의 치수를 삭제하는 리습을 구하였습니다.
그런데, 제가 원하는 기능은
블록 내부의 치수를 분해하는 것입니다.
;;;—————————————————————————–;
;; 블럭안의 치수만 지우는 두가지 방법
;;;—————————————————————————–;
(defun c:Test (/ ss i sn name lst)
(vl-load-com)
;;; —— Tharwat 15. June. 2012 —– ;;;
;;; codes to delete all dimensions entities in the ;;;
;;; selected blocks ;;;
(if (not acdoc)
(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
)
(if (setq ss (ssget “_:L” ‘((0 . “INSERT”))))
(repeat (setq i (sslength ss))
(setq sn (ssname ss (setq i (1- i))))
(if (not (member (setq name (cdr (assoc 2 (entget sn)))) lst))
(progn
(setq lst (cons name lst))
(vlax-for each (vla-item (vla-get-blocks acdoc) name)
(if (wcmatch (vla-get-objectname each) “AcDb*Dimension”)
(vla-delete each))
)
)
)
)
(princ)
)
(if ss (vla-regen acdoc AcAllviewports))
(princ)
)
————-
(vla-delete each))
위 부분을
(vla-explode each))
로 변경하여 적용해보았는데
작동하지가 않습니다.
혹시 블록 내부 치수를 분해하는 방법이 있다면 조언바랍니다.