各位大哥，帮忙看程序，万分感激

lhb412728

为什么对话框输入数据后不能划出所需要的图形，敬请高手帮忙看一下！ 结果控制器出现提示错误：函数被取消

lhb412728

lhb412728

咋就没人会呢？俺是初学者，不要因为俺问题简单就不理俺吧

ljpnb

2. (defun c:load_fl (/ dcl_id jx y n1 n R r d a al rj)
3.    (setq dcl_id (load_dialog "c_fl.dcl"))
4.    (if (not (new_dialog "c_fl" dcl_id))
5.        (exit)
6.    )
7.    (action_tile "begin" "(data_manage)")
8.    (start_dialog)
9.    (unload_dialog dcl_id)   
10.    (if (< rd rx)
11.        (prompt "\n内孔半径大于外圆半径")
12.        (if  (< rd rj)
13.            (prompt "\n节圆半径大于外圆半径")
14.            (if (> rx rj)
15.   (prompt "\n节圆半径小于内圆半径 ")
16.   (if (or (> (* 0.5 d) (- rd rj)) (> (* 0.5 d) (- rj rx)))
17.      (prompt "\螺栓孔太大 ")
18.      (draw1)
19.   )
20.            )
21.        )
22.    )
23.   (princ)
24. )
25. (defun data_manage ()
26.    (setq x (atof (get_tile "cpx")))
27.    (setq y (atof (get_tile "cpy")))
28.    (setq cp (list x y))
29.    (setq rd (atof (get_tile "wb")))
30.    (setq rx (atof (get_tile "nb")))
31.    (setq rj (atof (get_tile "jb")))
32.    (setq d (atof (get_tile "kz")))
33.    (setq n1 (atoi (get_tile "ksh")))
34.    (setq n (float n1))
35.    (setq a1 (atof (get_tile "angle")))
36.    (setq a (* pi (/ a1 180)))
37.    (setq pt (polar cp a rj))
38. )
39. (defun draw1 ()
40.    (command "circle" cp rd)
41.    (command "circle" cp rx)
42.    (command "circle" pt "D" d)
43.    (command "-array" "l" "" "p" cp n1 "" "y");_这儿是"l"不是"1"
44.    (command "layer" "m" 1 "c" 1 "" "")
45.    (command "circle" cp rj)
46.    (command "layer" "m" 0 "on" "" "")
47. )

(defun c:load_fl (/ dcl_id jx y n1 n R r d a al rj)    (setq dcl_id (load_dialog "c_fl.dcl"))    (if (not (new_dialog "c_fl" dcl_id))        (exit)    )    (action_tile "begin" "(data_manage)")    (start_dialog)    (unload_dialog dcl_id)       (if (< rd rx)        (prompt "\n内孔半径大于外圆半径")        (if  (< rd rj)            (prompt "\n节圆半径大于外圆半径")            (if (> rx rj)   (prompt "\n节圆半径小于内圆半径 ")   (if (or (> (* 0.5 d) (- rd rj)) (> (* 0.5 d) (- rj rx)))      (prompt "\螺栓孔太大 ")      (draw1)   )            )        )    )   (princ) ) (defun data_manage ()    (setq x (atof (get_tile "cpx")))    (setq y (atof (get_tile "cpy")))    (setq cp (list x y))    (setq rd (atof (get_tile "wb")))    (setq rx (atof (get_tile "nb")))    (setq rj (atof (get_tile "jb")))    (setq d (atof (get_tile "kz")))    (setq n1 (atoi (get_tile "ksh")))    (setq n (float n1))    (setq a1 (atof (get_tile "angle")))    (setq a (* pi (/ a1 180)))    (setq pt (polar cp a rj)) ) (defun draw1 ()    (command "circle" cp rd)    (command "circle" cp rx)    (command "circle" pt "D" d)    (command "-array" "l" "" "p" cp n1 "" "y");_这儿是"l"不是"1"    (command "layer" "m" 1 "c" 1 "" "")    (command "circle" cp rj)    (command "layer" "m" 0 "on" "" "") )