图元原地复制变色到。原图层名加后缀

434939575

2. (defun c:tt ()        ; 图元原地复制变色到。原图层名加后缀
   
3. 
   
4.   (VL-LOAD-COM)
   
5.   (setq ss (car (entsel "\n 只能单选图元")))
   
6. 
   
7.   (setq ss-en (entget ss))
   
8. 
   
9.   (setq  AcadObject   (vlax-get-acad-object)
   
10. 
    
11.   AcadDocument (vla-get-ActiveDocument AcadObject)
    
12. 
    
13.   mSpace       (vla-get-ModelSpace AcadDocument)
    
14.   )
    
15. 
    
16.   (setq LayerSel (vla-get-Layers AcadDocument))
    
17. 
    
18. 
    
19. 
    
20.   (setq  testLayer (vla-add LayerSel
    
21. 
    
22.          (STRCAT
    
23.            (cdr (assoc 8 ss-en)
    
24. 
    
25.            )
    
26.            "--复制"
    
27. 
    
28.          )
    
29.       )
    
30.   )
    
31.   (setq mm (vla-get-Name testLayer))
    
32. 
    
33.   (command "copy" ss "" '(0 0) "")
    
34.   (command "chprop"
    
35.      (entlast)
    
36.      ""
    
37.      "la"
    
38.      (vla-get-Name testLayer)
    
39.      "C"
    
40.      "6"
    
41.      ""
    
42.   )
    
43. 
    
44. 
    
45.   (princ)
    
46. 
    
47. )
    
48. 
    

(defun c:tt ()        ; 图元原地复制变色到。原图层名加后缀<br /> <br />   (VL-LOAD-COM)<br />   (setq ss (car (entsel "\n 只能单选图元")))<br /> <br />   (setq ss-en (entget ss))<br /> <br />   (setq  AcadObject   (vlax-get-acad-object)<br /> <br />   AcadDocument (vla-get-ActiveDocument AcadObject)<br /> <br />   mSpace       (vla-get-ModelSpace AcadDocument)<br />   )<br /> <br />   (setq LayerSel (vla-get-Layers AcadDocument))<br /> <br /> <br /> <br />   (setq  testLayer (vla-add LayerSel<br /> <br />          (STRCAT<br />            (cdr (assoc 8 ss-en)<br /> <br />            )<br />            "--复制"<br /> <br />          )<br />       )<br />   )<br />   (setq mm (vla-get-Name testLayer))<br /> <br />   (command "copy" ss "" '(0 0) "")<br />   (command "chprop"<br />      (entlast)<br />      ""<br />      "la"<br />      (vla-get-Name testLayer)<br />      "C"<br />      "6"<br />      ""<br />   )<br /> <br /> <br />   (princ)<br /> <br /> )<br /> <br />