（完成）[编程申请]：能不能给大家提供一个把圆、弧、椭圆、多义线转换为SPLINE的程序

marting

谢谢晓东、EACHY、我用过你们的程序，太方便了，能不能给大家写个上面要求的程序？

eachy

用API可以很容易做到，程序会加到【晓东工具箱】，关于曲线转换的还有什么好的建议。
请先到下载中心下载最新的506版本，方可正确使用，切记！！[/SIZE] [/COLOR] [/FONT]

2. 
   
3. ;|
   
4.    命令：cur_spline
   
5.    
   
6.    功能：转换的ARC,CIRCLE,ELLIPSE,POLYLIN到spline
   
7.    
   
8.    程序配合XDRX_API build 20506＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
   
9.           LISP目录，自己加入到菜单里面就可以非常方便的使用了。
   
10.           关于程序的建议请到“晓东CAD空间-编程申请”论坛
    
11.           [url]http://www.xdcad.net/forum留言[/url]         
    
12.    
    
13. |;
    
14. (defun c:cur_spline (/ tf e ss)
    
15.   (xdrx_begin)
    
16.   (princ "\n选择要转换的ARC,CIRCLE,ELLIPSE,*POLYLINE...")
    
17.   (if (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*POLYLINE"))))
    
18.     (progn
    
19.       (setq tf (= 1 (xdrx_yesorno "\n是否删除旧实体")))
    
20.       (xdrx_setsstodb ss 0)
    
21.       (while (setq e (xdrx_getentdata 0))
    
22.              (xdrx_curve->spline e tf)
    
23.       )
    
24.     )
    
25.   )
    
26.   (xdrx_end)
    
27.   (princ)
    
28. )
    
29. 
    
30. |;
    
31. 说明：下面是核心函数的用法
    
32. xdrx_curve->spline
    
33. 
    
34. 功    能：将曲线转换成SPLINE
    
35. 
    
36. 调用格式：(xdrx_curve->spline <曲线实体名> [删除标记])
    
37. 
    
38. 说    明：转换ARC,CIRCLE,ELLIPSE,POLYLINE
    
39.           若给删除标记T，则删除原来的曲线实体|;
    
40. 
    

<br /> ;|<br />    命令：cur_spline<br />    <br />    功能：转换的ARC,CIRCLE,ELLIPSE,POLYLIN到spline<br />    <br />    程序配合XDRX_API build 20506＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的<br />           LISP目录，自己加入到菜单里面就可以非常方便的使用了。<br />           关于程序的建议请到“晓东CAD空间-编程申请”论坛<br />           [url]http://www.xdcad.net/forum留言[/url]         <br />    <br /> |;<br /> (defun c:cur_spline (/ tf e ss)<br />   (xdrx_begin)<br />   (princ "\n选择要转换的ARC,CIRCLE,ELLIPSE,*POLYLINE...")<br />   (if (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*POLYLINE"))))<br />     (progn<br />       (setq tf (= 1 (xdrx_yesorno "\n是否删除旧实体")))<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />              (xdrx_curve->spline e tf)<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br /> |;<br /> 说明：下面是核心函数的用法<br /> xdrx_curve->spline<br /> <br /> 功    能：将曲线转换成SPLINE<br /> <br /> 调用格式：(xdrx_curve->spline <曲线实体名> [删除标记])<br /> <br /> 说    明：转换ARC,CIRCLE,ELLIPSE,POLYLINE<br />           若给删除标记T，则删除原来的曲线实体|;<br /> <br />

caibaobao

晓东，能不能也编制一个相反的程序？其实，这和我以前提出将arc、spline、line、pline连接起来成为pline的思路，帮帮忙啊

eachy

【晓东工具箱】已经有你要的程序了。
【拟合曲线】

1. ]
   
2. 命令: _stopl
   
3. 正在初始化...
   
4. 请选取要用多义线模拟的circle,arc,ellipse,spline<退出>:
   
5. 选择对象:

复制代码

【连接线段】

1. 
   
2. 命令: _c_l2pl
   
3. 正在初始化...
   
4. 请选择要连接成POLYLINE的LINE(线)和ARC(弧)<退出>:
   
5. 选择对象:
   

复制代码

caibaobao

晓东啊，能不能用多义线的圆弧功能来模拟ellipse、spline、circle、arc呢？我试过“拟合曲线”功能，是用一段段直线段来模拟，这样放大后就显得粗糙，而且热点太多了！

XDSoft

最初由 caibaobao 发布
[B]晓东啊，能不能用多义线的圆弧功能来模拟ellipse、spline、circle、arc呢？我试过“拟合曲线”功能，是用一段段直线段来模拟，这样放大后就显得粗糙，而且热点太多了！ [/B]

用弧没有必要，可能用弧顶点更多。

你还没有理解这个程序的模拟原理，它是根据“玄高差”来满足一个精度，在不同“放大”状态下，模拟出的顶点是不一样的，即：始终保持符合人的视觉的“误差”，你在屏幕很小的时候模拟出来的，顶点要少，而放大窗口后，模拟出来的顶点就多，就是任何时候的模拟，对于当前的显示来说，都是符合视觉误差的。

程序改进后，还可以自己输入这个玄高差的值。这样就可以不用按照视觉精度了，视觉精度是更加算法计算出来的。

caibaobao

谢谢晓东的解释，让我明白一点。也许，像我这样只苛求结果而不懂并忽略编程过程辛苦劳累的人较多，请晓东及其它大虾门原谅和大量一点吧：）

jtx

好用！正像找此工具。这样转换后用ext的sol物体就光滑多了！

zzt21963

终于让我找到了

hust_laohu

好东西
我也来用用看！