Jully 发表于 2011-4-19 19:41:29

AutoCAD中能把一个图层上的对象复制到另一个图层上吗？

AutoCAD中能把一个图层上的对象复制到另一个图层上吗？一个对象只能在一个图层上吗？

http://space.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 Jully的微博

fangseng 发表于 2021-8-20 18:36:54

请试一下这个
(defun c:Acv ()
(SETQ BL123 (getvar "OSMODE"))
(command "ucs" "w" )
(COMMAND "OSMODE" 16384 )
(print "提示；先选要复制的图元，再选图层标签" )
(setq ww (ssget))
(SETQ jo (sslength ww))
获取图元所在的图层名的文本
(setq gg (ssget '((0 . "Text,Mtext,LINE,CIRCLE,"))))
(setq no (sslength gg))
(setq k 0)
(while (<= k (- no 1))
(setq tu (ssname gg k))
(setq wo (cdr (assoc 8 (entget tu))))
(setq n 0)
(while (<= n (- jo 1))
(setq wood (ssname ww n))
(command "copy" wood "" '(0 0) '(0 0))
(setq woodk (entlast))
(command "change" woodk "" "p" "LA" wo "")
(setq n (+ 1 n))
)
(setq k (+ 1 k))
)
(command "ucs" "W")
(command "osmode" 53)
(command "erase" ww "")
(setq p1 nil p2 nil tu nil oc nil sel nil)
)

Gu_xl 发表于 2011-4-19 19:47:16

回复 Jully 的帖子

先复制，后修改图层！

Jully 发表于 2011-4-19 20:07:39

回复 Gu_xl 的帖子

那原图层上还有这个对象吗？

Gu_xl 发表于 2011-4-19 20:27:25

回复 Jully 的帖子

是复制！不是修改！当然还有啦！

lenlenq 发表于 2011-4-19 20:31:04

Jully 发表于 2011-4-19 20:07 static/image/common/back.gif
回复 Gu_xl 的帖子

那原图层上还有这个对象吗？

还有。只是复制。

Jully 发表于 2011-4-19 21:06:53

很不好意思，在图层0上我画了一个图形，再复制到图层1上时，看复制的新图形属性，其还是图层0.图层1上没有对象。

能否编写个lisp程序？

Andyhon 发表于 2011-4-19 21:16:19

(command "chprop" ss "" "La" "1" "")

Jully 发表于 2011-4-19 21:26:24

回复 Andyhon 的帖子

这只是改变了对象的图层，原图层上没有了这个对象

Andyhon 发表于 2011-4-19 21:29:16

您得先作 复制 呀!

Jully 发表于 2011-4-19 21:37:37

这样周折复杂，本以为有简单的方法
页: [1] 2
查看完整版本: AutoCAD中能把一个图层上的对象复制到另一个图层上吗？