[编程申请]：看看这个能不能解决，或者其实有比较好的方法！

有点小烦

在做设计的时候，有时候会要画一种线，如图，我通常是如图这样做的，但总是觉得不是很方便，所以想寻求一种更好的方法，这里高手芸芸，请大家赐教！

xyp1964

画法“有点小烦”，其实也不错，就这样吧！

有点小烦

也不是很方便啊，有时候，横竖比例很不同，所以我想寻求一种更好的办法，有兴趣的高人继续研究，分享啊！

xyp1964

最初由 有点小烦 发布
[B]也不是很方便啊，有时候，横竖比例很不同，所以我想寻求一种更好的办法，有兴趣的高人继续研究，分享啊！ [/B]

把问题和要求说清楚，光一个图片似乎只能看看！
再手工改改：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        no1  (UREAL 7 "" "\n宽度" no1)
    
18.         dist (/ no1 2.0)
    
19.   )
    
20.   (if (setq pt (getpoint "\n起点(退出) : "))
    
21.     (progn
    
22.       (command "Pline" pt "a" "a" 180)
    
23.       (setq pt0 pt)
    
24.       (while (setq pt (getpoint pt "\n下一点(退出) : "))
    
25.         (command pt)
    
26.       )
    
27.       (command "")
    
28.       (setq s1 (entlast))
    
29.       (vla-offset (vlax-ename->vla-object s1) dist)
    
30.       (setq s2 (entlast))
    
31.       (vla-offset (vlax-ename->vla-object s1) (* dist -1))
    
32.       (setq s3 (entlast))
    
33.       (entdel s1)
    
34.       (command "array" s2 s3 "" "P" pt0 2 360 "Y")
    
35.     )
    
36.   )
    
37.   (CMDLA1)
    
38. )[/FONT]

[FONT=courier new](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 /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        no1  (UREAL 7 "" "\n宽度" no1)<br />         dist (/ no1 2.0)<br />   )<br />   (if (setq pt (getpoint "\n起点(退出) : "))<br />     (progn<br />       (command "Pline" pt "a" "a" 180)<br />       (setq pt0 pt)<br />       (while (setq pt (getpoint pt "\n下一点(退出) : "))<br />         (command pt)<br />       )<br />       (command "")<br />       (setq s1 (entlast))<br />       (vla-offset (vlax-ename->vla-object s1) dist)<br />       (setq s2 (entlast))<br />       (vla-offset (vlax-ename->vla-object s1) (* dist -1))<br />       (setq s3 (entlast))<br />       (entdel s1)<br />       (command "array" s2 s3 "" "P" pt0 2 360 "Y")<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

有点小烦

我把代码拷到记事本里，存为了LSP文件，在CAD里加载了，运行命令为“test”，不知道对不对，但是出了这个问题！

xyp1964

最初由 有点小烦 发布
[B]我把代码拷到记事本里，存为了LSP文件，在CAD里加载了，运行命令为“test”，不知道对不对，但是出了这个问题！ [/B]

请再把代码里的内容“认真仔细”地读一遍！

有点小烦

不好意思，我的问题说的不够清楚，感谢斑竹，这个程序已经能做基本的图形了！
我把我的问题再说一下吧，在欧式的建筑或构筑物上常常出现这种图形，很多还是树形的结构，这个就太没规律了，我求的是稍微有规律一点的在矩形内的，但这个矩形并非一定的比例，比如长和宽为2：1，如果这个程序能适合，那么，在3：1的矩形内就不行了，我曾经在琢磨这一中直线辅助线的做法，这样调节起来更方便点，可惜我的数学太差了！

xyp1964

对“欧式的建筑或构筑物”有关花纹（三叶草、橄榄枝等）的数学模型不了解，无法解决，还是请大师解决吧！

狂刀

有兴趣，没时间写

有点小烦

xyp1964谦虚了，你已经很厉害了！一句题外话，我有个北京的网友，他是湖北人，也喜欢用XYP，我还以为……
呵呵……
还是谢谢了……