为什么任兵 发表于 2012-2-7 21:13:11

试试，效果怎么样，多谢了，

xujinhua 发表于 2012-3-31 12:49:53

本帖最后由 xujinhua 于 2012-3-31 12:50 编辑

(defun c:xu()
(setq fln-2 (getstring "\n文件名:"))
(if (= fln-2 "") (setq fln-2"c:\\1"))
(setq fln-1 (strcat fln-2 ".txt"))
(setq file_id (open fln-1 "a"))
(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)))
(princ txt file_id)
(princ " " file_id)
)
)
)
(princ "\n" file_id)
(close file_id)
)

汽车线束 发表于 2012-6-21 17:26:31

我是做线束的，你的提问对我也有帮助，期待高手解答，做线束算长度麻烦

litlues 发表于 2012-9-22 23:35:16

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93576
这个可以吧

wangshuping42 发表于 2014-9-1 16:20:37

这也太简单了

w245272914 发表于 2018-4-17 11:27:58

wangshuping42 发表于 2014-9-1 16:20
这也太简单了

老板，你来一个复杂的呗~~~

Helix.xu 发表于 2018-8-2 08:27:57

本帖最后由 Helix.xu 于 2018-8-2 12:30 编辑

标注提取后，
如何按照 纵横顺序 排列才是难点，按文字位置排列 遇到特殊情况 得到的结果不正确，
最近一直没想明白。
页: 1 [2]
查看完整版本: 怎么将一张CAD图纸上所有标注尺寸全部提取到excel中