使用以下语句,得到b b1 b2即为所需要的值,再根据此值写入图形即可实现。 (setq a2 "aa bb cc") (setq a3 (vl-string-position (ascii " ") a2)) (setq a4 (vl-string-position (ascii " ") a2 (+ a3 1))) (setq b (substr a2 1 a3)) (setq b1 (substr a2 (+ a3 2) (- a4 a3 1)) ) (setq b2 (substr a2 (+ a4 2)) ) |