[求助]：SPLINE折线化的原理

caddog

我想了解CAD中SPLINE折线化的原理和方法,恳请各位大虾赐教!不胜感激!

xyp1964

确定SPLINE上的系列点，然后依次画线：

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]
    
15. |;
    
16. 
    
17. (defun c:test ()
    
18.   (CMDLA0)
    
19.   (setq        leng (UREAL 7 "" "\n线长" leng)
    
20.         ss   (ssget '((0 . "SPLINE")))
    
21.         i    -1
    
22.   )
    
23.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
24.     (setq ptlst        (xyp-get-CurveDivPtlst s1 leng)
    
25.           n        -1
    
26.     )
    
27.     (command "PLINE")
    
28.     (while (setq pt (nth (setq n (1+ N)) ptlst))
    
29.       (command pt)
    
30.     )
    
31.     (command "")
    
32.     (entdel s1)
    
33.   )
    
34.   (CMDLA1)
    
35. )
    
36. [/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        leng (UREAL 7 "" "\n线长" leng)<br />         ss   (ssget '((0 . "SPLINE")))<br />         i    -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ptlst        (xyp-get-CurveDivPtlst s1 leng)<br />           n        -1<br />     )<br />     (command "PLINE")<br />     (while (setq pt (nth (setq n (1+ N)) ptlst))<br />       (command pt)<br />     )<br />     (command "")<br />     (entdel s1)<br />   )<br />   (CMDLA1)<br /> )<br /> [/FONT]

caddog

谢谢您的热心帮助！
通用函数XYP＿LIB。VLS是您自己编的吗？都有哪些功能呢？
我想知道。
还有我想了解一下折线化的数学原理，能讲讲吗？