Question

autocad中如何使用autolisp把图层a上面的某个文字复制到图层b上?

求相关的lisp代码!

Answer 1

(defun c:test()
(setq ss (ssget))
(command "copy" ss "" "non" "0,0" "non" "0,0")
(command "chprop" ss "" "layer" "图层b" "")
)

追问

non 是什么意思?

追答

non指临时关闭捕捉。
与在命令行上输入无异。
如果有大量的点输入
可以在程序开始时统一用(setvar "osmode" 0)关闭捕捉