(defun c:xdtb_polyextend (/ e1 e2 e3 inx1 inx2 bak)
(if (and (setq e1 (xdrx-entsel (xdrx-string-multilanguage "\n拾取多段线延伸起始边<结束>:"
"\nPick Polyline Extend start Edge<Exit>:"
)
'((0 . "*polyline"))
)
)
(or (setq e2 (xdrx-entsel (xdrx-string-multilanguage "\n拾取延伸结束边<alone>:"
"\nPick Extend end Edge<Exit>:"
)
'((0 . "*polyline"))
)
)
t
)
(equal (car e1) (car e2))
)
(progn (xd::begin)
(setq inx1 (xdrx-getpropertyvalue (car e1) "onseg" (cadr e1))
inx2 inx1
)
(if e2
(setq inx2 (xdrx-getpropertyvalue (car e2) "onseg" (cadr e2)))
)
(if (setq e3 (xdrx-entsel (xdrx-string-multilanguage "\n拾取目标边<退出>:"
"\nPick Dest Edge<Exit>:"
)
'((0 . "*polyline,line,arc,circle"))
)
)
(xdrx-polyline-extend inx1 inx2 e1 e3)
)
(xd::end)
)
)
(princ)
)