Leader vertex

Hi

How can I modify a specific vertex (ex. 2nd) in a leader via autolisp?

Thanks

André

 

Here's a snippet from a routine I use:

(setq le (entget lname)
vtxlist '()
)
(if le
(progn
;; get the vertex points
(foreach x le
(if (= (car x) 10) ; a leader line vertex point
(setq vtxlist (cons x vtxlist))
)
)

(if (> (setq vlen (length vtxlist)) 1)
(progn
(setq
oep (car vtxlist) ; old end point field in the form (10 xxx.xx yyy.yy
zzz.zz)
okp (cadr vtxlist) ; old knee point field in the form (10 xxx.xx yyy.yy
zzz.zz)
)
nkp ;;;;insert or adjust coordinates of okp here;;;;;;;;
le (subst (cons 10 nkp) okp le) ; replace the old knee point with the
new point
)
(entmod le) ; rewrite it to the drawing
)
)

 

Thanks Allen!