LISP 数据输入的问题

ding_xz · 发表于 2005-8-10 17:00:00

　请教大侠，如何通过已有的数据文件（格式　Ｘ　Ｙ　Ｚ），在程序中输入点，或者转成程序可操作的点？谢谢！！！

蓝云 · 发表于 2005-8-10 17:10:00

(setq p (read (strcat "(" (read-line file) ")")))

ding_xz · 发表于 2005-8-10 17:22:00

非常感谢！！！

ding_xz · 发表于 2005-8-10 17:30:00

请问如何实现多点通过数据文件（格式为Ｘ　Ｙ　Ｚ，一点占一行）输入到程序中呢？谢谢！！！请给一段示例代码，不胜感激

alin · 发表于 2005-8-10 21:15:00

(setq fileID (open "文件全名" "r"))
(setq p (read (strcat "(" (read-line fileID) ")")))
(close fileID)

wang_hui · 发表于 2005-8-11 22:11:00

楼主是不是搞测绘的？

yshf · 发表于 2005-8-12 21:58:00

如意，请致电hrycly@126.com，你是不是要用数据文件进行碎部展点、连线等操作？

ding_xz · 发表于 2005-8-15 15:39:00

本人正是搞测绘的,用途如上面老兄所说的,希望和大家交流!

如果数据文件中的每一行还包括"点名,X,Y,Z,点属性"(如:P1 1000.123 2000.535 1360.458 房角点",如何将其分离开呢?请大侠不吝赐教,谢谢!!!

cjs · 发表于 2005-8-15 17:35:00

(setq a "W1,123,526,368")

(setq a (vl-string-translate "," " " a) )

(setq a (strcat "(" a ")" ) )

(setq b (read a))

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