请教!如何实现清层

songyuan

紧急！请问怎么用autoliso编写程序实现将已经设置好的图层清除？？请教陈老师、龙龙仔和其他高手！

meflying

(vl-load-com)
(defun c:dellayer(/ adoc msp ltps ltp lname)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-layers adoc))
  (setq lname (getstring "输入需要删除的图层<*>:"))
  (if (= lname "") (listlayer))
  (while (= lname "")
    (setq lname (getstring "输入需要删除的图层[List]:"))
    (if (= (strcase lname 0) "l") (progn (listlayer) (setq lname "")))
  )
  (setq ltp (vl-catch-all-apply 'vla-item (list ltps lname)))
  (if (vl-catch-all-error-p ltp)
    (princ "没有此图层！")
    (vla-delete ltp)
  )
  (princ)
)

(defun listlayer(/ adoc ltps n i ltp1)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-layers adoc))
  (setq n (vla-get-count ltps))
  (setq i 0)
  (repeat (- n 0)
    (setq ltp1 (vla-item ltps i))
    (princ "\n")
    (print (vla-get-name ltp1))
    (princ "\n")
    (setq i (1+ i))
  )
)

asen

直接运行  pu