[讨论]按层拷贝物体
<p></p>选择一个对象，得到其所在图层的名字，如“DM”，再框选一个范围，将该范围内该对象所在层"DM"的所有对象拷贝。此程序不能选择多个对象，得到多个对象所在不同的图层，并拷贝框选范围内所有选择对象所在的图层中的所有对象。请高手指教，如何实现选择多个对象图层的功能。;****按层拷贝物体
(defun c:cbc()
(prompt "\n\t选择目标(可多选)")
(if (setq ss (ssget)) (progn
(setq i 0 lnml "")
(repeat (sslength ss)
(setq ent (entget (ssname ss i)))
(setq i (1+ i))
(setq lnml (strcat lnml (cdr(assoc 8 ent)) (if (< i (sslength ss)) "," "")))
)
(cb)
))
(princ)
)
(defun cb()
(setvar "CMDECHO" 1)
(prompt "\n\t框选需要拷贝的范围<退出> : ")
(if (setq ss1 (ssget (list (cons 8 lnml)))) (progn
; (command ".copy" ss1 "" pause pause)
(command "copybase" pause ss1 "" pause)
(princ "\n 选中的层已经拷贝!")
))
)
<p>用选择易也可以实现</p> 用处不太大吧 不行啊。。大虾
页:
[1]