怎么将一张CAD图纸上所有标注尺寸全部提取到excel中

为什么任兵

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

xujinhua

1. (defun c:xu()
   
2. (setq fln-2 (getstring "\n文件名:"))
   
3. (if (= fln-2 "") (setq fln-2  "c:\\1"))
   
4. (setq fln-1 (strcat fln-2 ".txt"))
   
5. (setq file_id (open fln-1 "a"))
   
6. (setq a (ssget))
   
7. (setq n (sslength a))
   
8. (setq index 0)
   
9. (repeat n
   
10. (setq el (entget ( ssname a index)))
    
11. (setq index ( + index 1))
    
12. (setq e (assoc 0 el))
    
13. (if (= "DIMENSION" (cdr e))
    
14. (progn
    
15. (setq txt (cdr (assoc 42 el)))
    
16. (princ txt file_id)
    
17. (princ " " file_id)
    
18. )
    
19. )
    
20. )
    
21. (princ "\n" file_id)
    
22. (close file_id)
    
23. )

(defun c:xu()<br /> (setq fln-2 (getstring "\n文件名:"))<br /> (if (= fln-2 "") (setq fln-2  "c:\\1"))<br /> (setq fln-1 (strcat fln-2 ".txt")) <br /> (setq file_id (open fln-1 "a"))<br /> (setq a (ssget))<br /> (setq n (sslength a))<br /> (setq index 0)<br /> (repeat n <br /> (setq el (entget ( ssname a index)))<br /> (setq index ( + index 1))<br /> (setq e (assoc 0 el))<br /> (if (= "DIMENSION" (cdr e))<br /> (progn <br /> (setq txt (cdr (assoc 42 el)))<br /> (princ txt file_id)<br /> (princ " " file_id)<br /> )<br /> )<br /> )<br /> (princ "\n" file_id)<br /> (close file_id)<br /> )

汽车线束

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

litlues

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

wangshuping42

这也太简单了

w245272914

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

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

Helix.xu

标注提取后，
如何按照 纵横顺序 排列才是难点，按文字位置排列 遇到特殊情况 得到的结果不正确，
最近一直没想明白。