[编程交流] 调试帮助-多段线顶点

(setq        ent     (car (entsel "\nselect poly:"))
vla-ent (vlax-ename->vla-object ent)
vertexs (vlax-get vla-ent 'coordinates)
n (/ (length vertexs) 2)
 ) 
 
(repeat        n
       (setq pn (list (car vertexs) (cadr vertexs)))
      vertexs (cdr (cdr vertexs))
      n (- n 1)
      lpoldata(cons pn lpoldata)
)
             

(setq i 0)
(repeat n
 (setq pt (cons (list (nth i vertexs) (nth (setq i (1+ i)) vertexs)) pt))
 (setq i (1+ i))
 )

(setq ent (car (entsel "\nselect poly:")))
(foreach point (entget ent)
 (if (eq (car point) 10)
   (setq lst (cons (list (cadr point) (caddr point)) lst))
 )
)

(setq    ent     (car (entsel "\nselect poly:"))
           vla-ent (vlax-ename->vla-object ent)
           vertexs (vlax-get vla-ent 'coordinates)
           n (/ (length vertexs) 2)
) 
(repeat    n
       (setq pn (list (car vertexs) (cadr vertexs))[b][color=red];  delete ->   [/color][/b])
                    vertexs (cdr (cdr vertexs))
                n (- n 1)
                    lpoldata(cons pn lpoldata)
       [b][color=red])[/color][/b]
)

(   (lambda ( f / e )
       (if (setq e (car (entsel)))
           (f (vlax-get (vlax-ename->vla-object e) 'coordinates))
       )
   )
   (lambda ( l )
       (if l (cons (list (car l) (cadr l)) (f (cddr l))))
   )
)

6