Question

lisp错误: 参数类型错误: numberp: nil

(defun c:wwtk()
(setvar "cmdecho" 0) ;防止命令执行过程显示
(dcl_wwtk) ;调用主程序
(prin1);防止nil
)
;主程序
(defun dcl_wwtk()
(setq dcl_id (load_dialog "wwtk"));载入dcl文件付给新值
(new_dialog "wwtk" dcl_id);启动dialog对话框
(action_tile "a0" "(sub_a0)");子程序2
(action_tile "a1" "(sub_a1)")
(action_tile "a2" "(sub_a2)")
(action_tile "a3" "(sub_a3)")
(action_tile "a4h" "(sub_a4h)")
(action_tile "a4z" "(sub_a4z)")
(action_tile "accept" "(done_dialog 1)")
(setq dd (start_dialog))
(if (= dd 1)
(draw_wwtk)
)
)
;子程序2
(defun sub_a0()
(setq ddtype 1)
)
(defun sub_a1()
(setq ddtype 2)
)
(defun sub_a2()
(setq ddtype 3)
)
(defun sub_a3()
(setq ddtype 4)
)
(defun sub_a4h()
(setq ddtype 5)
)
(defun sub_a4z()
(setq ddtype 6)
)
;子程序，调用图框块，修改文字
(defun draw_wwtk()
(setq p1 (getpoint "\n放置点："))
(cond
((= ddtype 1)(command "-insert" "*M:\\lisp\\a0.dwg" p1 "" "" ""))
((= ddtype 2)(command "-insert" "*M:\\lisp\\a1.dwg" p1 "" "" ""))
((= ddtype 3)(command "-insert" "*M:\\lisp\\a2.dwg" p1 "" "" ""))
((= ddtype 4)(command "-insert" "*M:\\lisp\\a3.dwg" p1 "" "" ""))
((= ddtype 5)(command "-insert" "*M:\\lisp\\a4h.dwg" p1 "" "" ""))
((= ddtype 6)(command "-insert" "*M:\\lisp\\a4z.dwg" p1 "" "" ""))
)
)
请各位大神看看错在哪，插入图框的小程序，谢谢

Answer 1

(setq dd (start_dialog))
(unload_dialog dcl_id) ;;于start_dialog后需加入这句