[教学]：求个指令：改对象为当前图层

eobser

高手指教：
怎么把一个对象的图层改为当前图层？
一般是选对象之后再选图层
很不方便
有没有指令达到这样的效果：
指令--选择对象--空格

yangjr

不好理解：把一个对象的图层改为当前图层？一般是选对象之后再选图层
如果是：将对象的图层置为当前，有现成的命令_ai_molc（2005）。

lsjjm

将点击对象所在层设为当前层:
[PHP]
(defun c:test ()
  (setq doc (vla-get-activedocument (vlax-get-acad-object))
     layers (vla-get-layers doc))
  (cond
    ((setq ent (entsel "\nSelect object on layer to set active: "))
      (setq lay (vla-get-layer (vlax-ename->vla-object (car ent))))
      (vla-put-activelayer doc (vla-item layers lay))
    )
  )
)
[/PHP]

lvdonghua

cad 本身就有将对象图层设为当前图层按钮。
在图层工具栏内。

sunboon

_ai_molc命令不太好用，麻烦了一点，clayer可以改变当前层，挺不错的。

ziguihqp

上面几个人说得对，CAD图层管理工具栏的第一个按钮就是把选定对象的图层作为当前图层。发此贴的人一定是个初学者，先选要改图层的一些物体，再点图层下拉框，想到搬到哪个图层就搬到哪个图层，有什么不方便的？纯粹是吃饱了没事干！