용량 줄이는 리습 2013에서는 잘 쓰다가 2014에서 쓰려니
오류: 잘못된 인수 유형: VLA-object 컬렉션: #<VLA-OBJECT 00000000afb94948>
이런 오류가 뜹니다.
왜 그러는 걸 까요?
고수님들 도와주세요~
(defun c:as ( / f )
(vlax-for d (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object)))
(setq f nil)
(if
(and
(vlax-property-available-p d ‘count)
(vlax-property-available-p d ‘name)
(= (vla-get-name d) “ACAD_DGNLINESTYLECOMP”)
(setq f t)
)
(vlax-for o d
(vl-catch-all-apply ‘vla-delete (list o))
)
)
(if f (vl-catch-all-apply ‘vla-delete (list d)))
)
(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
)