[LISP函数]：我写的lisp代码

mapinfo600

;;input data of attrib
;;用于房产面积属性标注的程序，

(defun c:attsx()
(setq p1 (getpoint "点取插入点："))
(if (= p1 nil)
(setq p1 (getpoint "点取插入点："))
)
(if filevalue (progn
(setq dmj (getreal "\n 输入面积值："))
(if (= dmj nil)
(setq dmj (getreal "输入面积值:"))
)
(setq dcq (getstring "\n 输入房屋属性值:"))
(princ dcq)
(if (<= (strlen dcq) 3)
(setq dcq (getstring "输入房屋属性值:"))
)
(setq dzh (getint "\n 输入幢号："))
(setq dmj (rtos dmj 2 2))
(setq i (/ (float ppscal) 200))
(if (= ppscal 100) ( setq i 1))
(if ( = dmj nil) (setq dmj ""))
(if ( = dcq nil) (setq dcq ""))
(if ( = dzh nil) (setq dzh ""))
(command "insert" mjatt p1 i i "" dmj dcq dzh)
(setq p1 nil
      dcq nil
      dmj nil
      dzh nil
)))
)

masterhe

由于你热心提供代码，我这里给你提点建议，你的代码：
1、应该使用局部变量，而不是最后去setq ... nil
2、应该学会使用initget和while函数，而不是相同代码写两遍
3、应该学会使用出错处理函数
4、应该学会使用系统变量，针对你的这个命令：CMDECHO、ATTREQ、ATTDIA、OSMODE，这4个系统变量是必须设置的

至于上边的系统变量和函数的含义自己查吧。

lingam

非常同意2楼的看法：）