悬赏标注数值提取

为什么任兵

希望有高手解决一下我的问题，
谢谢了！！！
关于标注数值提取到EXCEL表格里，
最重要一点，要顺序性
先标注的先提取！！！！
请看图

xyp1964

2. ;; 尺寸标注数值转xls
   
3. ;; 伪源码需要e派工具箱(XCAD)的支持
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (setq        ss  (ssget '((0 . "DIMENSION")))
   
7.         lst '()
   
8.         i   -1
   
9.   )
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (setq lst (cons (xyp-dxf 42 s1) lst))
    
12.   )
    
13.   (setq        i   0
    
14.         lst (mapcar '(lambda (x) (setq i (1+ i)) (list (itoa i) (rtos x 2 2)))
    
15.                     lst
    
16.             )
    
17.   )
    
18.   (xyp-Lst2xls (cons '("序号" "数值") lst))
    
19.   (CMDLA1)
    
20. )
    

;; 尺寸标注数值转xls<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq        ss  (ssget '((0 . "DIMENSION")))<br />         lst '()<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq lst (cons (xyp-dxf 42 s1) lst))<br />   )<br />   (setq        i   0<br />         lst (mapcar '(lambda (x) (setq i (1+ i)) (list (itoa i) (rtos x 2 2)))<br />                     lst<br />             )<br />   )<br />   (xyp-Lst2xls (cons '("序号" "数值") lst))<br />   (CMDLA1)<br /> )<br />

为什么任兵

院长，我知道您在呢，希望能出手帮一下！！！

为什么任兵

这个是造假的，方便示意用的！！！

429014673

你不是有程序了吗,还求什么求

sscylh

用vba做的      

为什么任兵

xyp1964 发表于 2012-10-20 22:46

好程序，顶一个

平湖秋月

好程序，顶一个