Question

autolisp 加载时 ; 错误: 参数类型错误: stringp nil

(defun c:123 ( )
(setq dcl_ia ( load_dialog "H:/lisp/gear.dcl"))
(setq what_next 2)
(while (>= what_next 2)
(if (not ( new_dialog "geardcl" dcl_ia))
(exit)
)
(action_tile "accept" "(getdata)(done_dialog 1)")
(setq what_next(start_dialog))
(if(= what_next 1)
((draw))
)
)
(unload_dialog dcl_ia)
(princ)
)

(defun getdata ()
(setq m (atof (get_tile "m")))
(setq z (atof (get_tile "z")))
(setq h (atof (get_tile "h")))
(setq zj(atof (get_tile "zj")))
(setq lf (atof (get_tile "lf")))
)
大神帮下忙 很着急

Answer 1

((draw))

感觉这个地方错了。外层括号应该褪去。

Answer 2

"H:/lisp/gear.dcl" 把这个一起上传上来，好看出问题