Topic: [XDrX-PlugIn(166)] Handling self-intersecting polylines

[xdcad]

Code: [Select]

(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)
)