当前位置： 文档下载 > 所有分类 > IT/计算机 > 计算机软件及应用 > 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 1 p)))
y (strcat "Y=" (rtos (nth 0 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文件夹下后可自动加载(cad2006不支持自动加载）。
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
CAD坐标数据批量导出,坐标生成曲线_机械/仪表_工程科技_专业资料。CAD坐标数据批量导出,坐标生成曲线CAD 坐标数据批量导出小工具 (defun c:md() (setvar "cmdecho...
CAD坐标批量提取_计算机软件及应用_IT/计算机_专业资料。cad坐标批量提取,附带小工具,lisp开发CAD 坐标数据批量导出小工具 这个是利用 cad 二次开发编写的一个 lisp...
CAD坐标数据批量导出小工具 (defun c:QQ() (setvar "cmdecho" 0) (COMMAND ".UNDO" "BE") (command "-units" "2" "3" "2" "3" "" "") (setq...
CAD坐标自动导出_建筑/土木_工程科技_专业资料。CAD坐标自动导出插件CAD坐标数据批量导出小工具 (defun c:md() (setvar "cmdecho" 0) (COMMAND ".UNDO" "BE"...
(0), 2) 网上有个Lisp的: CAD坐标数据批量导出小工具 (defun c:md() (setvar "cmdecho" 0) (COMMAND ".UNDO" "BE") (command "-units" "2" "3"...
(施工经验)提取cad点坐标生成表格并至excel_计算机软件及应用_IT/计算机_专业资料。提取 cad 点坐标生成表格并至 excel CAD 坐标数据批量导出小工具 (defun c:md...
7 方法二: CAD 坐标数据批量导出小工具 (defun c:md() (setvar "cmdecho" 0) (COMMAND ".UNDO" "BE") (command "-units" "2" "3" "2" "3" ""...
CAD 坐标数据批量导出小工具 (defun c:md() (setvar "cmdecho" 0) (COMMAND ".UNDO" "BE") (command "-units" "2" "3" "2" "3" "" "") (...
批量坐标值导入CAD图纸中生成点 情况二:CAD图纸中导出批量点坐标(工具:贱人工具...CAD中批量输入坐标的方法... 2页 免费 Excel点坐标点号数据导入... 2页 免费...
热门文档