请求帮助

zhhui3297

我抄了一个程序，怎么都运行不了，自已检查不出来，请求帮助，程序如下： (defun c:load_fl (/ dcl_id rd rj rx d x y cp n1 a a1 pt)
(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)
(princ)
(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 "\n 螺栓孔太大")
(draw1)
)
)
)
)
)
)
)
)
(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 (atof (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")
(command "layer" "m" 1 "c" 1 "" "")
(command "circle" cp rj)
(command "layer" "m" 0 "on" "" "")
)

wdb

将c_fl.dcl文件放到搜索路径上。

zhhui3297

wdb:how are you.


为什么要放到autocad 下的suppot文件里？