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

x_s_s_1

这个问题没看懂，什么叫复制到图层1上啊，看看这个安用不
(defun c:cp ()
  (princ "\n选择需拷贝物体：")
  (setq ss (ssget))
  (initget 1 "Bynow Input Choose")
  (setq CTRL (getkword "方式[当前(B)/输入(I)/选择(C)]： "))
  (if (= ctrl "Input")
    (setq lay (getstring "输入图层名："))
    (if        (= ctrl "Bynow")
      (setq LAY (getvar "CLAYER"))
      (setq
        LAY (cdr (assoc 8 (entget (car (entsel "选所需图层物体：")))))
      )
    )
  )
  (command "copy" ss "" "0,0" "0,0")
  (COMMAND "CHPROP" "P"        "" "LA"        lay "LT" "bylayer" "C" "bylayer" "")
  (command "move" "p" "")
)

slzlfs

express 插件里有  图层

198526

那你可以在LISP里先写一段复制再写改图层啊

lisp爱好者

198526 发表于 2011-4-23 11:57
那你可以在LISP里先写一段复制再写改图层啊

思路对的，这样比较直接
也可以先设置要复制到**图层，再复制图元

fangseng

请试一下这个
(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)
)