[问题]急救：为什么调用函数会发生：Initializing...AutoLISP stack overflow*Cancel*

xyzjint_cn

我自己编写的一个小程序(insertfk下的fk)
我在ACADR14.lsp中加入了如下命令：
(autoload "insertfk" '("fk"))
启动CAD后在命令行中输入:
command:fk
之后出现了以下内容：
Initializing...
Initializing...
Initializing...
Initializing...

(许多条 Initializing...）
Initializing...AutoLISP stack overflow*Cancel*

不知是什么原因引起的。



程序如下：

2. 
   
3. ;; 版权所有 (C) 2002-1-18   徐跃忠
   
4. ;;E-mail:xyzjint_cn@sina.com
   
5. ;;   本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:
   
6. ;;
   
7. ;;   1)  上列的版权通告必须出现在每一份拷贝里。
   
8. ;;   2)  相关的说明文档也必须载有版权通告及本项许可通告。
   
9. ;;
   
10. ;;   本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
    
11. ;;   用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。
    
12. ;;
    
13. ;;
    
14. (defun C:fk ()
    
15.   (princ "\n")
    
16.   (princ "************送风口布置程序************")
    
17.   (princ "\n")
    
18.   (princ "****版权所有 (C) 2002-1-18  徐跃忠****")
    
19.   (princ "\n")
    
20.   (princ "*****E-mail:xyzjint_cn@sina.com*****")
    
21.   (princ "\n")
    
22.   (setq pt1 (getpoint "\n请选择房间的左下角点:")) ;输入房间的左下角点
    
23.   (setq pt2 (getpoint "\n请选择房间的右上角点:")) ;输入房间的右上角点
    
24.   (setq pt3 (list (nth 0 pt1) (nth 1 pt2)))
    
25.   　                                        ;计算左上角的点
    
26.                                         ;(princ "\n")(princ pt3)(princ "\n")
    
27.   (setq pt4 (list (nth 0 pt2) (nth 1 pt1)))
    
28.   　                                        ;计算右下角的点
    
29.                                         ;(princ pt4)(princ "\n")
    
30. 
    
31.   (setq lx (abs (- (nth 0 pt2) (nth 0 pt1)))) ;计算房间长度
    
32.   (setq ly (abs (- (nth 1 pt2) (nth 1 pt1)))) ;计算房间宽度
    
33. 
    
34.   (setq mj (/ (* lx ly) 1000000))        ;计算房间面积
    
35.   (princ "\n")
    
36.   (princ "该房间面积为：")
    
37.   (princ mj)
    
38.   (princ "\n")
    
39. 
    
40.   (setq rh (getreal "\n请输入房间层高(/2.5)：")) ;输入房间的高度
    
41.   (if (= rh nil)
    
42.     (setq rh 2.5)
    
43.   )
    
44. 
    
45.   (setq hc (getreal "\n请输入该房间的换气次数(/25)"))
    
46.                                         ;输入该房间的换气次数
    
47.   (if (= hc nil)
    
48.     (setq hc 25)
    
49.   )
    
50.   (setq fl (* (* mj rh) hc))                ;计算房间所需风量
    
51.   (princ "该房间送风量为：")
    
52.   (princ fl)
    
53.   (princ "\n")
    
54. 
    
55. 
    
56.   (setq pt5x (+ (nth 0 pt1) (/ lx 2.0))) ;房间中点
    
57.   (setq pt5y (+ (nth 1 pt1) (/ ly 2.0)))
    
58.   (setq pt (list pt5x pt5y))
    
59. 
    
60. 
    
61.   (setq mjt (list pt5x (- pt5y 500)))        ;设置房间面积和风量文字的插入点
    
62.   (setq flt (list pt5x (- pt5y 1000)))
    
63.   (setq mj1 (rtos mj 2 1))                ;打出房间面积和风量
    
64.   (setq fl1 (rtos fl 2 1))
    
65.   (command "text" "j" "m" flt 0 fl1)
    
66.   (command "text" "j" "m" mjt 0 mj1)
    
67.   (princ)
    
68. 
    
69.   (setq one "n")
    
70.   (if (< fl 490)
    
71.     (progn
    
72.       (command "insert" "高效送风口GKF-05A" pt 1 1 0)
    
73.       (setq one "Y")
    
74.       (setq hs 1)
    
75.       (setq ls 1)
    
76.     )
    
77.   )
    
78.   (if (and (>= fl 490) (< fl 1000))
    
79.     (progn
    
80.       (command "insert" "高效送风口GKF-10A" pt 1 1 0)
    
81.       (setq one "Y")
    
82.       (setq hs 1)
    
83.       (setq ls 1)
    
84.     )
    
85.   )
    
86. 
    
87.   (princ)
    
88.   (setq key1 "y")
    
89.   (while (= key1 "y")
    
90.     (if        (= one "n")
    
91.       (progn
    
92.         (princ "该房间送风量为：")
    
93.         (princ fl)
    
94.         (princ "\n")
    
95.         (setq hs (getint "\n请输入风口行数(/1)：")) ;输入行数和列数
    
96.         (if (= hs nil)
    
97.           (setq hs 1)
    
98.         )
    
99. 
    
100.         (setq ls (getint "\n请输入风口列数(/1)："))
     
101.         (if (= ls nil)
     
102.           (setq ls 1)
     
103.         )
     
104. 
     
105.         (princ "\n该房间长度为：")
     
106.         (princ lx)                        ;显示房间长度和宽度
     
107.         (princ "\n该房间宽度为：")
     
108.         (princ ly)
     
109. 
     
110.         (setq key "y")
     
111.         (while (= key "y")
     
112.           (setq        b1 0
     
113.                 b2 0
     
114.           )
     
115.           (if (/= hs 1)
     
116.             (setq b1 (getint "\n请输入风口行距(/0)："))
     
117.           )
     
118. 
     
119.           (setq b2 (/ (- ly (* b1 (1- hs))) 2)) ;计算出风口行边距     
     
120.           (princ "\n该房间风口行边距为：")
     
121.           (princ b2)                        ;显示风口行边距        
     
122.           (if (/= ls 1)
     
123.             (setq a1 (getint "\n请输入风口列距(/0)："))
     
124.           )
     
125. 
     
126. 
     
127.           (setq a2 (/ (- lx (* a1 (1- ls))) 2)) ;计算出风口列边距
     
128.           (princ "\n该房间风口列边距为：")
     
129.           (princ a2)                        ;显示风口列边距        
     
130. 
     
131.           (initget "y n")
     
132.           (setq key (getkword "\n需修改风口行、列距吗?(yes or no)"))
     
133. 
     
134.           (if (= key nil)
     
135.             (setq key "no")
     
136.           )
     
137. 
     
138. 
     
139.         )
     
140. 
     
141.         (setq hss hs)
     
142.         (setq ent (ssadd))
     
143.         (while (/= hss 0)
     
144.           (setq lss ls)
     
145.           (while (/= lss 0)
     
146.             (progn
     
147.               (setq ptx (+ (nth 0 pt1) (+ a2 (* a1 (- ls lss)))))
     
148.               (setq pty (+ (nth 1 pt1) (+ b2 (* b1 (- hs hss)))))
     
149.               (setq pt (list ptx pty))
     
150.               (setq lss (1- lss))
     
151.               (command "insert" "高效送风口GKF-10A" pt 1 1 0)
     
152.               (setq ent1 (entlast))
     
153.               (ssadd ent1 ent)
     
154.               (princ)
     
155.             )
     
156.           )
     
157.           (setq hss (1- hss))
     
158.         )
     
159.       )
     
160.     )
     
161.     (initget "y n")
     
162.     (setq key1 (getkword "\n需重新排列风口吗?(yes or no)"))
     
163. 
     
164.     (if        (= key1 nil)
     
165.       (setq key1 "no")
     
166.     )
     
167.     (if        (= key1 "y")
     
168.       (progn
     
169.         (princ "\n请选择需删除的风口:")
     
170. ;        (setq ent (ssget))
     
171. 
     
172.         (if (= ent1 nil)
     
173.           (setq key1 "no")
     
174.         )
     
175.         (if (= key1 "Yes")
     
176.           (command "erase" ent1 "")
     
177.         )
     
178.       )
     
179. 
     
180.     )
     
181.   )
     
182.   (setq fkn (* hs ls))
     
183.   (setq fkfl (/ fl fkn))
     
184.   (princ "\n该房间风口数量为：")
     
185.   (princ fkn)
     
186.   (princ "只")
     
187.   (princ "\n单个风口送风量为：")
     
188.   (princ fkfl)
     
189.   (princ "立方米/小时")
     
190.   (princ)
     
191. )
     

<br /> ;; 版权所有 (C) 2002-1-18   徐跃忠<br /> ;;E-mail:xyzjint_cn@sina.com<br /> ;;   本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:<br /> ;;<br /> ;;   1)  上列的版权通告必须出现在每一份拷贝里。<br /> ;;   2)  相关的说明文档也必须载有版权通告及本项许可通告。<br /> ;;<br /> ;;   本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊<br /> ;;   用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。<br /> ;;<br /> ;;<br /> (defun C:fk ()<br />   (princ "\n")<br />   (princ "************送风口布置程序************")<br />   (princ "\n")<br />   (princ "****版权所有 (C) 2002-1-18  徐跃忠****")<br />   (princ "\n")<br />   (princ "*****E-mail:xyzjint_cn@sina.com*****")<br />   (princ "\n")<br />   (setq pt1 (getpoint "\n请选择房间的左下角点:")) ;输入房间的左下角点<br />   (setq pt2 (getpoint "\n请选择房间的右上角点:")) ;输入房间的右上角点<br />   (setq pt3 (list (nth 0 pt1) (nth 1 pt2)))<br />   　                                        ;计算左上角的点<br />                                         ;(princ "\n")(princ pt3)(princ "\n")<br />   (setq pt4 (list (nth 0 pt2) (nth 1 pt1)))<br />   　                                        ;计算右下角的点<br />                                         ;(princ pt4)(princ "\n")<br /> <br />   (setq lx (abs (- (nth 0 pt2) (nth 0 pt1)))) ;计算房间长度<br />   (setq ly (abs (- (nth 1 pt2) (nth 1 pt1)))) ;计算房间宽度<br /> <br />   (setq mj (/ (* lx ly) 1000000))        ;计算房间面积<br />   (princ "\n")<br />   (princ "该房间面积为：")<br />   (princ mj)<br />   (princ "\n")<br /> <br />   (setq rh (getreal "\n请输入房间层高(/2.5)：")) ;输入房间的高度<br />   (if (= rh nil)<br />     (setq rh 2.5)<br />   )<br /> <br />   (setq hc (getreal "\n请输入该房间的换气次数(/25)"))<br />                                         ;输入该房间的换气次数<br />   (if (= hc nil)<br />     (setq hc 25)<br />   )<br />   (setq fl (* (* mj rh) hc))                ;计算房间所需风量<br />   (princ "该房间送风量为：")<br />   (princ fl)<br />   (princ "\n")<br /> <br /> <br />   (setq pt5x (+ (nth 0 pt1) (/ lx 2.0))) ;房间中点<br />   (setq pt5y (+ (nth 1 pt1) (/ ly 2.0)))<br />   (setq pt (list pt5x pt5y))<br /> <br /> <br />   (setq mjt (list pt5x (- pt5y 500)))        ;设置房间面积和风量文字的插入点<br />   (setq flt (list pt5x (- pt5y 1000)))<br />   (setq mj1 (rtos mj 2 1))                ;打出房间面积和风量<br />   (setq fl1 (rtos fl 2 1))<br />   (command "text" "j" "m" flt 0 fl1)<br />   (command "text" "j" "m" mjt 0 mj1)<br />   (princ)<br /> <br />   (setq one "n")<br />   (if (< fl 490)<br />     (progn<br />       (command "insert" "高效送风口GKF-05A" pt 1 1 0)<br />       (setq one "Y")<br />       (setq hs 1)<br />       (setq ls 1)<br />     )<br />   )<br />   (if (and (>= fl 490) (< fl 1000))<br />     (progn<br />       (command "insert" "高效送风口GKF-10A" pt 1 1 0)<br />       (setq one "Y")<br />       (setq hs 1)<br />       (setq ls 1)<br />     )<br />   )<br /> <br />   (princ)<br />   (setq key1 "y")<br />   (while (= key1 "y")<br />     (if        (= one "n")<br />       (progn<br />         (princ "该房间送风量为：")<br />         (princ fl)<br />         (princ "\n")<br />         (setq hs (getint "\n请输入风口行数(/1)：")) ;输入行数和列数<br />         (if (= hs nil)<br />           (setq hs 1)<br />         )<br /> <br />         (setq ls (getint "\n请输入风口列数(/1)："))<br />         (if (= ls nil)<br />           (setq ls 1)<br />         )<br /> <br />         (princ "\n该房间长度为：")<br />         (princ lx)                        ;显示房间长度和宽度<br />         (princ "\n该房间宽度为：")<br />         (princ ly)<br /> <br />         (setq key "y")<br />         (while (= key "y")<br />           (setq        b1 0<br />                 b2 0<br />           )<br />           (if (/= hs 1)<br />             (setq b1 (getint "\n请输入风口行距(/0)："))<br />           )<br /> <br />           (setq b2 (/ (- ly (* b1 (1- hs))) 2)) ;计算出风口行边距     <br />           (princ "\n该房间风口行边距为：")<br />           (princ b2)                        ;显示风口行边距        <br />           (if (/= ls 1)<br />             (setq a1 (getint "\n请输入风口列距(/0)："))<br />           )<br /> <br /> <br />           (setq a2 (/ (- lx (* a1 (1- ls))) 2)) ;计算出风口列边距 <br />           (princ "\n该房间风口列边距为：")<br />           (princ a2)                        ;显示风口列边距        <br /> <br />           (initget "y n")<br />           (setq key (getkword "\n需修改风口行、列距吗?(yes or no)"))<br /> <br />           (if (= key nil)<br />             (setq key "no")<br />           )<br /> <br /> <br />         )<br /> <br />         (setq hss hs)<br />         (setq ent (ssadd))<br />         (while (/= hss 0)<br />           (setq lss ls)<br />           (while (/= lss 0)<br />             (progn<br />               (setq ptx (+ (nth 0 pt1) (+ a2 (* a1 (- ls lss)))))<br />               (setq pty (+ (nth 1 pt1) (+ b2 (* b1 (- hs hss)))))<br />               (setq pt (list ptx pty))<br />               (setq lss (1- lss))<br />               (command "insert" "高效送风口GKF-10A" pt 1 1 0)<br />               (setq ent1 (entlast))<br />               (ssadd ent1 ent)<br />               (princ)<br />             )<br />           )<br />           (setq hss (1- hss))<br />         )<br />       )<br />     )<br />     (initget "y n")<br />     (setq key1 (getkword "\n需重新排列风口吗?(yes or no)"))<br /> <br />     (if        (= key1 nil)<br />       (setq key1 "no")<br />     )<br />     (if        (= key1 "y")<br />       (progn<br />         (princ "\n请选择需删除的风口:")<br /> ;        (setq ent (ssget))<br /> <br />         (if (= ent1 nil)<br />           (setq key1 "no")<br />         )<br />         (if (= key1 "Yes")<br />           (command "erase" ent1 "")<br />         )<br />       )<br /> <br />     )<br />   )<br />   (setq fkn (* hs ls))<br />   (setq fkfl (/ fl fkn))<br />   (princ "\n该房间风口数量为：")<br />   (princ fkn)<br />   (princ "只")<br />   (princ "\n单个风口送风量为：")<br />   (princ fkfl)<br />   (princ "立方米/小时")<br />   (princ)<br /> )<br />

在循环插入块时将插入的块加入选择集，在需重新布置风口时，将先前插入的块删除，开始重新插入风口。但此步骤不起作用，不知如何更改？
（此程序必须调用(上次我问插入多块问题时上传的文件中的块）
刚接触VLISP编程，见笑了
请XD大侠检查一下我的程序，是否有办法完善一下。

XDSoft

最初由 xyzjint_cn 发布
[B]我自己编写的一个小程序(insertfk下的fk)
我在ACADR14.lsp中加入了如下命令：
(autoload "insertfk" '("fk"))
启动CAD后在命令行中输入:
command:fk
之后出现了以下内容：
Initializing...
Initializing...
... [/B]

把你的程序贴出来吧。

LUCAS

应该是有一autoload循环作load的动作

xyzjint_cn

在插入风口后,如需重新排列风口,先将先前插入的块删除,再继续输入数据.
下面程序解决此问题：
code:   
    (initget "y n")
    (setq key1 (getkword "\n需重新排列风口吗?(yes or no)"))

    (if        (= key1 nil)
      (setq key1 "n")
    )
    (if        (= key1 "y")
      (progn
        (setq pdx (+ (nth 0 pt1) (+ a2)))
        (setq pdy (+ (nth 1 pt1) (+ b2)))
        (setq pd (list pdx pdy))
        (setq blk "高效送风口GKF-10A")
        (setq ent (ssget "c" pt pd (list (cons 2 blk))))
        (command "erase" ent "")
      )
    )
此程序确定左下角和右上角风口的插入点，
根据插入点利用选择集进行风口的过滤删除。