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

meflying · 发表于 2003-12-10 17:41:00

(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 · 发表于 2003-12-10 17:48:00

谢谢，meflying，真不错

秋枫 · 发表于 2003-12-10 19:53:00

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

shicai · 发表于 2003-12-11 05:05:00

去除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-11 08:13:00

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

BDYCAD · 发表于 2003-12-11 08:25:00

5樓少了個")"號..

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

发表回复

精选推荐