CAD坐标数据批量导出小工具.pdf

《CAD坐标数据批量导出小工具.pdf》由会员分享，可在线阅读，更多相关《CAD坐标数据批量导出小工具.pdf（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选取节点！)x(strcat X=

2、(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.lsp 2、打开 CAD并加载这个小程序（在命令行输入appload，选择加载 md.lsp 程序），将 md.lsp复制在 support文件夹下后可自动加载。3、输入 md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD文件，关闭CAD，打开 D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel 文件，打开，如下格式桩号X坐标值Y坐标值k1 X=1073.205 Y=1028.341 k2 X=2193.676 Y=922.327 k3 X=1752.278 Y=595.802 桩号X坐标值Y坐标值1 X=877.972 Y=1257.333 2 X=2360.883 Y=1257.333 3 X=1578.266 Y=281.999