[LISP函数]：各位大侠，能否帮小弟看一下这个画轴的程序错在哪了，运行显示file nil，

yehaifuyi

2. (defun C:guo()
   
3. (initget 7)
   
4. (setq ty (getstring "please input type<t1/t2/t3/t4>:"))
   
5.   (setq f1 (open "guo.txt" "r"))
   
6.   (setq r1 (read-line f1))
   
7.   (setq b1 (read (strcat "(" r1 ")")))
   
8.   (setq k 0)
   
9.     (while (/= k nil)
   
10.       (setq sj (read (strcat "(" (read-line f1) ")")))
    
11.       (if (= (read ty) (nth 0 sj)) (setq k nil))
    
12.     );while end
    
13.     (close f1)
    
14.   (setq len (length b1));the length of list
    
15.    (setq n 0)
    
16.      (repeat len
    
17.       (set (nth n b1) (nth n sj))
    
18.       (setq n (+ n 1))
    
19.      );repeat end
    
20. (cond ((=ty "t1") (setq pr'(0 0)))
    
21.        ((=ty "t2") (setq pr'(0 0)))
    
22.        ((=ty "t3") (setq pr'(0 0)))
    
23.        ((=ty "t4") (setq pr'(0 0)))
    
24. )
    
25. 
    
26. (setq category 1)
    
27. (setq m_diameter (atoi (get_tile "shaft_D")))
    
28. (setq m_length (atoi (get_tile "shaft_L")))
    
29. (setq m_x (atoi (get_tile "start_x")))
    
30. (setq m_y (atoi (get_tile "start_y")))
    
31. (setq m_chamferA (atoi (get_tile "chamfer_A")))
    
32. (setq m_chamferB (atoi (get_tile "chamfer_B")))
    
33. 
    
34. (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")
    
35. (setq temp_x (car pt0))
    
36. (setq temp_y (cadr pt0))
    
37. (setq pt1 (list (- temp_x m_chamferB) (+ temp_y (/ m_diameter 2))))
    
38. (setq tan (/ (sin (dtr m_chamferA)) (cos (dtr m_chamferA))))
    
39. (setq temp (* tan m_chamferB))
    
40. (setq pt2 (polar pt1 (* -0.5 pi) temp))
    
41. (setq pt2 (polar pt2 (* -1 pi) m_chamferB))
    
42. (command "pline" pt1 pt2 pt0"")
    
43. (setq ob1 (entlast))
    
44. (command "mirror" ob1 "" pt0 (list (+ temp_x 10) temp_y) "")
    
45. (setq ob2 (entlast))
    
46. (setq pt3 (list (- temp_x m_length) (- temp_y (/ m_diameter 2))))
    
47. (command "rectang" pt1 pt3)
    
48. (setq ob3 (entlast))
    
49. (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")
    
50. (command "line" (polar pt0 (* -1 pi) (/ m_diameter 8)) (polar pt0 0 (+ m_length (/ m_diameter 8))) "")
    
51. (setq ob4 (entlast))
    
52. (if (= m_direction 0)
    
53.   (progn
    
54.    (command "mirror" ob1 ob2 ob3 ob4 "" pt0 pt2 "Y")
    
55.    (setq ob5 (entlast))
    
56.    (command "move" ob1 ob2 ob3 ob4 ob5 "" pt0 (polar pt0 0 m_length))
    
57.   ))
    
58. (setq pt00 (polar pt0 0 m_length))
    
59. 
    
60. (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")
    
61. (setq temp_xx (car pt00))
    
62. (setq temp_yy (cadr pt00))
    
63. (setq pt4 (list (+ temp_xx m_chamferB) (+ temp_yy (/ m_diameter 2))))
    
64. (setq tan (/ (sin (dtr m_chamferA)) (cos (dtr m_chamferA))))
    
65. (setq temp (* tan m_chamferB))
    
66. (setq pt5 (polar pt4 (* -0.5 pi) temp))
    
67. (setq pt5 (polar pt5 (* -1 pi) m_chamferB))
    
68. (command "pline" pt4 pt5 pt00"")
    
69. (setq ob6 (entlast))
    
70. ; (command "_chamfer" "A" m_chamferB m_chamferA "")
    
71. ; (command "_chamfer" "P" object1 "" "")
    
72. (command "mirror" ob6 "" pt00 (list (+ temp_xx 10) temp_yy) "")
    
73. (setq ob7 (entlast))
    
74. (setq pt6 (list (+ temp_xx (-m_length m_chamferB)) (- temp_yy (/ m_diameter 2))))
    
75. (command "rectang" pt4 pt6)
    
76. (setq pt7 (list (+ temp_xx (/ m_length 2)) (+ temp_yy (/ m_diameter 2))))
    
77. (setq pt8 (list (+ temp_xx (/ m_length 2)) (- temp_yy (/ m_diameter 2))))
    
78. (command "mirror" ob6 ob7 "" pt7 pt8 "")
    
79. (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")
    
80. (setq pt9 (list (- (car pt4) m_chamferB) (- (cadr pt4) (/ m_chamferB 2))))
    
81. (setq pt10 (polar pt9 0 m_length))
    
82. (command "line" pt9 pt10 "")
    
83. (setq ob7 (entlast))
    
84. (command "mirror" ob7 "" pt00 (polar pt00 0 10) "")
    
85. (command "line" (polar pt00 (* -1 pi) (/ m_diameter 8)) (polar pt00 0 (+ m_length (/ m_diameter 8))) "")
    
86. (setq pt000 (list (+ temp_xx m_length) temp_yy))
    
87. 
    
88. (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")
    
89. (setq temp_xxx (car pt000))
    
90. (setq temp_yyy (cadr pt000))
    
91. (setq point1 (list temp_xxx (+ temp_yyy (/ m_diameter 2))))
    
92. (setq point2 (list (+ temp_xxx m_length) (- temp_yyy (/ m_diameter 2))))
    
93. (command "rectang" point1 point2)
    
94. (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")
    
95. (command "line" (polar pt000 (* -1 pi) (/ m_diameter 8)) (polar pt000 0 (+ m_length (/ m_diameter 8))) "")
    
96. (setq pt0000 (list (+ temp_xxx m_length) temp_yyy))
    
97. 
    
98. (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")
    
99. (setq temp_xxxx (car pt0000))
    
100. (setq temp_yyyy (cadr pt0000))
     
101. (setq pt11 (list (+ temp_xxxx m_chamferB) (+ temp_yyyy (/ m_diameter 2))))
     
102. (setq tan (/ (sin (dtr m_chamferA)) (cos (dtr m_chamferA))))
     
103. (setq temp (* tan m_chamferB))
     
104. (setq pt12 (polar pt11 (* -0.5 pi) temp))
     
105. (setq pt12 (polar pt12 (* -1 pi) m_chamferB))
     
106. (command "pline" pt11 pt12 pt0000"")
     
107. (setq ob8 (entlast))
     
108. (command "mirror" ob8 "" pt0000 (list (+ temp_xxxx 10) temp_yyyy) "")
     
109. (setq ob9 (entlast))
     
110. (setq pt13 (list (+ temp_xxxx m_length) (- temp_yyyy (/ m_diameter 2))))
     
111. (command "rectang" pt11 pt13)
     
112. (setq ob10 (entlast))
     
113. (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")
     
114. (command "line" (polar pt0000 (* -1 pi) (/ m_diameter 8)) (polar pt0000 0 (+ m_length (/ m_diameter 8))) "")
     
115. (setq ob11 (entlast))
     
116. (if (= m_direction 0)
     
117.   (progn
     
118.    (command "mirror" ob8 ob9 ob10 ob11 "" pt0000 pt12 "Y")
     
119.    (setq ob12 (entlast))
     
120.    (command "move" ob8 ob9 ob10 ob11 ob12 "" pt0000 (polar pt0000 0 m_length))
     
121.   ))
     
122. (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")
     
123. (princ)
     
124. )

(defun C:guo()<br /> (initget 7)<br /> (setq ty (getstring "please input type<t1/t2/t3/t4>:"))<br />   (setq f1 (open "guo.txt" "r"))<br />   (setq r1 (read-line f1))<br />   (setq b1 (read (strcat "(" r1 ")")))<br />   (setq k 0)<br />     (while (/= k nil)<br />       (setq sj (read (strcat "(" (read-line f1) ")")))<br />       (if (= (read ty) (nth 0 sj)) (setq k nil))<br />     );while end<br />     (close f1)<br />   (setq len (length b1));the length of list<br />    (setq n 0)<br />      (repeat len<br />       (set (nth n b1) (nth n sj))<br />       (setq n (+ n 1))<br />      );repeat end<br /> (cond ((=ty "t1") (setq pr'(0 0)))<br />        ((=ty "t2") (setq pr'(0 0)))<br />        ((=ty "t3") (setq pr'(0 0)))<br />        ((=ty "t4") (setq pr'(0 0)))<br /> )<br /> <br /> (setq category 1)<br /> (setq m_diameter (atoi (get_tile "shaft_D")))<br /> (setq m_length (atoi (get_tile "shaft_L")))<br /> (setq m_x (atoi (get_tile "start_x")))<br /> (setq m_y (atoi (get_tile "start_y")))<br /> (setq m_chamferA (atoi (get_tile "chamfer_A")))<br /> (setq m_chamferB (atoi (get_tile "chamfer_B")))<br /> <br /> (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")<br /> (setq temp_x (car pt0))<br /> (setq temp_y (cadr pt0))<br /> (setq pt1 (list (- temp_x m_chamferB) (+ temp_y (/ m_diameter 2))))<br /> (setq tan (/ (sin (dtr m_chamferA)) (cos (dtr m_chamferA))))<br /> (setq temp (* tan m_chamferB))<br /> (setq pt2 (polar pt1 (* -0.5 pi) temp))<br /> (setq pt2 (polar pt2 (* -1 pi) m_chamferB))<br /> (command "pline" pt1 pt2 pt0"")<br /> (setq ob1 (entlast))<br /> (command "mirror" ob1 "" pt0 (list (+ temp_x 10) temp_y) "")<br /> (setq ob2 (entlast))<br /> (setq pt3 (list (- temp_x m_length) (- temp_y (/ m_diameter 2))))<br /> (command "rectang" pt1 pt3)<br /> (setq ob3 (entlast))<br /> (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")<br /> (command "line" (polar pt0 (* -1 pi) (/ m_diameter 8)) (polar pt0 0 (+ m_length (/ m_diameter 8))) "")<br /> (setq ob4 (entlast))<br /> (if (= m_direction 0)<br />   (progn<br />    (command "mirror" ob1 ob2 ob3 ob4 "" pt0 pt2 "Y")<br />    (setq ob5 (entlast))<br />    (command "move" ob1 ob2 ob3 ob4 ob5 "" pt0 (polar pt0 0 m_length))<br />   ))<br /> (setq pt00 (polar pt0 0 m_length))<br /> <br /> (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")<br /> (setq temp_xx (car pt00))<br /> (setq temp_yy (cadr pt00))<br /> (setq pt4 (list (+ temp_xx m_chamferB) (+ temp_yy (/ m_diameter 2))))<br /> (setq tan (/ (sin (dtr m_chamferA)) (cos (dtr m_chamferA))))<br /> (setq temp (* tan m_chamferB))<br /> (setq pt5 (polar pt4 (* -0.5 pi) temp))<br /> (setq pt5 (polar pt5 (* -1 pi) m_chamferB))<br /> (command "pline" pt4 pt5 pt00"")<br /> (setq ob6 (entlast))<br /> ; (command "_chamfer" "A" m_chamferB m_chamferA "")<br /> ; (command "_chamfer" "P" object1 "" "")<br /> (command "mirror" ob6 "" pt00 (list (+ temp_xx 10) temp_yy) "")<br /> (setq ob7 (entlast))<br /> (setq pt6 (list (+ temp_xx (-m_length m_chamferB)) (- temp_yy (/ m_diameter 2))))<br /> (command "rectang" pt4 pt6)<br /> (setq pt7 (list (+ temp_xx (/ m_length 2)) (+ temp_yy (/ m_diameter 2))))<br /> (setq pt8 (list (+ temp_xx (/ m_length 2)) (- temp_yy (/ m_diameter 2))))<br /> (command "mirror" ob6 ob7 "" pt7 pt8 "")<br /> (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")<br /> (setq pt9 (list (- (car pt4) m_chamferB) (- (cadr pt4) (/ m_chamferB 2))))<br /> (setq pt10 (polar pt9 0 m_length))<br /> (command "line" pt9 pt10 "")<br /> (setq ob7 (entlast))<br /> (command "mirror" ob7 "" pt00 (polar pt00 0 10) "")<br /> (command "line" (polar pt00 (* -1 pi) (/ m_diameter 8)) (polar pt00 0 (+ m_length (/ m_diameter 8))) "")<br /> (setq pt000 (list (+ temp_xx m_length) temp_yy))<br /> <br /> (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")<br /> (setq temp_xxx (car pt000))<br /> (setq temp_yyy (cadr pt000))<br /> (setq point1 (list temp_xxx (+ temp_yyy (/ m_diameter 2))))<br /> (setq point2 (list (+ temp_xxx m_length) (- temp_yyy (/ m_diameter 2))))<br /> (command "rectang" point1 point2)<br /> (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")<br /> (command "line" (polar pt000 (* -1 pi) (/ m_diameter 8)) (polar pt000 0 (+ m_length (/ m_diameter 8))) "")<br /> (setq pt0000 (list (+ temp_xxx m_length) temp_yyy))<br /> <br /> (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")<br /> (setq temp_xxxx (car pt0000))<br /> (setq temp_yyyy (cadr pt0000))<br /> (setq pt11 (list (+ temp_xxxx m_chamferB) (+ temp_yyyy (/ m_diameter 2))))<br /> (setq tan (/ (sin (dtr m_chamferA)) (cos (dtr m_chamferA))))<br /> (setq temp (* tan m_chamferB))<br /> (setq pt12 (polar pt11 (* -0.5 pi) temp))<br /> (setq pt12 (polar pt12 (* -1 pi) m_chamferB))<br /> (command "pline" pt11 pt12 pt0000"")<br /> (setq ob8 (entlast))<br /> (command "mirror" ob8 "" pt0000 (list (+ temp_xxxx 10) temp_yyyy) "")<br /> (setq ob9 (entlast))<br /> (setq pt13 (list (+ temp_xxxx m_length) (- temp_yyyy (/ m_diameter 2))))<br /> (command "rectang" pt11 pt13)<br /> (setq ob10 (entlast))<br /> (command "layer" "m" "2" "ON" "2" "c" "red" "2" "L" "center" "2" "")<br /> (command "line" (polar pt0000 (* -1 pi) (/ m_diameter 8)) (polar pt0000 0 (+ m_length (/ m_diameter 8))) "")<br /> (setq ob11 (entlast))<br /> (if (= m_direction 0)<br />   (progn<br />    (command "mirror" ob8 ob9 ob10 ob11 "" pt0000 pt12 "Y")<br />    (setq ob12 (entlast))<br />    (command "move" ob8 ob9 ob10 ob11 ob12 "" pt0000 (polar pt0000 0 m_length))<br />   ))<br /> (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")<br /> (princ)<br /> )

guo.txt
tt   D   L   x   y   B   A
t1   60  15  0   0   2   45
t2   55 12.5 0   0   2   45
t3   60  15  0   0   2   45
t4   50  10  0   0   2   45

Underway

(setq f1 (open "guo.txt" "r"))

====>
(setq f1 (open (findfile "guo.txt") "r"))

guo.txt 需在支援路径下