梅花 11:07:10
(defun c:bz (/ *error* name1 name2 name3)
(defun *error* (msg) ;将描述错误的字符串存入变量msg
(entdel name1)
(entdel name2)
(if name3
(entdel name3)
)
(princ "错误: ")
(princ msg)
) ;打印错误信息
(setq ty (getvar "TEXTSTYLE"))
(setq kd1 (caadr (textbox (list (0 "text")
(cons 1 txt1)
(cons 40 300)
(cons 41 0.7)
(cons 7 ty)
)
)
)
)加载以上代码时,提示错误: *error* 函数中出错参数类型错误: lentityp nil 请帮忙查找一下吧 谢谢 |