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

雪中送炭者

(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
)

vladimirputin

很好代码，正需要的。