求在CAD中快速的将已知图元变更为 当前图层的图元的AUtoLISP小程序？

Question

如题所述

Answer 1

修改图元为当前图层：

CAD操作方法

autolisp程序内容（注意是英文打字）：

;修改图元为当前图层,命令为：【XG】

(defun C:XG ( / &k1 &kw1 &ob1 &ss1 &tc1)

 (setvar "cmdecho" 0)

 (setvar "blipmode" 0)

 (if (null vlax-dump-object) (vl-load-com) )

 (setq &tc1 (getvar "clayer"))

 (if (setq &kw1 (ssget))

  (progn

   (while (setq &k1 (ssname &kw1 0))

    (setq &kw1 (ssdel &k1 &kw1))

    (setq &ob1 (vlax-ename->vla-object &k1))

    (vla-put-layer &ob1 &tc1)

   );while

  )

 )

 (princ)

)