如何获取变量中某被字符后面的字符

sunqv

如图：我从dwg中选择一个图元，扩展属性如图所示，我把扩展属性中的井尺寸 复制给变量JCC，现在我想获取变量JCC中的“X"字符前后的字符，   当前JCC的变量值为”2.22X1.38“       我用命令

(setq z1 (atof jcc))  
获取得到JCC中”X"前面的数据2.22   
请问
如何获取JCC中“X”后面的数据1.38？

chenxiy825

(substr "2.22×1.38" 7)
(substr "2.22x1.38" 6)

vitalgg

kucha007

1. (setq STR "2.22X1.38")
   
2. (substr STR (+ 2 (vl-string-position (ascii "X") STR)))
   

(setq STR "2.22X1.38")<br /> (substr STR (+ 2 (vl-string-position (ascii "X") STR)))<br />

sunqv

kucha007 发表于 2023-3-20 22:20

谢谢老大解答，但我把您的结果写进去，提示错误了，麻烦再帮看一下，谢谢

xyp1964

1. (defun abc (str spr / n)
   
2.   ;; (abc "2.22X1.38" "X") → ("2.22" "1.38")
   
3.   (setq n (vl-string-search spr str))
   
4.   (list (substr str 1 n)(substr str (+ n (strlen spr)1)))
   
5. )
   

(defun abc (str spr / n)<br />   ;; (abc "2.22X1.38" "X") → ("2.22" "1.38")<br />   (setq n (vl-string-search spr str))<br />   (list (substr str 1 n)(substr str (+ n (strlen spr)1)))<br /> )<br />

kucha007

sunqv 发表于 2023-3-20 22:33
谢谢老大解答，但我把您的结果写进去，提示错误了，麻烦再帮看一下，谢谢

看楼下的吧