[讨论][1129]如何减少此程式判断错误?

xyz518mm

[讨论][1129]如何减少此程式判断错误?

如何减少pbox 程式判断错误?
当下面程序如果中途停止出现
[函数被取消] 或是 [损坏的引数类型: stringp nil]
该怎样处理不出现这问题呢?

另外若是可以该怎样在中途停止时使用 alert函数对话框
来显示执行错误或停止的讯息

烦请各位高手解答讨论一下
谢谢

(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
;以下 pa、ww、hh 值须由使用者输入
(setq pa (getpoint "Enter Left/Low Point:"))
(setq ww (getdist pa "\nWidth:"))
(setq hh (getdist pa "\nHeight:"))
;以下pb、pc、pd值须由程式依据pa、ww、hh求出
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
;以下依据 pa、pb、pc、pd 点画矩形
(command "pline" pa pb pc pd "c")
;以下mp1、mp2、mp3、mp4值须由程式依据pa、ww、hh & pb、pc、pd 值求出
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
;以下依据 mp1、mp2、mp3、mp4 点画出二条线
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
(prin1)
)