(defun c:md() ,$H[ DX
(setvar "cmdecho" 0) NZ|(# ` X
(COMMAND ".UNDO" "BE") B_kjy=]O.
(command "-units" "2" "3" "2" "3" "" "") nq/SGo[c
(setq fp (open "d:/孔号坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总孔数！ ")) x>ZnQ6x~m]
(princ "孔号" fp)(princ "\t" fp) =ws iC'
(princ "X坐标值" fp)(princ "\t" fp) cZb5h 9
(princ "Y坐标值" fp)(princ "\n" fp) uV|%idC
(repeat n [iO*t, 3@h
(setq k (getstring "\n输入孔号（如：K1）！") &E/0jxM1
p (getpoint "\n选取坐标点！") 7NFRCCXHQ
x (strcat (rtos (nth 0 p))) ?q*,,+'0
y (strcat (rtos (nth 1 p)))) K6 z)&<
(princ k fp)(princ "\t" fp) (#)-IdXXO<
(princ x fp)(princ "\t" fp) m9Pzy^g1
(princ y fp)(princ "\n" fp)) e`7dRnx&0
(close fp) i&di}x
(setvar "cmdecho" s)) 3g{T+c*
(princ "\n提示：输入 MD 命令来运行本程序！") Xc}~_.]
(princ) `mt x+C
这个CAD LISP语言就可以在CAD中直接点击提取点坐标至EXCEL的
