求助，高手指点下

fengjian11 · 发表于 2010-1-15 14:55:00

大家好，

我想做一个自动绘制断面的lisp程序，我设定输入的格式是：点号，距离，高程

但是读取文件后市字符串“点号，距离，高程”，用car read等命令就取不出以，为分界的字符，有什么好点的办法吗？

谢谢大家

fengjian11 · 发表于 2010-1-15 23:05:00

没人知道吗？

谢谢大家，给个答案

danberlove · 发表于 2010-1-16 17:50:00

最好是每个字段有固定的位数，然后可以用函数（setq x（subst string a b））来获取每一个字段的值

个人意见，仅供参考~

fengjian11 · 发表于 2010-1-17 09:26:00

谢谢，可惜我的不固定

liu_kunlun · 发表于 2010-1-17 16:57:00

结果在a、b、c中

(while (vl-string-search "," str) (setq str (vl-string-subst "\" \"" "," str)))
(mapcar 'set (list 'a 'b 'c) (read (strcat "(\"" str "\")")))

fengjian11 · 发表于 2010-1-17 22:50:00

谢谢liu_kunlun，我昨天自己解决了

;;;;转变坐标格式
(defun gszb (zdzfc / i)
(setq i 1 zbh "")
(while (< i (+ 1 (strlen zdzfc)))
    (setq xqzf (substr zdzfc i 1))
    (if (= "," xqzf)
      (setq xqzf " "))
    (setq zbh (strcat zbh xqzf))
    (setq i (1+ i))
    )
)

但是看了你的更加简洁，非常感谢

显示全部楼层 · 发表于 2012-4-18 10:36:31

提示: 作者被禁止或删除内容自动屏蔽

显示全部楼层 · 发表于 2012-4-18 10:37:12

提示: 作者被禁止或删除内容自动屏蔽

fengjian11 · 发表于 2012-4-28 12:59:03

我找找，好长时间不用了，找到发给你

zhouman · 发表于 2012-6-1 09:09:59

fengjian11 发表于 2012-4-28 12:59
我找找，好长时间不用了，找到发给你

楼主能不能把纵横断面的代码发给我下 550783770@qq.com

账号		自动登录	找回密码
密码			注册

czc520hx 该用户已被删除	发表于 2012-4-18 10:36:31 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
czc520hx 该用户已被删除
	回复支持反对使用道具举报显身卡

czc520hx 该用户已被删除	发表于 2012-4-18 10:37:12 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
czc520hx 该用户已被删除
	回复支持反对使用道具举报显身卡

[基础] 求助，高手指点下