spring8801 发表于 2013-10-31 20:46:23

点选或框选对象，使所选对象图层所有对象进行复制！

求CAD中，点选或框选对象，使所选对象图层所有对象进行复制的二次开发！

xyp1964 发表于 2013-11-24 10:51:23

(defun c:tt ()
(if (setq s1 (car (entsel "\n选择: ")))
    (command "copy"
             (ssget "X" (list (cons 8 (cdr (assoc 8 (entget s1))))))
             ""
             '(0 0)
             '(0 0)
    )
)
(princ)
)

spring8801 发表于 2013-12-24 12:14:19

xyp1964 发表于 2013-11-24 10:51 static/image/common/back.gif


非常感谢！
页: [1]
查看完整版本: 点选或框选对象，使所选对象图层所有对象进行复制！