No1. Business Partner
항상 고객과 함께 도약하고 발전하는 일등 기업, ㈜상상진화가 되겠습니다.
오류FAQ
(defun c:ltdel ( / acad doc blocks) ;명령어 : ltdel (원하시는 걸로 바꿔서 사용)
(vl-load-com) (setq acad (vlax-get-acad-object) adoc (vlax-get acad 'activedocument) blocks (vlax-get adoc 'blocks) ) (vlax-for block blocks (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list block))) ) (vla-purgeall adoc) (mapcar 'vlax-release-object (list acad adoc blocks)) (princ) ) |
명령: APPLOAD [엔터]
ltdel.lsp이(가) 성공적으로 로드되었습니다. |