[求助][原创]曲线转多段线

luyu9635

最近写一个曲线转多段线的程序，但出来的效果不完美，请各位指点下，代码见附件：

luyu9635

郁闷，竟然无人问津

phoenixdjq

不知道这个有什么用

是不是只有出切割指令时候能用到

jxlsp

luyu9635发表于2008-10-26 9:46:00;|程序虽能运行,但描出来的线会比实际的短1个距离,不知为什么,请各位帮忙修改下,谢谢;

是不是因为去掉了小数的原因.

jxlsp

看下这个:

(defun c:ee () ;任意曲线变多段线一般只用于椭圆;圆弧和样条曲线
  (VL-LOAD-COM)(setvar "cmdecho" 0)
  (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
  (setq lenss (sslength ss)
 i     0 eelist '()
  )
  (repeat lenss;外循环开始
    (setq en  (ssname ss i);取得图元名
   obj (vlax-ename->vla-object en);转换为vla对象
    )
    (setq ;zc (vlax-curve-getendparam obj)
    j 1  );求得图元周长
   (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
   
    ;(setq j(- zc (fix zc)));取出周长的小数值
    (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
    (repeat (fix zc);循环周长取整次刚好到端点
      ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
      (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
    ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
      )
      (setq eelist (append eelist (list lst)));加入到点集
      (setq j (1+ j));递增1
    );内循环结束
    ;(setq eelist(reverse eelist))
    (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
    (command ".pline" "non" lst1);开始描点
    (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
    (COMMAND "");描点结束
    (setq eelist '());清空点集
    (setq i (1+ i));下一个图元
  );外循环结束
  (princ)
)

taoyangjun

能不能增加线段的控制数量啊？这样就更OK了

luyu9635

phoenixdjq发表于2008-10-27 8:28:00不知道这个有什么用是不是只有出切割指令时候能用到

对，我就是要用来对付切割的，自己改好了

taoyangjun

如果改进能切割线段数量就更加好了

ljttjl

9楼的问题也可见以下位置:

明经CAD社区 → 工程篇 → 机械工程 → [原创]任意曲线转换成多段线程序

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68784