[求助]lisp语言怎样把已绘制的实体放到指定的图层上？

mycad

请教高手：

lisp语言怎样把已绘制的实体放到指定的图层上？

谢谢赐教！！

Andyhon

Many ways

(command "chprop" ss "" "LA" myLayer "")

....

mycad

好像不行吗？高手帮忙调试一下图层处理的程序

;;选择实体放入当前层的图从
(DEFUN C:CX ()
  (setq m:err *error* *error* *merr*)
  (setvar "cmdecho" 0)
  (setq la (getvar "clayer"))
  (princ "Please select Object change to current layer: \n")
  (setq ss (ssget))
  (if (= ss nil)
    (princ "0 Object change to current layer.")
    (progn
      (setq Num (sslength ss))
      (command ".chprop" ss "" "la" JMD "")
      (princ Num)
      (princ " Object change to current layer.")
    )
  )
  (setvar "cmdecho" 1)
  (setq *error* m:err m:err nil)
  (princ)
)

Andyhon

(setq la (getvar "clayer"))
...
      (command ".chprop" ss "" "la" JMD "")
===>
      (command ".chprop" ss "" "la" la "")

mycad

可以的，谢谢Andyhon！！！！