hdlyt11 发表于 2008-7-15 20:11:00

求点取梁配筋简图提取数字源码

点取计算简图中的例如9-7-4，能返回9，7，4的源码

CAD智能@未来 发表于 2018-4-30 09:40:47

(setq zongjin01 (distof (substr midresult 1 (- (findstr midresult "-") 1)) 2))
(setq midresult (substr midresult (+ (findstr midresult "-") 1)))
(setq zongjin02 (distof (substr midresult 1 (- (findstr midresult "-") 1)) 2))
(setq zongjin03 (distof (substr midresult (+ (findstr midresult "-") 1))))
;;;定位子串在源串中第一次出现的开始位置, 子串不出现时返回nil（sour_string表示字符串，sub_string表示子字符串）
(defun FindStr(sour_string sub_string / substrpoint sour_string_length sub_string_length sl si)
(setq substrpoint nil)
(setq sour_string_length (strlen sour_string))
(setq sub_string_length (strlen sub_string))
(setq sl (+ (- sour_string_length sub_string_length) 1))
(setq si 1)
(while (<= si sl)
    (progn
      (if (= sub_string (substr sour_string si sub_string_length))
        (if (= substrpoint nil) (setq substrpoint si))
      )
      (setq si (1+ si))
    ) ;end progn
) ;end while
substrpoint
)

hdlyt11 发表于 2008-7-17 11:56:00

<p>看来高手太少啊</p>

springwillow 发表于 2012-5-20 14:00:47

这个问题楼主应该自己已经解决了吧！呵呵

freeok 发表于 2012-7-28 23:55:44

没有。。。

gufeng 发表于 2012-7-29 10:59:42

本帖最后由 gufeng 于 2012-7-29 11:00 编辑

取计算简图中的例如9-7-4 你这个图元是什么类型 (块 属性 单行 多行) ？还是其它? 图呢？

陨落 发表于 2012-8-16 10:29:27

叙述不明确

xiabin68 发表于 2012-10-23 15:59:02

这是个什么意思呢？

freeok 发表于 2012-11-14 22:55:48

图元是单行文本。。9-7-4

freeok 发表于 2013-10-16 22:21:15

人呢？

曰微言薄论 发表于 2016-5-10 09:55:42

分分钟的事
页: [1] 2
查看完整版本: 求点取梁配筋简图提取数字源码