为什么任兵 发表于 2012-10-20 20:39:13

悬赏标注数值提取

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


xyp1964 发表于 2012-10-20 20:39:14

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

为什么任兵 发表于 2012-10-20 20:42:43

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

为什么任兵 发表于 2012-10-20 21:24:45

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

429014673 发表于 2012-10-20 22:01:35

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

sscylh 发表于 2012-10-21 11:00:57

用vba做的      

为什么任兵 发表于 2012-10-21 20:30:25

xyp1964 发表于 2012-10-20 22:46 static/image/common/back.gif


好程序，顶一个

平湖秋月 发表于 2013-1-31 15:35:19

好程序，顶一个
页: [1]
查看完整版本: 悬赏标注数值提取