如何把CAD文字的内容区分开?

sdwzzy

     "70/012/政府/8716.468655/公里 "       以上内容在CAD中是一个文字里面的内容，我想把文字在斜杠处分开写成5个单独的文字，在AUTO lisp中不知道如何处理,有兴趣的朋友指导下，谢谢！！

ljttjl

用以下函数得到"/"在字符串中的每一个位置：
(setq a (vl-string-search "/"  "70/012/政府/8716.468655/公里"))
(setq a1 (vl-string-search "/"  "70/012/政府/8716.468655/公里" (+ a 1) ))
......
然后用以下函数得到那些字符，如:
(setq b (substr "70/012/政府/8716.468655/公里" 1 a))
(setq b1 (substr "70/012/政府/8716.468655/公里" (+ a 2)  (- a1 a 1) ))
......

sdwzzy

可以的!谢谢ljttjl老师!