处理自交的多段线
(defun c:xdtb_plreselfcross (/ ss)
(if (setq ss (xdrx-ssget
(xdrx-string-multilanguage
"\n选择要处理的多段线<退出>:"
"\nSelect polylines to process <Exit>:"
)
'((0 . "*polyline"))
)
)
(progn
(xdrx-polyline-removeselfcrossing ss)
)
)
(princ)
)
页:
[1]