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

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

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

雪中送炭者 · 发表于 2018-4-30 09:40

(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

看来高手太少啊

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

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

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

没有。。。

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

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

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

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

叙述不明确

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

这是个什么意思呢？

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

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

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

人呢？

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

分分钟的事

账号		自动登录	找回密码
密码			注册