2013-08-03 QQ群：ALISP＆VLISP(143438137) 聊天记录：(defun read_tt(confile0 / confile x)

CCarch · 发表于 2013-8-3 10:06:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

繁花落叶(1600899394)于2013-08-03 10-06-09：
(defun read_tt(confile0 / confile x)
(setq confile (open confile0 "r"))
(setq aa (repeat 3 (read-line confile)))
(foreach x
'(bb cc dd ee ff gg hh ii) (set x (read-line confile))
)
(close confile)
)
(defun c:tt()
(if (null (setq confile0 (findfile "D:\\tt.ini")))
(setq laynm '("BEAM_CON" "BEAM" "COLU" "COLU" "WALL" "C-LT" "HOLE" "C-LPJ-KL" "C-LPJ-L"))
(if (read_tt confile0) (setq laynm (print (list aa bb cc dd ee ff gg hh ii))))
))

CCarch · 发表于 2013-8-3 10:06:22

繁花落叶(1600899394)于2013-08-03 10-06-22：
为什么这句，laynm一直为nil

CCarch · 发表于 2013-8-3 10:06:34

繁花落叶(1600899394)于2013-08-03 10-06-34：
求教教

CCarch · 发表于 2013-8-3 10:06:46

繁花落叶(1600899394)于2013-08-03 10-06-46：
想了很久也不知道为什么。

孔即是涩 · 发表于 2013-8-3 10:10:35

无动于衷(460826125)于2013-08-03 10-10-35：
- - 条件太多了咩？

孔即是涩 · 发表于 2013-8-3 10:10:37

无动于衷(460826125)于2013-08-03 10-10-37：
签到

炫翔 · 发表于 2013-8-3 10:11:03

炫翔(2363673534)于2013-08-03 10-11-03：
条件不符合就是空

孔即是涩 · 发表于 2013-8-3 10:11:50

无动于衷(460826125)于2013-08-03 10-11-50：
- - nil就是无返回值 - - 然后你看看哪个条件不满足就换下看看

CCarch · 发表于 2013-8-3 10:11:53

繁花落叶(1600899394)于2013-08-03 10-11-53：
是指哪的条件不符合呢

炫翔 · 发表于 2013-8-3 10:12:14

炫翔(2363673534)于2013-08-03 10-12-14：
去论坛发帖

炫翔 · 发表于 2013-8-3 10:12:18

炫翔(2363673534)于2013-08-03 10-12-18：
贴全部源码

炫翔 · 发表于 2013-8-3 10:12:32

炫翔(2363673534)于2013-08-03 10-12-32：
相关测试的...

CCarch · 发表于 2013-8-3 10:14:04

繁花落叶(1600899394)于2013-08-03 10-14-04：
ok

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