[求助]：如何将ellipse及spline所绘声绘制的图形转换为arc线段

啵浪鼓

现遇到一些麻烦,许多客户将所绘制的产品图用ellipse及spline线段制成,这样无法进行后续的加工制作,用超级打断亦会出现许多的小线段且棱角分明,这种方法行不通!!!

请教高手如何将ellipse及spline所绘声绘制的图形转换为arc线段
或者如何将此转化动作做成lisp程序来完成呢?

ljpnb

可以将ellipse的每一小段画一段ARC，比如将一个完整的ellipse转化成N等分的ARC，在椭圆上取点来画圆弧，这个可以用程序办到

啵浪鼓

具体要怎样写这个程序呢,我不懂

ljpnb

先问一声楼主用的是什么版本，最好是R2004以上的。

啵浪鼓

我用的是R2002版CAD软件

ljpnb

对曲率变化比较大的可能误差比较大

(defun c:test ()
  (vl-load-com)
  (setq os (getvar "osmode"))
  (setq curve-ent (car (entsel "\n选择椭圆或是样条曲线:")))
  (setq obj (vlax-Ename->Vla-Object curve-ent))
  (setq
    len        (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj))
  )
  (setq        n 40 ;_这个N的值可以根据需要相应的加大或减小
        k (/ n 2)
  )
  (setq len0 (/ len n))
  (setq p1 (vlax-curve-getStartPoint obj))
  (setq p2 (vlax-curve-getPointAtDist obj len0))
  (setq p3 (vlax-curve-getPointAtDist obj (* len0 2)))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (command "undo" "g")
  (command "arc" p1 p2 p3)
  (setq i 3)
  (repeat (1- k)
    (setq p1 p3)
    (setq p2 (vlax-curve-getPointAtDist obj (* len0 i)))
    (setq i (1+ i))
    (setq p3 (vlax-curve-getPointAtDist obj (* len0 i)))
    (setq i (1+ i))
    (command "arc" p1 p2 p3)
  )
  (command "undo" "E")
  (setvar "osmode" os)
  (setvar "cmdecho" 1)
)

啵浪鼓

哦,知道了,谢谢楼上的大哥