如何在多个多义线顶点插入块？

lewyee

本人只会编写

1. (Defun C:LS ()
   
2. 
   
3. (setq kk (entget (car (entsel))))
   
4.   (setq kk_name (cdr (assoc 2 kk)))
   
5. 
   
6. (setq objEnt (entsel "\n Select a point on a line/pline/arc... "))
   
7.       
   
8.              (setq pt (osnap (cadr objEnt) "_endp"))
   
9. 
   
10. 
    
11. (setq ss (ssget pick_point))
    
12. (setq n 0)
    
13.   (repeat (sslength ss)
    
14. 
    
15. 
    
16. (Command "insert" kk_name pt "0" "")
    
17. 
    
18. (setq n (+ 1 n))
    
19. 
    
20. )
    
21. (PRINC))

(Defun C:LS ()<br /> <br /> (setq kk (entget (car (entsel))))<br />   (setq kk_name (cdr (assoc 2 kk)))<br /> <br /> (setq objEnt (entsel "\n Select a point on a line/pline/arc... "))<br />       <br />              (setq pt (osnap (cadr objEnt) "_endp"))<br /> <br /> <br /> (setq ss (ssget pick_point))<br /> (setq n 0)<br />   (repeat (sslength ss)<br /> <br /> <br /> (Command "insert" kk_name pt "0" "")<br /> <br /> (setq n (+ 1 n))<br /> <br /> )<br /> (PRINC))

点选的，框选的不知道该如何编写？

iLisp

2. 
   
3. (defun insertBlockOnNod        (ss bname /)
   
4.   (mapcar
   
5.     '(lambda (x)
   
6.        (mapcar '(lambda        (a)
   
7.                   (xdrx_insert_make bname a 1.0 0.0)
   
8.                 )
   
9.                (xdrx_entity_getstretchpoint x)
   
10.        )
    
11.      )
    
12.     (xdrx_pickset->ents ss)
    
13.   )
    
14. )
    
15. (defun c:tt (/ ss bname)
    
16.   (if (and (setq ss (ssget '((0 . "*Polyline,arc,line"))))
    
17.            (setq bname (getstring "\nBlock Name: "))
    
18.       )
    
19.     (insertBlockOnNod ss bname)
    
20.   )
    
21.   (princ)
    
22. )

<br /> (defun insertBlockOnNod        (ss bname /)<br />   (mapcar<br />     '(lambda (x)<br />        (mapcar '(lambda        (a)<br />                   (xdrx_insert_make bname a 1.0 0.0)<br />                 )<br />                (xdrx_entity_getstretchpoint x)<br />        )<br />      )<br />     (xdrx_pickset->ents ss)<br />   )<br /> )<br /> (defun c:tt (/ ss bname)<br />   (if (and (setq ss (ssget '((0 . "*Polyline,arc,line"))))<br />            (setq bname (getstring "\nBlock Name: "))<br />       )<br />     (insertBlockOnNod ss bname)<br />   )<br />   (princ)<br /> )