(defun c:md()
(setvar "cmdecho" 0)
(COMMAND ".UNDO" "BE")
(command "-units" "2" "3" "2" "3" "" "")
(setq fp (open "d:/钉号坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总钉数！ "))
(princ "钉号" fp)(princ "\t" fp)
(princ "X坐标值" fp)(princ "\t" fp)
(princ "Y坐标值" fp)(princ "\n" fp)
(repeat n
(setq k (getstring "\n钉号（如：K1）！")
p (getpoint "\n选钉位！")
x (strcat "" (rtos (nth 0 p)))
y (strcat "" (rtos (nth 1 p))))
(princ k fp)(princ "\t" fp)
(princ x fp)(princ "\t" fp)
(princ y fp)(princ "\n" fp))
(close fp)
(setvar "cmdecho" s))
(princ "\n提示：输入 MD 命令来运行本程序！")
(princ)