[LISP程序]：新手求助:怎样完成小图案规则的排列成大图形

忧民

各位大虾,在下是个lisp新手,在看书过程中遇到一个题特向大家求教,题目:要求用lisp编程完成一个图案.具体内容见附件;图中的图案小圆,换成其他图案(如*,&,%,等)又怎样完成?如果大图形是不规则的也能否用lisp变成来完成?在下敬候各位大虾的赐教,先行谢过!!

xyp1964

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. ;;;图中的图案小圆,换成其他图案，如*,&,%,
    
16. (defun c:test ()
    
17.   (CMDLA0)
    
18.   (jzhz)
    
19.   (setq        str (USTR 1 "\n字符串" str NIL)
    
20.         ss  (ssget '((0 . "CIRCLE")))
    
21.         i   -1
    
22.   )
    
23.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
24.     (setq pt (ddxf 10 s1)
    
25.           th (* (ddxf 40 s1) 2)
    
26.           sc (/ th 300)
    
27.     )
    
28.     (xiezi pt str)
    
29.   )
    
30.   (CMDLA1)
    
31. )[/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 /> ;;;图中的图案小圆,换成其他图案，如*,&,%,<br /> (defun c:test ()<br />   (CMDLA0)<br />   (jzhz)<br />   (setq        str (USTR 1 "\n字符串" str NIL)<br />         ss  (ssget '((0 . "CIRCLE")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt (ddxf 10 s1)<br />           th (* (ddxf 40 s1) 2)<br />           sc (/ th 300)<br />     )<br />     (xiezi pt str)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

忧民

谢谢2楼的兄弟!!
另外附上一个两个心得:
1,用lisp编程绘图时尽量把所有扑捉完全清除;
2,定义变量时主意冲突(字母大小写相同).
这是我昨天在试小程序时遇到的困惑,今天请教别人才解决的,贴出来希望对初学者有帮助.

hisum

try the expresstools command "super hatch" 试试expresstools里的“super hatch”命令，把填充图案定义成图块就可以了