vla-put-ActiveLayer函数怎么用呢

happysheep

做一个简单的功能，选中某对象，把所在层设为当前层，用上vla-put-ActiveLayer函数，看了半天帮助文件也没弄明白

求教了

Gu_xl

1. (if (setq e (car (entsel)))
   
2.   (vla-put-ActiveLayer
   
3.     (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.     (vla-item (vla-get-layers doc)
   
5.               (cdr (assoc 8 (entget e)))
   
6.     )
   
7.   )
   
8. )

(if (setq e (car (entsel)))<br />   (vla-put-ActiveLayer<br />     (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (vla-item (vla-get-layers doc)<br />               (cdr (assoc 8 (entget e)))<br />     )<br />   )<br /> )

happysheep

Gu_xl 发表于 2014-2-28 10:57

谢谢Gu大........

linjian257

如果是某一些对象呢？？？？

亻亭用

LAYMCUR（命令）
将当前图层设定为选定对象所在的图层。

CAD自带的有这个命令...