求助：“quit/exit abort”问题

yinruch01

本人初学vlisp，碰到一个难题：加载许多vlisp 程序，都会出现提示“quit/exit abort”，在vlisp窗口中检查没有错误，仔细核对代码也无错误，实在是找不出问题之症结，焦急而又无奈。请各位高手不吝赐教，万分感激！

ljpnb

在程序中有这一句 (exit) 的关系，当有个条件不成立时，要求程序退出。程序本身没有错，只是看起来不舒服而已

meflying

这是一个程序退出功能，至于怎么退出的，没有程序，无法知晓

yinruch01

我的程序完全是教材上的例子,按理说应该没有问题,就是搞不清怎么回事,下次我把程序上传,再请各位高手指教! 程序如下： ;这是一个绘制国标垫圈的程序
;垫圈绘制主程序
(defun c:load_dq(/ key image_name dcl_id)
(setq dcl_id (load_dialog "c_dq.dcl"))
(if (< dcl_id 0)
(exit)
)
(if (not (new_dialog "dq" dcl_id))
(exit)
)
(image1 "dq1" "pdq")
(image1 "dq2" "fdq")
(image1 "dq3" "fxdq")
(image1 "dq4" "dedq")
(image1 "dq5" "sedq")
(image1 "dq6" "thdq") (action_tile "dq1" "(setq dq 1)");action_tile是专门响应用户动作的函数
(action_tile "dq2" "(setq dq 2)")
(action_tile "dq3" "(setq dq 3)")
(action_tile "dq4" "(setq dq 4)")
(action_tile "dq5" "(setq dq 5)")
(action_tile "dq6" "(setq dq 6)")
(action_tile "accept" "(done_dialog)") (start_dialog)
(unload_dialog dcl_id)
(prin1)

(command "layer" "m" 1 "c" 1 "" "l" "acad_iso04w100" "" "")
(cond
((= dq 1) (draw_dq1))
((= dq 2) (draw_dq2))
((= dq 3) (draw_dq3))
((= dq 4) (draw_dq4))
((= dq 5) (draw_dq5))
((= dq 6) (draw_dq6))
)
) ;填入幻灯片的子程序 (defun image1 (key image_name / x y)
(start_image key)
(setq x (dimx_tile key)
y (dimy_tile key)
)
(fill_image 0 0 x y 131)
(slide_image 0 0 x y image_name)
(end_image)
) ;绘制圆平垫圈
(defun draw_dq1(/b d cp d1 d2 d3)
(setq b (list (list 1.6 1.7 4 0.3)
(list 2 2.2 5 0.3)
(list 2.5 2.7 6 0.5)
(list 3 3.2 7 0.5)
(list 4 4.3 9 0.8)
(list 5 5.3 10 1)
(list 6 6.4 12 1.6)
(list 8 9 16 1.6)
(list 10 10.5 20 2)
(list 12 13 24 2.5)
(list 14 15 28 2.5)
(list 16 17 30 3)
(list 20 21 37 3)
(list 24 25 44 4)
(list 30 31 56 4)
(list 36 37 66 5)
)
)
(setq d (getreal "\确定圆垫圈的公称尺寸（内孔直径）
（1.6/2/2.2/3/4/5/6/8/10/12/14/16/20/24/30/36）：")
)
(setq cp (getpoint "\确定圆垫圈的位置："))
(setq d1 (cadr (assoc d b)))
(setq d2 (caddr (assoc d b)))
(setq d3 (cadddr (assoc d b))) (command "layer" "m" 0 "on" "" "")
(command "circle" cp "d" d1)
(command "circle" cp "d" d2)
(command "circle" cp "d" (- d2 d3)) (command "layer" "m" 1 "on" "" "")
(command "line" (list (car cp) (- (cadr cp) (+ (/ d2 2) 3)))
(list (car cp) (+ (cadr cp) (+ (/ d2 2) 3)))
""
)
(command "line" (list (- (car cp) (+ (/ d2 2) 3)) (cadr cp))
(list (+ (car cp) (+ (/ d2 2) 3)) (cadr cp))
""
)
) ;方垫圈
(defun draw_dq2(/ b d cp d1 a)
(setq b (list (list 6 6.96 16)
(list 8 9.36 18)
(list 10 11.43 22)
(list 12 13.93 28)
(list 16 17.93 35)
(list 18 20.52 40)
(list 20 22.52 40)
(list 22 24.52 40)
(list 24 26.52 50)
(list 27 30.52 50)
(list 30 33.62 60)
(list 36 39.62 70)
)
)
(setq d (getreal "\确定工字钢用方垫圈的公称尺寸（内孔直径）
（6/8/10/12/16/20/22/24/27/30/36）："
)
)
(setq cp (getpoint "\确定工字钢用方垫圈的位置："))
(setq d1 (cadr (assoc d b)))
(setq a (caddr (assoc d b)))
(command "layer" "m" 0 "on" "" "")
(command "circle" cp "d" d1)
(command "rectang"
(list (- (car cp) (/ a 2)) (- (cadr cp) (/ a 2)))
(list (+ (car cp) (/ a 2)) (+ (cadr cp) (/ a 2)))
)
(command "layer" "m" 1 "on" "" "")
(command "line"
(list (car cp) (- (cadr cp) (+ (/ a 2) 3)))
(list (car cp) (+ (cadr cp) (+ (/ a 2) 3)))
""
)
(command "line"
(list (- (car cp) (+ (/ a 2) 3)) (cadr cp))
(list (+ (car cp) (+ (/ a 2) 3)) (cadr cp))
""
)
) ;方斜垫圈 (defun draw_dq3 (/ b d cp d1 a)
(setq b (list (list 6 696 16)
(list 8 9.36 18)
(list 10 11.43 22)
(list 12 13.93 28)
(list 16 17.93 35)
(list 18 20.52 40)
(list 20 22.52 40)
(list 22 24.52 40)
(list 24 26.52 50)
(list 27 30.52 50)
(list 30 33.62 60)
(list 36 39.62 70)
)
)
(setq d (getreal "\确定槽钢用方斜垫圈的公称尺寸（内孔直径）
（6/8/10/12/16/20/22/24/27/30/36）："
)
)
(setq cp (getpoint "\确定槽钢用方斜垫圈的位置："))
(setq d1 (cadr (assoc d b)))
(setq a (caddr (assoc d b)))
(command "layer" "m" 0 "on" "" "")
(command "circle" cp "d" d1)
(command "pline"
(list (- (car cp) (/ a 2)) (- (cadr cp) (/ a 2)))
(list (+ (car cp) (/ a 2)) (- (cadr cp) (/ a 2)))
(list (+ (car cp) (/ a 2)) (+ (cadr cp) (/ a 2)))
(list (- (+ 5 (car cp)) (/ a 2)) (+ (cadr cp) (/ a 2)))
(list (- (car cp) (/ a 2)) (- (+ (cadr cp) (/ a 2)) 5))
"c"
)
(command "layer" "m" 1 "on" "" "")
(command "line"
(list (car cp) (- (cadr cp) (+ (/ a 2) 3)))
(list (car cp) (+ (cadr cp) (+ (/ a 2) 3)))
""
)
(command "line"
(list (- (car cp) (+ (/ a 2) 3)) (cadr cp))
(list (+ (car cp) (+ (/ a 2) 3)) (cadr cp))
""
)
)
;弹簧垫圈 (defun draw_dq6 (/ b d cp cp0 d1 d2 m pt1 pt2 pt3 vsin1 vsin2 ang2 ang1 pt4 pt5 pt6)
(setq b (list (list 2.0 2.1 0.5 0.25)
(list 2.5 2.6 0.65 0.33)
(list 3.1 3.1 0.8 0.4)
(list 4.0 4.1 1.1 0.55)
(list 5.0 5.1 1.3 0.65)
(list 6.0 6.1 1.6 0.8)
(list 8.0 8.1 2.1 1.05)
(list 10.0 10.2 2.0 1.3)
(list 12.0 12.2 3.1 1.55)
(list 14.0 14.2 3.6 1.8)
(list 16.0 16.2 4.1 2.05)
(list 18.0 18.2 4.5 2.25)
(list 20.0 20.2 5.0 2.5)
(list 22.0 22.5 5.5 2.75)
(list 24.0 24.5 6.0 3.0)
(list 27.0 27.5 6.8 3.4)
(list 30.0 30.5 7.5 3.75)
(list 33.0 33.5 8.5 4.25)
(list 36.0 36.5 9.0 4.5)
(list 39.0 39.5 10.0 5.0)
(list 42.0 42.5 10.5 5.25)
(list 45.0 45.5 11.0 5.5)
(list 48.0 48.5 12.0 6.0)
)
)
(setq d (getreal "\确定弹簧垫圈的公称尺寸（内孔直径）
（2/2.5/3/4/5/6/8/10/12/14/16/18/20/22/24/27/30/33/36/39/42/45/48）："
)
)
(setq cp (getpoint "\确定弹簧垫圈的位置："))
(setq d1 (nth 1 (assoc d b)))
(setq d2 (+ d1 (* 2 (nth 2 (assoc d b)))))
(setq m (nth 3 (assoc d b)))
(setq vsin1 (/ (/ m 2) (/ d1 2)))
(setq cp0 (list 0 0))
(setq ang1 (atan (sqrt (/ (* vsin1 vsin1) (- 1 (* vsin1 vsin1))))))
(setq pt1 (polar cp ang1 (/ d1 2)))
(setq pt3 (polar cp (- (* 2 pi) (* 2 ang1)) (/ d1 2)))
(setq pt2 (polar cp (- (* 2 pi) ang1) (/ d1 2)))
(setq vsin2 (/ (/ m 2) (/ d2 2)))
(setq ang2 (atan (sqrt (/ (* vsin2 vsin2) (- 1 (* vsin2 vsin2))))))
(setq pt6 (polar cp ang2 (/ d2 2)))
(setq pt4 (polar cp (- (* 2 pi) (* 2 ang2)) (/ d2 2)))
(setq pt5 (polar cp (- (* 2 pi) ang2) (/ d2 2)))
(command "layer" "m" 1 "on" "" "")
(command "line" (list (nth 0 cp) (+ (nth 1 cp) 3 (/ d2 2)))
(list (nth 0 cp) (- (nth 1 cp) 3 (/ d2 2)))
""
)
(command "move" "l" "" cp0 cp)
(command "line" (list (- (nth 0 cp) 3 (/ d2 2)) (nth 1 cp))
(list (+ (nth 0 cp) 3 (/ d2 2)) (nth 1 cp))
""
)
(command "move" "l" "" cp0 cp)
(command "layer" "m" 0 "on" "" "")
(command "arc" pt1 "e" pt2 "a"
(/ (* 180 (- (* pi 2) ang1 ang1)) pi)
)
(command "move" "l" "" cp0 cp)
(command "arc" pt6 "e" pt5 "a"
(/ (* 180 (- (* pi 2) ang2 ang2)) pi)
)
(command "move" "l" "" cp0 cp)
(command "line" pt1 pt6 "")
(command "move" "l" "" cp0 cp)
(command "line" pt2 pt5 "")
(command "move" "l" "" cp0 cp)
(command "line" pt3 pt4 "")
(command "move" "l" "" cp0 cp)
)
;单耳止动垫圈
(defun draw_dq4(/ b d cp cp0 dd b1 pt1 pt2 pt3 vsin ang1 pt4 pt5 pt6 pt7)
(setq b (list (list 2.5 2.7 10.0 3.0 6.0 8.0 2.5)
(list 3.0 3.2 12.0 4.0 7.0 10.0 2.5)
(list 4.0 4.2 14.0 5.0 9.0 14.0 2.5)
(list 5.0 5.3 16.0 6.0 11.0 17.0 2.5)
(list 6.0 6.4 18.0 7.0 12.0 19.0 4.0)
(list 8.0 8.4 20.0 8.0 16.0 22.0 4.0)
(list 10.0 10.5 22.0 10.0 19.0 26.0 6.0)
(list 12.0 13.0 28.0 12.0 21.0 32.0 10.0)
(list 14.0 15.0 28.0 12.0 25.0 32.0 10.0)
(list 16.0 17.0 32.0 15.0 32.0 40.0 10.0)
(list 18.0 19.0 36.0 18.0 38.0 45.0 10.0)
(list 20.0 21.0 36.0 18.0 38.0 45.0 10.0)
(list 22.0 23.0 42.0 20.0 39.0 50.0 10.0)
(list 24.0 25.0 42.0 20.0 42.0 50.0 10.0)
(list 27.0 28.0 48.0 24.0 48.0 58.0 16.0)
(list 30.0 31.0 52.0 26.0 55.0 63.0 16.0)
(list 36.0 37.0 62.0 30.0 65.0 75.0 16.0)
(list 42.0 43.0 70.0 35.0 78.0 88.0 16.0)
(list 48.0 50.0 80.0 40.0 90.0 100.0 16.0)
)
)
(setq d (getreal "\确定单耳止动垫圈的公称尺寸（内孔直径）
（2.5/3/4/5/6/8/10/12/14/16/18/20/22/24/27/30/36/42/48）："
)
)
(setq cp (getpoint "\确定单耳止动垫圈的位置："))
(setq b1 (nth 4 (assoc d b)))
(setq dd (nth 5 (assoc d b)))
(setq pt1 (list (/ dd 2) 0))
(setq cp0 (list 0 0))
(setq pt2 (list (sqrt (- (* (/ dd 2) (/ dd 2)) (* (/ b1 2) (/ b1 2))))
(/ b1 2)
)
)
(setq pt3 (list (- 0 (nth 0 pt2)) (nth 1 pt2)))
(setq vvsin (/ (+ (nth 6 (assoc d b)) (/ (nth 3 (assoc d b)) 2))
(+ (nth 6 (assoc d b)) (/ dd 2))
)
)
(setq ang1 (stan (sqrt (/ (* vsin vsin) (- 1 (* vsin vsin))))))
(setq pt4 (polar cp0 (- pi ang1) (/ dd 2)))
(setq pt5
(list (* (+ (nth 6 (assoc d b)) (/ dd 2)) (cos (- pi ang1)))
(/ (nth 3 (assoc d n)) 2)
)
)
(setq pt6 (list (* (nth 2 (assoc d b)) -1) (/ (nth 3 (assoc d n)) 2)))
(setq pt7 (list (* (nth 2 (assoc d b)) -1) 0))

(command "line" (list (+ 3 (car pt1)) 0)
(list (- (car pt7) 3) 0)
""
)
(command "move" "l" "" cp0 cp)
(command "line" (list 0 (+ 3 (cadr pt2)))
(list 0 (- 0 (+ 3 (cadr pt2))))
""
)
(command "move" "l" "" cp0 cp)
(command "layer" "m" 0 "on" "" "")
(command "circle" "0,0" "D" (nth 1 (assoc d b)))
(command "move" "l" "" cp0 cp)
(command "arc" pt1 "e" pt2 "R" (/ dd 2))
(command "move" "l" "" cp0 cp)
(command "mirror" "l" "" cp "@10,0" "")
(command "arc" pt3 "e" pt4 "R" (/ dd 2))
(command "move" "l" "" cp0 cp)
(command "mirror" "l" "" cp "@10,0" "")
(command "pline" pt5 pt6 pt7 "")
(command "move" "l" "" cp0 cp)
(command "mirror" "l" "回复 支持 反对

使用道具 举报

• 显身卡

ZZXXQQ

(EXIT)和(QUIT)函数未定义。这是AutoCAD的问题，LISP书中的说明很明确。因此最好不用该函数。

meflying

楼上的话怎么听不明白???不知道你从什么书上看的, (exit)在此处的用法帮助文件中都是这样的,也不觉得有什么不妥


楼主的问题可能是没有c_dq.dcl文件,或者此文件不在CAD的搜索路径之下...

yinruch01

楼主的问题可能是没有c_dq.dcl文件,或者此文件不在CAD的搜索路径之下...

       


c_dq.dcl文件是有，是否必须在support文件夹下？

meflying

为什么不去试一下先?

yinruch01

试了还是不行啊！ 另外一个程序也是这个问题！ 现在这两个程序都保存在SUPPORT下自建的一个文件夹中，并在AutoCAD选项中增加了这一支持搜索路径。 如下： ;轴段绘制程序 ;特征(a)程序
(defun feature1 (/ p1 p2 p3 p4 pc1 pc2) ;定义绘图函数feature1
;计算轴段的四个顶点坐标，使用polar函数获取相对于start(起始点)的其他点坐标。
;其中alpha为旋转角；d为直径；pi为常数，即3.1415926；L为轴段长。
(setq p1 (polar start (+ alpha (* 0.5 pi)) (/ d 2.0))
p2 (polar start (+ alpha (* -0.5 pi)) (/ d 2.0))
p3 (polar p1 alpha L)
p4 (polar p2 alpha L)
)
(command "layer" "s" "draw" "") ;设定绘图的图层draw
(command "pline" p1 "w" 0.1 "" p3 p4 p2 "c1")
;使用pline命令绘制特征，线宽设定为0.1，并使用“c1”将特征封闭。
(setq ss (ssadd (entlast))) ;将绘制的图形赋给选择集ss ;绘制中心线 (command "layer" "s" "center" "") ;设定绘图的图层center
(setq pc1 (polar start (+ alpha pi) 5.0)) ;计算中心线的起点坐标
(setq pc2 (polar pc1 alpha (+ L 10.0))) ;计算中心线的终点纵坐标
(command "line" pc1 pc2 "") ;绘制中心线
(setq ss1 (ssadd (entlast))) ;将绘制的图形赋给选择集ss1
) ;特征(b)程序
(defun feature2 (/ p1 p2 p3 p4 p3b p4b pc1 pc2) ;定义绘图函数feature2
;计算轴段的四个顶点坐标，使用polar函数获取相对于start(起始点)的其他点坐标。
;其中alpha为旋转角；d为直径；pi为常数，即3.1415926；L为轴段长。
(setq
a (* pi (/ 45.0 180.0)) ;换算角度为弧度
p3b (polar start alpha b)
p4b (polar start alpha b)
p3 (polar p3b (+ alpha (* 0.5 pi)) (/ d 2.0))
p4 (polar p4b (+ alpha (* -0.5 pi)) (/ d 2.0))
p1 (polar p3 (+ alpha (+ pi a)) (/ b (cos a)))
p2 (polar p4 (+ alpha (- pi a)) (/ b (cos a))) )
(command "layer" "s" "draw" "") ;设定绘图的图层draw
(command "pline" p3 "w" 0.1 "" p1 p2 p4 "c1")
;使用pline命令绘制特征，线宽设定为0.1，并使用“c1”将特征封闭。
(setq ss (ssadd (entlast))) ;将绘制的图形赋给选择集ss
(setq p1 (polar p3 alpha (- L (* 2.0 b)))
p2 (polar p4 alpha (- L (* 2.0 b)))
)
(command "pline" p3 p1 p2 p4 "")
(setq ss (ssadd (entlast) ss))
(setq p3 (polar p1 (- alpha a) (/ b (cos a)))
p4 (polar p2 (+ alpha a) (/ b (cos a)))
)
(command "pline" p1 p3 p4 p2 "")
(setq ss (ssadd (entlast) ss)) ;绘制中心线 (command "layer" "s" "center" "") ;设定绘图的图层center
(setq pc1 (polar start (+ alpha pi) 5.0)) ;计算中心线的起点坐标
(setq pc2 (polar pc1 alpha (+ L 10.0))) ;计算中心线的终点纵坐标
(command "line" pc1 pc2 "") ;绘制中心线
(setq ss1 (ssadd (entlast))) ;将绘制的图形赋给选择集ss1
) ;特征(c)程序
(defun feature3 (/ p1 p2 p3 p4 p3b p4b pc1 pc2) ;定义绘图函数feature3
;计算轴段的四个顶点坐标，使用polar函数获取相对于start(起始点)的其他点坐标。
;其中alpha为旋转角；d为直径；b为倒角大小；pi为常数，即3.1415926；L为轴段长；L1为键槽长；L2为键槽与轴端的距离。
(setq
a (* pi (/ 45.0 180.0)) ;换算角度为弧度
p3b (polar start alpha b)
p4b (polar start alpha b)
p3 (polar p3b (+ alpha (* 0.5 pi)) (/ d 2.0))
p4 (polar p4b (+ alpha (* -0.5 pi)) (/ d 2.0))
p1 (polar p3 (+ alpha (+ pi a)) (/ b (cos a)))
p2 (polar p4 (+ alpha (- pi a)) (/ b (cos a))) )
(command "layer" "s" "draw" "") ;设定绘图的图层draw
(command "pline" p3 "w" 0.1 "" p1 p2 p4 "c1")
;使用pline命令绘制特征，线宽设定为0.1，并使用“c1”将特征封闭。
(setq ss (ssadd (entlast))) ;将绘制的图形赋给选择集ss
(setq p1 (polar p3 alpha (- L b))
p2 (polar p4 alpha (- L b))
)
(command "pline" p3 "w" 0.1 "" p1 p2 p4 "")
(setq ss (ssadd (entlast))) ;绘制键槽部分
(setq pk0 (polar start alpha L2)
pk1 (polar pk0 (+ alpha (* 0.25 pi)) (* (sqrt 2.0) (/ w 2.0)))
pk2 (polar pk0 (+ alpha (* -0.25 pi)) (* (sqrt 2.0) (/ w 2.0)))
pk3 (polar pk1 alpha (- L1 w))
pk4 (polar pk2 alpha (- L1 w))
pk5 (polar pk0 alpha l1)
)
(command "pline"
pk2
"w"
0.1
""
pk4
"arc"
"radius"
(/ w 2.0)
pk5
pk3
"line"
pk1
"arc"
"radius"
(/ w 2.0)
pk0
"c1"
)
(setq ss (ssadd (entlast) ss)) ;绘制中心线 (command "layer" "s" "center" "") ;设定绘图的图层center
(setq pc1 (polar start (+ alpha pi) 5.0)) ;计算中心线的起点坐标
(setq pc2 (polar pc1 alpha (+ L 10.0))) ;计算中心线的终点纵坐标
(command "line" pc1 pc2 "") ;绘制中心线
(setq ss1 (ssadd (entlast))) ;将绘制的图形赋给选择集ss1
) ;特征(d)程序
(defun feature4 (/ p1 p2 p3 p4 p3b p4b pc1 pc2)
;定义绘图函数feature4
;计算轴段的四个顶点坐标，使用polar函数获取相对于start(起始点)的其他点坐标。
;其中alpha为旋转角；d为直径；b为倒角大小；pi为常数，即3.1415926；L为轴段长；L1为键槽长。
(setq
a (* pi (/ 45.0 180.0)) ;换算角度为弧度
p1 (polar start (+ alpha (* 0.5 pi)) (/ d 2.0))
p2 (polar start (+ alpha (* -0.5 pi)) (/ d 2.0))
p3 (polar p1 alpha (- L b))
p4 (polar p2 alpha (- L b))
p3b (polar start alpha (- L b))
p4b (polar start alpha (- L b))
p3b (polar p3b (+ alpha (* 0.5 pi)) (/ w 2.0))
p4b (polar p4b (+ alpha (* -0.5 pi)) (/ w 2.0))
)
(command "layer" "s" "draw" "") ;设定绘图的图层draw
(command "pline" p4b "w" 0.1 "" p4 p2 p1 p3 p3b "")
;使用pline命令绘制特征，线宽设定为0.1，并使用“c1”将特征封闭。
(setq ss (ssadd (entlast))) ;将绘制的图形赋给选择集ss
(setq p1 (polar p3 (- alpha a) (/ b (cos a)))
p2 (polar p4 (+ alpha a) (/ b (cos a)))
)
(command "pline" p3 p1 p2 p4 "")
(setq ss (ssadd (entlast) ss)) ;计算键槽的特征并绘制键槽
(setq pk0 (polar start alpha (- L L1))
pk1 (polar pk0 (+ alpha (* 0.25 pi)) (* (sqrt 2.0) (/ w 2.0)))
pk2 (polar pk0 (+ alpha (* -0.25 pi)) (* (sqrt 2.0) (/ w 2.0)))
pk3 (polar pk1 alpha (- L1 (/ w 2.0)))
pk4 (polar pk2 alpha (- L1 (/ w 2.0)))
)
(command "pline"
pk2
"w"
0.3
""
pk4
pk3
"line"
pk1
"arc"
"radius"
(/ w 2.0)
pk0
"c1"
)
(setq ss (ssadd (entlast) ss)) ;绘制中心线 (command "layer" "s" "center" "") ;设定绘图的图层center
(setq pc1 (polar start (+ alpha pi) 5.0)) ;计算中心线的起点坐标
(setq pc2 (polar pc1 alpha (+ L 10.0))) ;计算中心线的终点纵坐标
(command "line" pc1 pc2 "") ;绘制中心线
(setq ss1 (ssadd (entlast))) ;将绘制的图形赋给选择集ss1
)
;特征(e)程序 (defun feature5 (/ p1 p2 p3 p4 p3b p4b pc1 pc2) ;定义绘图函数feature5
;计算轴段的四个顶点坐标，使用polar函数获取相对于start(起始点)的其他点坐标。
;其中alpha为旋转角；d为直径；pi为常数，即3.1415926；L为轴段长。
(setq
a (* pi (/ 45.0 180.0)) ;换算角度为弧度
p3b (polar start alpha b)
p4b (polar start alpha b)
p3 (polar p3b (+ alpha (* 0.5 pi)) (/ d 2.0))
p4 (polar p4b (+ alpha (* -0.5 pi)) (/ d 2.0))
p1 (polar p3 (+ alpha (+ pi a)) (/ b (cos a)))
p2 (polar p4 (+ alpha (- pi a)) (/ b (cos a))) )
(command "layer" "s" "draw" "") ;设定绘图的图层draw
(command "pline" p3 "w" 0.1 "" p1 p2 p4 "c1")
;使用pline命令绘制特征，线宽设定为0.1，并使用“c1”将特征封闭。
(setq ss (ssadd (entlast))) ;将绘制的图形赋给选择集ss
(setq p1 (polar p3 alpha (- L (* 2.0 b)))
p2 (polar p4 alpha (- L (* 2.0 b)))
)
(command "pline" p3 p1 p2 p4 "")
(setq ss (ssadd (entlast) ss))
(setq p3 (polar p1 (- alpha a) (/ b (cos a)))
p4 (polar p2 (+ alpha a) (/ b (cos a)))
)
(command "pline" p1 p3 p4 p2 "")
(setq ss (ssadd (entlast) ss)) ;绘制中心线 (command "layer" "s" "center" "") ;设定绘图的图层center
(setq pc1 (polar start (+ alpha pi) 5.0)) ;计算中心线的起点坐标
(setq pc2 (polar pc1 alpha (+ L 10.0))) ;计算中心线的终点纵坐标
(command "line" pc1 pc2 "") ;绘制中心线
(setq ss1 (ssadd (entlast))) ;将绘制的图形赋给选择集ss1 ;绘制齿轮分度圆的中心线
(setq p6 (polar point (+ alpha (* 0.5 pi)) (* 0.5 d1))
p6 (polar p6 (+ alpha pi) 5.0)
p8 (polar point (+ alpha (* -0.5 pi)) (* 0.5 d1))
p8 (polar p8 (+ alpha pi) 5.0)
p5 (polar p6 alpha (+ L 10.0))
p7 (polar p8 alpha (+ L 10.0))
)
(command "line" p5 p6 "")
(setq ss1 (ssadd (entlast) ss1))
(command "line" p7 p8 "")
(setq ss1 (ssadd (entlast) ss1))
)
;编写主调函数，定义程序所需的局部变量，aug为DCL文件的识别ID标志；
;what为隐藏对话框的动作判断变量，shaft_type为轴段类型；
;d0、d1、L、L1、L2、w及alpha为轴段特征尺寸. (defun shaft(/ aug what shaft_type d0 d1 L L1 L2 w alpha)
(setq shaft_type 1
d0 0
d1 0
L1 0
L2 0
w 0
b 2.0
L 0
alpha 0
)
(setq ss nil
ss1 nil
)
(setq ss (ssadd))
(setq ss1 (ssadd))
(setq start (list 0.0 0.0))
(setvar "cmdecho" 0)
(command "ltscale" 2)
(command "layer" "m" "draw" "c" "white" "" "")
(command "layer" "m" "center" "c" "red" "" "l" "center" "" "")
(command "layer" "m" "dashed" "c" "white" "" "l" "dashed" "" "")
(shaft_start)
(while (< 0 what)
(shaft_action)
(cond
((= what 2) (shaft_pick) (shaft_set))
((= what 1) (shaft_draw))
)
)
(unload_dialog aug)
(setvar "cmdecho" 1)
) ;shaft_action()为控件动作函数
(defun shaft_action()
(action_tile "shaft_type" "(shaft_stype)")
(action_tile "shaft_D" "(shaft_input)")
(action_tile "shaft_L" "(shaft_input)")
(action_tile "shaft_D1" "(shaft_input)")
(action_tile "key_w" "(shaft_input)")
(action_tile "cham_B" "(shaft_input)")
(action_tile "key_L1" "(shaft_input)")
(action_tile "key_L2" "(shaft_input)")
(action_tile "pick_point" "(shaft_input) (done_dialog 2)")
(action_tile "start_X" "(shaft_input)")
(action_tile "start_y" "(shaft_input)")
(action_tile "accept" "(shaft_input) (done_dialog 1)")
(setq what (start_dialog))
) ;设定各控件状态的函数
(defun shaft_set ()
(new_dialog "shaft" aug)
(shaft_vslide
"shaft_image"
(strcat "sha" (itoa shaft_type))
0
)
(set_tile "shaft_D" (rtos d 2 1))
(set_tile "shaft_D1" (rtos d1 2 1))
(set_tile "shaft_L" (rtos L 2 1))
(set_tile "key_w" (rtos w 2 1))
(set_tile "cham_B" (rtos b 2 1))
(set_tile "key_L1" (rtos L1 2 1))
(set_tile "key_L2" (rtos L2 2 1))
(set_tile "start_x" (rtos (car start) 2 1))
(set_tile "start_y" (rtos (cadr start) 2 1))
) ;初始化轴的对话框函数
(defun shaft_start ()
(setq what 5)
(setq aug (load_dialog "shaft1.dcl"))
(if (not (new_dialog "shaft" aug))
(exit)
)
(shaft_vslide "shaft_image" "sha1" 0)
(set_tile "start_x" (rtos (car start) 2 1))
(set_tile "start_y" (rtos (cadr start) 2 1))
(mode)
) ;设定各控件的可操作状态为enable(0)或disable(1)
(defun mode ()
(mode_tile "shaft_D1"
(if (= shaft_type 5)
0
1
)
)
(mode_tile "key_w"
(if (or (= shaft_type 3) (= shaft_type 4))
0
1
)
)
(mode_tile "key_L1"
(if (or (= shaft_type 3) (= shaft_type 4))
0
1
)
)
(mode_tile "key_L2"
(if (= shaft_type 3)
0
1
)
)
(mode_tile "cham_B"
(if (/= shaft_type 1)
0
1
)
)
) ;在对话框上显示幻灯片的函数
(defun shaft_vslide (key s_name n / x y)
(setq x (dimx_tile key))
(setq y (dimy_tile key))
(start_image key)
(fill_image n 0 x y 2)
(slide_image n 0 x y s_name)
(end_image)
) ;选择轴段特征结构函数
(defun shaft_stype ( / what1)
(if (not (new_dialog "stype" aug))
(exit)
)
(shaft_vslide "sh1" "sha1" 0)
(shaft_vslide "sh2" "sha2" 0)
(shaft_vslide "sh3" "sha3" 0)
(shaft_vslide "sh4" "sha4" 0)
(shaft_vslide "sh5" "sha5" 0)
(action_tile "sh1" "(setq shaft_type 1)")
(action_tile "sh2" "(setq shaft_type 2)")
(action_tile "sh3" "(setq shaft_type 3)")
(action_tile "sh4" "(setq shaft_type 4)")
(action_tile "sh5" "(setq shaft_type 5)")
(action_tile "accept" "(done_dialog 0)")
(setq waht1 (start_dialog))
(shaft_vslide
"shaft_image"
(strcat "sha" (itoa shaft_type))
0
)
(mode)
) ;初始化输入的数据的主调函数
(defun shaft_input ()
(setq d (atof (get_tile "shaft_D")))
(setq L (atof (get_tile "shaft_L")))
(setq d1 (atof (get_tile "shaft_D1")))
(setq w (atof (get_tile "key_w")))
(setq b (atof (get_tile "cham_B")))
(setq L1 (atof (get_tile "key_L1")))
(setq L2 (atof (get_tile "key_L2")))
(setq start (list (atof (get_tile "start_x"))
(atof (get_tile "start_y"))
)
)
) ;从屏幕上获取轴的起始点的函数
(defun shaft_pick ()
(command "snap" "1")
(setq start (getpoint "\n 输入轴的起始点："))
) ;调用绘图函数的主调函数
(defun shaft_draw ()
(cond
((= shaft_type 1) (feature1))
((= shaft_type 2) (feature2))
((= shaft_type 3) (feature3))
((= shaft_type 4) (feature4))
((= shaft_type 5) (feature5))
)
(shaft_start)
)

ZZXXQQ

楼主可以将：


(if (not (new_dialog ... ...)) (exit))


改为：


(if (new_dialog ... ...) (progn


...;此处为原语句后的程序


...


)


        (alert "无法载入对话框！")


)


不用(exit)函数就不会出这样的错误了。