请教高手：如何分开坐标、标高等其它各项的值？

kgd4510

请问？如何分开坐标、标高等其它各项的值？格式如下：


CA10,131800,-1.086,530.563,-2.388


CZAB3E,131800,-1.305,451.164,2.365


CXAF111,131800,-1.305,251.632,12.35


..........


第一项CA10和CZAB3E及CXAF111等，前面这一项的长度是不固定的。即逗号分开的分一项的长度都是不固定的，如何？才能把这些项都分开出来呢？谢谢

紫云飞

用(vl-string-search 字串样品 字串 [起始点])找到第一个逗号的位置，你就可以判断第一项的长度了。

kgd4510

谢谢，我试试。

kgd4510

搞定啦。不过有另外一个问题出现啦。有些命令他规定死啦，只能嵌套循环三次而已，是不有什么设定把个循环次数取消掉？

yshf

;请试用以下程序:
;Command: (setq zfc "CA10,131800,-1.086,530.563,-2.388")
;"CA10,131800,-1.086,530.563,-2.388"
;Command: (zffl zfc 1) ("CA10" 131800 -1.086 530.563 -2.388) ;Command: (setq zfc "CZAB3E,131800,-1.305,451.164,2.365")
;"CZAB3E,131800,-1.305,451.164,2.365"
;Command: (zffl zfc 1) ("CZAB3E" 131800 -1.305 451.164 2.365) ;Command: (setq zfc "CXAF111,131800,-1.305,251.632,12.35")
;"CXAF111,131800,-1.305,251.632,12.35"
;Command: (zffl zfc 1) ("CXAF111" 131800 -1.305 251.632 12.35) (defun zffl(zfc nbz / i)
(setq i 0
hfz (mapcar '(lambda(x)
(progn
(setq i (1+ i))
(if (= i nbz) (vl-princ-to-string x) x)
)
)
(read (strcat "(" (vl-string-translate "," " " zfc) ")"))
)
)
)