椭圆（弧）转换为多段线弧（非直线模拟）

YMCUI

楼主能否增加样条曲线转多段线弧

pxr201419

老贴顶一下，学习学习

pxr201419

大师好作品，可惜初学，好多函数都看不懂。发个另类的椭圆转多线段的程序供测试，虽然用处不大
(defun c:tzd()
        (setq ee (car (entsel "\n选择椭圆：")))
        (setq st (entget ee))
        (setq p1 (cdr (assoc 10 st)) x1 (car p1) y1 (car (cdr p1)))
        (setq p2 (cdr (assoc 11 st)) x2 (car p2) y2 (car (cdr p2)))
        (setq pt2 (list (- x1 x2)(- y1 y2)))                                ;长轴的一个端点
        (setq pt1 (list (- (* 2 x1) (- x1 x2))(- (* 2 y1) (- y1 y2))))        ;长轴的另一端点
        (command "line" p1 pt2 "")
        (setq e1 (entlast))
        (command "rotate" e1 "" p1 90)
        (setq pt3 (vlax-invoke (vlax-ename->vla-object ee)'IntersectWith (vlax-ename->vla-object e1) 0));短轴的一端
        (entdel ee)(entdel e1)
        (SETVAR "PELLIPSE" 1)                        ;改系统变量PELLIPSE为1
        (command "ellipse" pt1 pt2 pt3)                ;画椭圆
        (command "pedit" (entlast) "")
        (SETVAR "PELLIPSE" 0)
        (princ)
  )