各位大虾帮我改下这个程序谢谢，急用

shakeapple

这个是一个圆锥台展开程序，在书上抄的用来救命的，我改了改还是不行，各位大虾帮忙看看

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. 通用函数下载地址:
11. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
12. |;
13. (defun c:cone-lp ()
14.    (cmdla0)
15.    (setq  r2 (UREAL 7 "" "\n外圆半径" r2)
16.   r1 (UREAL 7 "" "\n内圆半径" r1)
17.   ta (UREAL 7 "" "\n厚度" ta)
18.   pt (getpoint "\n位置点 : ")
19.   x0 (car pt)
20.   y0 (cadr pt)
21.    )
22.    (setq  ar   4        ;a;ar 或 a 未赋值
23.   tx   (/ (* ta (sin ar)) 2)
24.   rx2 (- r2 tx)
25.   rx1 (+ r1 tx)
26.   w     (* (* 2 pi) (cos ar))
27.   rl1 (/ rx1 (cos ar))
28.   rl2 (/ rx2 (cos ar))
29.   x1   (+ x0 rl1)
30.   x3   (+ x0 rl2)
31.   x2   (- x0 (* rl1 (cos (- pi w))))
32.   x4   (- x0 (* rl2 (cos (- pi w))))
33.   y1   y0
34.   y3   y0
35.   y2   (+ y0 (* rl1 (sin (- pi w))))
36.   y4   (+ y0 (* rl2 (sin (- pi w))))
37.   p0   (list x0 y0)
38.   P1   (list X1 y1)
39.   P2   (list X2 y2)
40.   p3   (list X3 y3)
41.   p4   (list X4 y4)
42.    )
43.    (mkla"ccto"1)
44.    (command "arc" p1 "c" p0 p2)
45.    (command "arc" p3 "c" p0 p4)
46.    (command "line" p1 p3 "")
47.    (command "line" p2 p4 "")
48.    (setq  f1 (/ r2 24)
49.   f2 (/ r2 2)
50.   d1 (list (+ x3 f2) y3)
51.   d2 (list x0 (- y0 f2))
52.    )
53.    (mkla"cctd"3)   
54.    (setvar "dimtih" 0)
55.    (command "dim"       "hor"       p0             p1             d2  ""
56.        "baseline"           p3             ""             "baseline"
57.        p2         ""           "baseline"               p4  ""
58.        "exit"
59.      )
60.    (command "dim" "vert" p0 p2 d1 "" "baseline" p4 "" "exit")
61.    (cmdla1)
62. )

   (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") 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554 |; (defun c:cone-lp ()    (cmdla0)    (setq  r2 (UREAL 7 "" "\n外圆半径" r2)   r1 (UREAL 7 "" "\n内圆半径" r1)   ta (UREAL 7 "" "\n厚度" ta)   pt (getpoint "\n位置点 : ")   x0 (car pt)   y0 (cadr pt)    )    (setq  ar   4        ;a;ar 或 a 未赋值   tx   (/ (* ta (sin ar)) 2)   rx2 (- r2 tx)   rx1 (+ r1 tx)   w     (* (* 2 pi) (cos ar))   rl1 (/ rx1 (cos ar))   rl2 (/ rx2 (cos ar))   x1   (+ x0 rl1)   x3   (+ x0 rl2)   x2   (- x0 (* rl1 (cos (- pi w))))   x4   (- x0 (* rl2 (cos (- pi w))))   y1   y0   y3   y0   y2   (+ y0 (* rl1 (sin (- pi w))))   y4   (+ y0 (* rl2 (sin (- pi w))))   p0   (list x0 y0)   P1   (list X1 y1)   P2   (list X2 y2)   p3   (list X3 y3)   p4   (list X4 y4)    )    (mkla"ccto"1)    (command "arc" p1 "c" p0 p2)    (command "arc" p3 "c" p0 p4)    (command "line" p1 p3 "")    (command "line" p2 p4 "")    (setq  f1 (/ r2 24)   f2 (/ r2 2)   d1 (list (+ x3 f2) y3)   d2 (list x0 (- y0 f2))    )    (mkla"cctd"3)       (setvar "dimtih" 0)    (command "dim"       "hor"       p0             p1             d2  ""        "baseline"           p3             ""             "baseline"        p2         ""           "baseline"               p4  ""        "exit"      )    (command "dim" "vert" p0 p2 d1 "" "baseline" p4 "" "exit")    (cmdla1) )

shakeapple

非常感谢XYP！运行了显示很好。


你的通用函数是什么可以发出来吗？看不到阿？

xyp1964

通用函数是俺的“杀手锏”，不想给别人！呵呵……