[求助]LISP编的程序怎么在有的CAD里面不能正确生成图形？

kmzhkyo

我自己编的小程序，做毕业设计用的，怎么在有的CAD里面可以正确生成，有的就不能吖~请高手指点。

如果是CAD的问题，请问要怎么设置或是修复吖~？

ljpnb

最主要是捕捉的影响

kmzhkyo

要把捕捉关掉吗？

ljpnb

2. (defun c:test ()
3.   (setq os (getvar "osmode"))
4.   (setvar "osmode" 0)
5.   (setq DN (getreal "\n输入法兰公称通径(10/15/20/25):"))
6.   (cond ((= DN 10)
7.   (setq D  75
8.         K  50
9.         L  11
10.         C  12
11.         B1 15
12.   )
13. )
14. ((= DN 15)
15.   (setq D  80
16.         K  55
17.         L  11
18.         C  12
19.         B1 19
20.   )
21. )
22. ((= DN 20)
23.   (setq D  90
24.         K  65
25.         L  11
26.         C  14
27.         B1 26
28.   )
29. )
30. ((= DN 25)
31.   (setq D  100
32.         K  75
33.         L  11
34.         C  14
35.         B1 33
36.   )
37. )
38. (T
39.   (setq D 100)
40.   (setq K 75)
41.   (setq L 11)
42.   (setq C 14)
43.   (setq B1 33)
44. )
45.   )
46.   (setq f1 2)
47.   (setq p0 (getpoint "\n选取法兰基点:"))
48.   (setq p01 (polar p0 (* 0.5 pi) (- C f1)))
49.   (setq p1 (polar p0 pi (/ D 2)))
50.   (setq p2 (polar p0 pi (+ (/ K 2) (/ L 2))))
51.   (setq p3 (polar p0 pi (- (/ K 2) (/ L 2))))
52.   (setq p4 (polar p0 pi (/ B1 2)))
53.   (setq p5 (polar p0 0.0 (/ B1 2)))
54.   (setq p6 (polar p0 0.0 (- (/ K 2) (/ L 2))))
55.   (setq p7 (polar p0 0.0 (+ (/ K 2) (/ L 2))))
56.   (setq p8 (polar p0 0.0 (/ D 2)))
57.   (setq p9 (polar p8 (* 0.5 pi) (- C f1)))
58.   (setq p10 (polar p01 0.0 (+ (/ K 2) (/ L 2))))
59.   (setq p11 (polar p10 pi L))
60.   (setq p12 (polar p11 pi 5))
61.   (setq p02 (polar p0 (* 0.5 pi) C))
62.   (setq p13 (polar p12 (* 0.5 pi) f1))
63.   (setq p14 (polar p02 0.0 (/ B1 2)))
64.   (setq p15 (polar p02 pi (/ B1 2)))
65.   (setq p20 (polar p1 (* 0.5 pi) (- C f1)))
66.   (setq p19 (polar p01 pi (+ (/ K 2) (/ L 2))))
67.   (setq p18 (polar p19 0.0 L))
68.   (setq p17 (polar p18 0.0 5))
69.   (setq p16 (polar p17 (* 0.5 pi) f1))
70.   (command "line" p1 p8 p9 p12 p13 p16 p17 p20 "")
71.   (command "line" p1 p20 "")
72.   (command "line" p2 p19 "")
73.   (command "line" p3 p18 "")
74.   (command "line" p4 p15 "")
75.   (command "line" p5 p14 "")
76.   (command "line" p6 p11 "")
77.   (command "line" p7 p10 "")
78.   (command "hatch"   "u"  45   3    "n"  ""   "y"  p1 p2   p19  p20
79.     "c" p3   p4   p15  p16  p17  p18  "c"  p5 p6   p11  p12
80.     p13 p14  "c"  p7   p8   p9  p10  "c"  ""
81.    )
82.   (setvar "osmode" os)
83.   (princ)
84. )

(defun c:test ()   (setq os (getvar "osmode"))   (setvar "osmode" 0)   (setq DN (getreal "\n输入法兰公称通径(10/15/20/25):"))   (cond ((= DN 10)   (setq D  75         K  50         L  11         C  12         B1 15   ) ) ((= DN 15)   (setq D  80         K  55         L  11         C  12         B1 19   ) ) ((= DN 20)   (setq D  90         K  65         L  11         C  14         B1 26   ) ) ((= DN 25)   (setq D  100         K  75         L  11         C  14         B1 33   ) ) (T   (setq D 100)   (setq K 75)   (setq L 11)   (setq C 14)   (setq B1 33) )   )   (setq f1 2)   (setq p0 (getpoint "\n选取法兰基点:"))   (setq p01 (polar p0 (* 0.5 pi) (- C f1)))   (setq p1 (polar p0 pi (/ D 2)))   (setq p2 (polar p0 pi (+ (/ K 2) (/ L 2))))   (setq p3 (polar p0 pi (- (/ K 2) (/ L 2))))   (setq p4 (polar p0 pi (/ B1 2)))   (setq p5 (polar p0 0.0 (/ B1 2)))   (setq p6 (polar p0 0.0 (- (/ K 2) (/ L 2))))   (setq p7 (polar p0 0.0 (+ (/ K 2) (/ L 2))))   (setq p8 (polar p0 0.0 (/ D 2)))   (setq p9 (polar p8 (* 0.5 pi) (- C f1)))   (setq p10 (polar p01 0.0 (+ (/ K 2) (/ L 2))))   (setq p11 (polar p10 pi L))   (setq p12 (polar p11 pi 5))   (setq p02 (polar p0 (* 0.5 pi) C))   (setq p13 (polar p12 (* 0.5 pi) f1))   (setq p14 (polar p02 0.0 (/ B1 2)))   (setq p15 (polar p02 pi (/ B1 2)))   (setq p20 (polar p1 (* 0.5 pi) (- C f1)))   (setq p19 (polar p01 pi (+ (/ K 2) (/ L 2))))   (setq p18 (polar p19 0.0 L))   (setq p17 (polar p18 0.0 5))   (setq p16 (polar p17 (* 0.5 pi) f1))   (command "line" p1 p8 p9 p12 p13 p16 p17 p20 "")   (command "line" p1 p20 "")   (command "line" p2 p19 "")   (command "line" p3 p18 "")   (command "line" p4 p15 "")   (command "line" p5 p14 "")   (command "line" p6 p11 "")   (command "line" p7 p10 "")   (command "hatch"   "u"  45   3    "n"  ""   "y"  p1 p2   p19  p20     "c" p3   p4   p15  p16  p17  p18  "c"  p5 p6   p11  p12     p13 p14  "c"  p7   p8   p9  p10  "c"  ""    )   (setvar "osmode" os)   (princ) )

kmzhkyo

谢谢老哥啦