高手帮忙看看啊。头一次编程，犀利糊涂不知道那里错了

bitterwood

8楼一样谢谢咯！热心的好人

xyp1964

2. (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. 通用函数下载地址1：http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
11.                下载地址2：viewFile.asp?Boardid=3&ID=19043
12. |; (defun c:test ()
13.    (cmdla0)
14.    (setq  p0     (getpoint "\n齿轮中点 : ")
15.   m       (ureal 1 "" "\n齿轮模数" 2.5)
16.   z       (ureal 1 "" "\n齿轮齿数" 18)
17.   ang1 (uangle 1 "" "\n齿轮左偏角" (/ pi 18) p0)
18.   a       (ureal 1 "" "\n齿轮宽" 13)
19.   dn     (ureal 1 "" "\n齿轮内径" 20)
20.   dt1   (ureal 1 "" "\n齿轮旁台直径" 38)
21.   bt1   (ureal 1 "" "\n齿轮旁台宽" 7)
22.   d       (* m z)
23.   da     (* m (+ z 2))
24.   db     (* m (- z 2.5))
25.   p1     (polar p0 (/ pi 2.0) (/ dn 2.0))
26.   p2     (polar p0 (/ pi 2.0) (/ db 2.0))
27.   p3     (polar p2 0 a)
28.   p4     (polar p0 0 a)
29.   p5     (polar p4 (/ pi 2.0) (/ da 2.0))
30.   p6     (polar p2 (- (/ pi 2.0) ang1) (/ (* m 2.25) (cos ang1)))
31.   p7     (polar p4 (/ pi 2.0) (/ dt1 2.0))
32.   p8     (polar p7 0 bt1)
33.   p9     (polar p4 0 bt1)
34.   p10   (polar p9 (/ pi 2.0) (/ dn 2.0))
35.    )
36.    (mkla "齿轮" 3)
37.    (setvar "osmode" 0)
38.    (command "pline" p0 p1 p2 p6 p5 p3 p7 p8 p9 "")
39.    (setq s1 (entlast))
40.    (command "line" p2 p3 "")
41.    (setq s2 (entlast))
42.    (command "line" p1 p10 "")
43.    (setq s3 (entlast))
44.    (COMMAND "MIRROR" s1 s2 s3 "" P0 P9 "N")
45.    (cmdla1)
46. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 通用函数下载地址1：http://www.xdcad.net/forum/attachment.php?s=&postid=1606661                下载地址2：viewFile.asp?Boardid=3&ID=19043 |; (defun c:test ()    (cmdla0)    (setq  p0     (getpoint "\n齿轮中点 : ")   m       (ureal 1 "" "\n齿轮模数" 2.5)   z       (ureal 1 "" "\n齿轮齿数" 18)   ang1 (uangle 1 "" "\n齿轮左偏角" (/ pi 18) p0)   a       (ureal 1 "" "\n齿轮宽" 13)   dn     (ureal 1 "" "\n齿轮内径" 20)   dt1   (ureal 1 "" "\n齿轮旁台直径" 38)   bt1   (ureal 1 "" "\n齿轮旁台宽" 7)   d       (* m z)   da     (* m (+ z 2))   db     (* m (- z 2.5))   p1     (polar p0 (/ pi 2.0) (/ dn 2.0))   p2     (polar p0 (/ pi 2.0) (/ db 2.0))   p3     (polar p2 0 a)   p4     (polar p0 0 a)   p5     (polar p4 (/ pi 2.0) (/ da 2.0))   p6     (polar p2 (- (/ pi 2.0) ang1) (/ (* m 2.25) (cos ang1)))   p7     (polar p4 (/ pi 2.0) (/ dt1 2.0))   p8     (polar p7 0 bt1)   p9     (polar p4 0 bt1)   p10   (polar p9 (/ pi 2.0) (/ dn 2.0))    )    (mkla "齿轮" 3)    (setvar "osmode" 0)    (command "pline" p0 p1 p2 p6 p5 p3 p7 p8 p9 "")    (setq s1 (entlast))    (command "line" p2 p3 "")    (setq s2 (entlast))    (command "line" p1 p10 "")    (setq s3 (entlast))    (COMMAND "MIRROR" s1 s2 s3 "" P0 P9 "N")    (cmdla1) )

bitterwood

挖，成功了啊！


太谢谢楼上了。程序也很简单。我都看的懂啊


就第一句不知道是干吗的，(setvar "osmode" 0)


让osmode等于0.


osmode做什么的啊

xyp1964

(setvar "osmode" 0);取消捕捉 原程序使用(COMMAND "MIRROR" "C"……的格式，容易把不需要的东西也粘上，不要用!

bitterwood

princ是干吗？为什么每个程序都要有？我看书没看明白。
还有就是p3 连 p7 在连p8 为什么一连直接显示p3 连p8?是一条斜线啊

bitterwood

恩。哪个哥们的哪个mirror用不来哦。不出图的。你这个可以出。


都不错撒。谢谢咯！

ZZXXQQ

bitterwood发表于2005-5-28 20:49:00佩服佩服啊。谢谢楼上。我执行了一下。就mirror那里好象有点问题。而且我也看不懂啊。我把mirror那一行去掉就可以执行成图了。 然后哪个m (if m m 2.5)这些都... princ是干吗？为什么每

(princ)是阻止用户定义的函数返回值。即程序平静的退出。
画成斜线是因为您的图中的OSNAP打开了。只要在程序的开头加上(setvar "OSMODE" 0)就可以用了。

bitterwood

哦！good!完全成功。


不过现在有个新问题。


就这个图的尺寸标注，哪个表面光洁度那些东西的程序怎么编呢？能做一个例子吗？别的我自己编。


还有就是哪些斜线，还有其他的图中哪个斜线边缘是多义线？这个怎么编写呢？


我自己也研究研究哈。谢谢楼上