Count Layers

역시 AI 가 코딩이라니...
대단합니다. Lisp 도사분들이 많아 웬만하면 거의 다 개발되어 있는데...
없으면 만들어 주기까지 하는 군요. google AI 대단하닷...

 

🔎 count layers in acad by lisp: Google 검색

 

(vl-load-com) ; Ensure ActiveX functions are available
(defun c:CountLayers ( / doc count)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) ; Get the active document
  (setq count (vla-get-Count (vla-get-Layers doc))) ; Get the count of layers
  (alert (strcat "There are " (itoa count) " layer(s) in the drawing.")) ; Display the result
  (princ) ; Exit the command cleanly
)

이젠 Visual Lisp으로 넘어가야 겠군요.