[求助]：谁能帮我解决这个问题呀

glacier_1982

设计一组“特殊绘图工具”工具栏，要求如下：
1．请求使用者连续输入圆心，自动画出半径为10的圆
2．请求使用者输入圆心，自动画出半径为10的圆与正外切三边形
3．请求使用者选取两相切物体，自动画出半径为20的切圆
4．请求使用者选取两相切物体，自动画出切线
5．请求使用者输入圆心，自动画出半径为10的圆与正内接六边形

这个怎么弄 谢谢

ohmylove

作业要自己做，不要偷懒。

glacier_1982

但是我不会呀

xyp1964

最初由 glacier_1982 发布
[B]设计一组“特殊绘图工具”工具栏，要求如下：
1．请求使用者连续输入圆心，自动画出半径为10的圆
2．请求使用者输入圆心，自动画出半径为10的圆与正外切三边形
3．请求使用者选取两相切物体，自动画出半径为20的?.. [/B]

完成1、2，其余自己完成：

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. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. (defun c:test1 ()
    
16.   (CMDLA0)
    
17.   (mkla"圆"1)
    
18.   (while (setq pt1 (getpoint "\n圆心点<退出> : "))
    
19.     (command "circle" pt1 10)
    
20.   )
    
21.   (CMDLA1)
    
22. )
    
23. (defun c:test2 ()
    
24.   (CMDLA0)
    
25.   (setq om (getvar"osmode"))
    
26.   (while (setq pt1 (getpoint "\n圆心点<退出> : "))
    
27.     (mkla"圆"1)
    
28.     (command "circle" pt1 10)
    
29.     (setq pt2 (polar pt1 (ang2rad 150) 10)
    
30.           pt3 (polar pt1 (ang2rad 30) 10)
    
31.           pt4 (polar pt1 (ang2rad 270) 10)
    
32.           pt5 (polar pt2 (ang2rad 60) 10)
    
33.           pt6 (polar pt3 (ang2rad 120) 10)
    
34.           pt7 (polar pt4 0 10)
    
35.           pt8 (inters pt2 pt5 pt3 pt6 nil)
    
36.           pt9 (inters pt2 pt5 pt4 pt7 nil)
    
37.           pt10 (inters pt3 pt6 pt4 pt7 nil)
    
38.           )
    
39.     (mkla"三边形"3)
    
40.     (setvar"osmode"0)
    
41.     (command "pline" pt8 pt9 pt10 "c")
    
42.     (setvar"osmode"om)
    
43.   )
    
44.   (CMDLA1)
    
45. )[/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 /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> (defun c:test1 ()<br />   (CMDLA0)<br />   (mkla"圆"1)<br />   (while (setq pt1 (getpoint "\n圆心点<退出> : "))<br />     (command "circle" pt1 10)<br />   )<br />   (CMDLA1)<br /> )<br /> (defun c:test2 ()<br />   (CMDLA0)<br />   (setq om (getvar"osmode"))<br />   (while (setq pt1 (getpoint "\n圆心点<退出> : "))<br />     (mkla"圆"1)<br />     (command "circle" pt1 10)<br />     (setq pt2 (polar pt1 (ang2rad 150) 10)<br />           pt3 (polar pt1 (ang2rad 30) 10)<br />           pt4 (polar pt1 (ang2rad 270) 10)<br />           pt5 (polar pt2 (ang2rad 60) 10)<br />           pt6 (polar pt3 (ang2rad 120) 10)<br />           pt7 (polar pt4 0 10)<br />           pt8 (inters pt2 pt5 pt3 pt6 nil)<br />           pt9 (inters pt2 pt5 pt4 pt7 nil)<br />           pt10 (inters pt3 pt6 pt4 pt7 nil)<br />           )<br />     (mkla"三边形"3)<br />     (setvar"osmode"0)<br />     (command "pline" pt8 pt9 pt10 "c")<br />     (setvar"osmode"om)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

冷酷狂嗨

楼主，很想帮你，可是我不会。正在学习。好好学习，天天向上。