社区 › 编程申请 › 求点取梁配筋简图提取数字源码

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
)

vladimirputin 发表于 2021-1-28 11:54:23

很好代码，正需要的。

查看完整版本: 求点取梁配筋简图提取数字源码