还有一个问题：如何利用ActiveX技术得到所有图层的列表？

congcong

meflying

(vl-load-com)
(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))
  )
  (princ)
)

congcong

谢谢，meflying，真不错

秋枫

一事不明：

请问meflying为什么用
(repeat (- n 0)……)
这与
(repeat n ……)有何不同？

shicai

去除repeat:

(defun c:test ()
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-Acad-Object)))
  (setq lays (vla-get-layers doc))
  (vlax-for item lays
  (princ (strcat "\n" (vla-get-Name item)))
  (princ)
)

meflying

秋枫发表于2003-12-10 19:53:00一事不明：

请问meflying为什么用
(repeat (- n 0)……)
这与
(repeat n ……)有何不同？

这个函数原来是为别的程序用的，也是一些调试用，直接就拷过来了，没注意看。。。

BDYCAD

5樓少了個")"號..