如最简单的绘制田字格的程序:
(defun c:pbox()
(setq pa (getpoint "输入左下角点:"))
(setq ww (getreal "宽度:"))
(setq hh (getreal "高度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" pa pb pc pd "c")
(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)))
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")s
怎样才能逐步调试呢?我想要在调试的时候输入一个点,然后监视变量的值,可无法输入点啊!如果是读入文件数据的程序,又该怎样调试才能看见参数变化呢?
求高手指教!!