复制部分多段线

/db_自贡黄明儒_

2. 
   
3. (defun c:fff (/ CMDECHO1 N OSMODE1 P2 PET SS SS1 SS2)
   
4.   (defun GetTwoPts (ss / XY)
   
5.     (setq xy (last (ssnamex ss 0)))
   
6.     (list (last (cadr xy)) (last (cadddr xy)))
   
7.   )
   
8.   (setq CMDECHO1 (getvar "CMDECHO"))
   
9.   (setq osmode1 (getvar "osmode"))
   
10.   (setq pet (getvar "PEDITACCEPT"))
    
11. 
    
12.   (Setvar "CMDECHO" 0)
    
13.   (Setvar "osmode" 0)
    
14.   (setvar "PEDITACCEPT" 1)
    
15.   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    
16.     (progn (setq p2 (GetTwoPts ss))
    
17.     (repeat (setq n (sslength ss))
    
18.       (vl-cmdf "_.explode" (ssname ss (setq n (1- n))))
    
19.       (setq ss1 (ssget "_P"))
    
20.       (setq ss2 (ssget "W" (car p2) (cadr p2)))
    
21.       (if (and ss1 ss2)
    
22.         (progn
    
23.    (vl-cmdf "_.Select" ss1 "_Remove" ss2 "")
    
24.    (setq ss1 (ssget "_P"))
    
25.         )
    
26.       )
    
27.       (if ss1
    
28.         (command "_pedit" "_M" ss1 "" "_j" "" "")
    
29.       )
    
30.       (if ss2
    
31.         (command "_pedit" "_M" ss2 "" "_j" "" "")
    
32.       )
    
33.     )
    
34.     )
    
35.   )
    
36.   (Setvar "CMDECHO" CMDECHO1)
    
37.   (Setvar "osmode" osmode1)
    
38.   (setvar "PEDITACCEPT" pet)
    
39.   (princ)
    
40. )
    
41. 
    

<br /> (defun c:fff (/ CMDECHO1 N OSMODE1 P2 PET SS SS1 SS2)<br />   (defun GetTwoPts (ss / XY)<br />     (setq xy (last (ssnamex ss 0)))<br />     (list (last (cadr xy)) (last (cadddr xy)))<br />   )<br />   (setq CMDECHO1 (getvar "CMDECHO"))<br />   (setq osmode1 (getvar "osmode"))<br />   (setq pet (getvar "PEDITACCEPT"))<br /> <br />   (Setvar "CMDECHO" 0)<br />   (Setvar "osmode" 0)<br />   (setvar "PEDITACCEPT" 1)<br />   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />     (progn (setq p2 (GetTwoPts ss))<br />     (repeat (setq n (sslength ss))<br />       (vl-cmdf "_.explode" (ssname ss (setq n (1- n))))<br />       (setq ss1 (ssget "_P"))<br />       (setq ss2 (ssget "W" (car p2) (cadr p2)))<br />       (if (and ss1 ss2)<br />         (progn<br />    (vl-cmdf "_.Select" ss1 "_Remove" ss2 "")<br />    (setq ss1 (ssget "_P"))<br />         )<br />       )<br />       (if ss1<br />         (command "_pedit" "_M" ss1 "" "_j" "" "")<br />       )<br />       (if ss2<br />         (command "_pedit" "_M" ss2 "" "_j" "" "")<br />       )<br />     )<br />     )<br />   )<br />   (Setvar "CMDECHO" CMDECHO1)<br />   (Setvar "osmode" osmode1)<br />   (setvar "PEDITACCEPT" pet)<br />   (princ)<br /> )<br /> <br />

sicky111

看动画没看明白，怎么叫复制部分多段线？