flytoday 发表于 2011-11-21 20:24:04

请问怎么就CAD图中的所有标注提取至EXL表中

请问怎么就CAD图中的所有标注提取至EXL表中

w245272914 发表于 2020-8-17 16:51:25

xujinhua 发表于 2011-11-24 13:50
可以是XECEL
只要把(setq fln (strcat fln ".txt"))
改成    (setq fln (strcat fln ".xls"))


不能导出公差，如上偏差、下偏差

fxlt619 发表于 2020-4-12 10:57:02


要是能提取到excel里，合并并排序就好了？

清水白粥 发表于 2024-10-3 22:15:00

这个没有型号，怎么核对呢 只有尺寸的话

草木堂 发表于 2011-11-21 20:31:17

新手提问，我也是菜鸟，刚提了个问题也等高手回答
帮你顶

flytoday 发表于 2011-11-22 13:27:01

谁知道的说下啊谢谢，，就是根据图层颜色提取标注尺寸标注值至EXL表

许颖瞳 发表于 2011-11-23 00:46:52

发个图上来试下。。。。

cxs259 发表于 2011-11-23 11:26:27

那就来个简单的吧，详见附图，请把标注数据输出为txt,或excel都可以！

zyhandw 发表于 2011-11-23 11:38:24

只要是将全部标注提取出来就行？没有先后顺序？

cxs259 发表于 2011-11-23 12:21:44

可以，这方便核对一些标注了尺寸材料，是否正确！

xujinhua 发表于 2011-11-24 12:16:02

(defun c:txtout        ()
(setq fln (getstring "\n输出文件名:"))
(setq fln (strcat fln ".txt"))
(setq f (open fln "w"))
(setq a (ssget))
(setq n (sslength a))
(setq index 0)
(repeat n
    (setq el (entget (ssname a index)))
    (setq index (+ index 1))
    (setq e (assoc 0 el))
    (if (= "DIMENSION" (cdr e))
    (progn
      (setq txt (cdr (assoc 42 el)))
      (setq txt-1 (rtos txt))
      (write-line txt-1 f)
    )
)
)
(close f)
)


xujinhua 发表于 2011-11-24 12:18:03

一下全选图形就行...
输出文件名:c:\1
就在C盘1.txt

cxs259 发表于 2011-11-24 12:33:42

正是所需，也是前面很多网友所期盼的，谢谢啰！
页: [1] 2
查看完整版本: 请问怎么就CAD图中的所有标注提取至EXL表中