《CAD坐标数据批量导出小工具》由会员分享，可在线阅读，更多相关《CAD坐标数据批量导出小工具（2页珍藏版）》请在金锄头文库上搜索。
1、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选取节点！)
2、 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、 打开记事本，粘贴以上代码，然后保存成 md.lsp2、 打开CAD并加载这个小程序（在命令行输入appload，选择加载md.lsp程序），将md.lsp复制在support文件夹下后可自动加载。3、 输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel文件，打开，如下格式桩号X坐标值Y坐标值k1X=1073.205Y=1028.341k2X=2193.676Y=922.327k3X=1752.278Y=595.802桩号X坐标值Y坐标值1X=877.972Y=1257.3332X=2360.883Y=1257.3333X=1578.266Y=281.999
