Topic: [XDrX-PlugIn(76)] Arc to polyline

[xdcad]

GIS software does not have arcs and requires polyline fitting

Code: [Select]

(defun c:xdtb_arc2pl (/ ss x pts pl)
  (xdrx-begin)
  (if (not #xd-var-global-xiangaodist)
    (setq #xd-var-global-xiangaodist (/ (xd::doc:getpickboxheight) 3.0))
  )
  (if (setq
tol (getreal (xdrx-prompt
       (xdrx-string-formatex
(xdrx-string-multilanguage
   "\n输入玄高距<%.2f>"
   "\nEnter the chord height distance<%.2f>"
)
#xd-var-global-xiangaodist
       )
       t
     )
    )
      )
    (setq #xd-var-global-xiangaodist tol)
  )
  (if (setq ss (xdrx-ssget
(xdrx-string-multilanguage
   "\n选择弧线段<退出>:"
   "\nSelect arc segment<Exit>:"
)
'((0 . "circle,arc,*polyline,ellipse"))
       )
      )
    (progn
      (mapcar '(lambda (x)
(setq pts (xdrx-curve-getsamplepoints
     x
     #xd-var-global-xiangaodist
   )
)
(setq pl (xdrx-polyline-make pts))
(if (xdrx-curve-isclosed x)
   (xdrx-curve-setclosed pl)
)
(xdrx-entity-matchprop x pl)
(xdrx-object-swapid x pl)
(xdrx-entity-delete pl)
       )
      (xdrx-ss->ents ss)
      )
    )
  )
  (xdrx-end)
  (princ)
)