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

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

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

正是所需，也是前面很多网友所期盼的，谢谢啰！

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源