lisp插件圆弧转折线_晓东CAD家园-论坛-A/VLISP-样条曲线转圆弧-各位大神好，因为从犀牛里转出来的圆、圆弧都变成了样条曲线，所以简单的写了个样条曲线转圆、圆弧的小程序，可是在运行过程中发现...

研究了一下午，始终认为(setq splmid (vlax-curve-getPointAtParam entobj  ( / (- endparameter  stparameter) 2)) )取样条曲线中点是有问题的，换了另外一种方法解决。借用了lisphk、marting的函数和黄工的EntmakeArc，在此谢过。

(defun C:tt ()

(setvar "cmdecho" 0)

(command ".undo" "be")

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(VL-LOAD-COM)

(setq ss (ssget '((0 . "spline"))))

(setq i 0)

(repeat (sslength ss)

(progn

(setq ssn (ssname ss i))

(setq ent (entget ssn))

(setq entobj (vlax-ename->vla-object ssn))

(setq entobjlength (_getcurvelength entobj))

(setq pt1 (vlax-curve-getstartpoint entobj))

(setq pt2 (vlax-curve-getendpoint entobj))

(setq stparameter (vlax-curve-getStartParam entobj))

(setq endparameter (vlax-curve-getEndParam entobj))

(setq splmidtt (vlax-curve-