happysheep 发表于 2014-2-27 17:03:29

vla-put-ActiveLayer函数怎么用呢

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

求教了

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

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

happysheep 发表于 2014-2-28 11:32:42

Gu_xl 发表于 2014-2-28 10:57 static/image/common/back.gif


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

linjian257 发表于 2014-7-19 16:49:34

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

亻亭用 发表于 2014-11-1 00:33:53

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

CAD自带的有这个命令...
页: [1]
查看完整版本: vla-put-ActiveLayer函数怎么用呢