Change a specific coordinate in a LWPOLYLINE in Lisp

newer

The LWPOLYLINE (or light weight polyline) will typically have multiple coordinates and it is not easy to modify these vertices. What is the easiest way to access specific coordinates in a LWPOLYLINE and modify it?

The following lisp code demonstrates an easy way. The lisp code snippet increments the Y values of the LWPOLYLINE vertices by 5 units:

1. (defun Test (e ed / i vt)
   
2.   (setq i 0)
   
3.   (repeat (length ed)
   
4.     (if        (= (car (nth i ed)) 10)                ;if item is a vertex
   
5.       (progn
   
6.         (setq vt (cdr (nth i ed)))        ; get vertex values
   
7.         (setq X (car vt))                ; get the x value
   
8.         (setq Y (cadr vt))                ; get the y value
   
9.         (setq Y (+ 5 Y))                ; increment the Y value by 5 units
   
10.                                         ; replace the old y value with the new y value
    
11.         (setq vt (subst Y (nth 1 vt) vt))
    
12.                                         ; update the entity definition with new vertex information
    
13.         (setq ed (subst (cons 10 vt) (nth i ed) ed))
    
14.         (entmod ed)                        ; update the drawing
    
15.       )                                        ;progn
    
16.     )                                        ;if
    
17.     (setq i (1+ i))
    
18.   )                                        ;repeat
    
19. )                                        ;Test
    
20. 
    
21. (defun C:MyTest        (/ e ed)
    
22.   (setq        e  (car (entsel))
    
23.         ed (entget e)
    
24.   )
    
25.   (if (= (cdr (assoc 0 ed)) "LWPOLYLINE")
    
26.     (test e ed)
    
27.   )                                        ;if
    
28. )                                        ;C:MyTest
    

(defun Test (e ed / i vt)<br />   (setq i 0)<br />   (repeat (length ed)<br />     (if        (= (car (nth i ed)) 10)                ;if item is a vertex<br />       (progn<br />         (setq vt (cdr (nth i ed)))        ; get vertex values<br />         (setq X (car vt))                ; get the x value<br />         (setq Y (cadr vt))                ; get the y value<br />         (setq Y (+ 5 Y))                ; increment the Y value by 5 units<br />                                         ; replace the old y value with the new y value<br />         (setq vt (subst Y (nth 1 vt) vt))<br />                                         ; update the entity definition with new vertex information<br />         (setq ed (subst (cons 10 vt) (nth i ed) ed))<br />         (entmod ed)                        ; update the drawing<br />       )                                        ;progn<br />     )                                        ;if<br />     (setq i (1+ i))<br />   )                                        ;repeat<br /> )                                        ;Test<br /> <br /> (defun C:MyTest        (/ e ed)<br />   (setq        e  (car (entsel))<br />         ed (entget e)<br />   )<br />   (if (= (cdr (assoc 0 ed)) "LWPOLYLINE")<br />     (test e ed)<br />   )                                        ;if<br /> )                                        ;C:MyTest<br />

/db_自贡黄明儒_

多段线组码分成三部分，就好处理了