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

spring8801

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

xyp1964

2. (defun c:tt ()
   
3.   (if (setq s1 (car (entsel "\n选择: ")))
   
4.     (command "copy"
   
5.              (ssget "X" (list (cons 8 (cdr (assoc 8 (entget s1))))))
   
6.              ""
   
7.              '(0 0)
   
8.              '(0 0)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

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

spring8801

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

非常感谢！