(完整版)CAD坐标批量提取.docVIP

CAD坐标数据批量导出小工具 这个是利用 cad 二次开发编写的一个 lisp ，以下是程序，如果想修改 坐标提取的的 excel ，可将下面红色背景的路径改一下 (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 命令来运行本