本人是搞CAD桩基工程的，在做cad的自动提取坐标时候遇到了一点小麻烦，请各位大侠，大哥，大姐帮帮小弟解决问题谢谢了。。
是这样的：在网上我弄了个CAD自动提取坐标插件，
插件代码是：
(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 "X=" (rtos (nth 0 p)))
y (strcat "Y=" (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)
出现的问题有：1,、在CAD上不能直接显示桩号，能不能来个自动编桩号的插件？？
2、就是生成的格式我想改成这种的
图片:111.JPG[
删除]（列子）
就这么些问题，希望能懂语言编程的能帮帮我修改一下，谢谢了！！！
