如何用LISP利用TXT里的坐标和角度布置块

yueboyi · 发表于 2009-2-2 22:22:00

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

tony911 · 发表于 2009-2-3 08:40:00

(setq fn (getfiled "Select Data File:" "" "txt" 4))
   (if fn
     (progn
       (setq inf (open fn "r"))
       (setq strl (read-line inf))
       (setq pt_list nil)
       (while (and (setq strl (read-line inf)) (> (strlen strl) 10))
        (setq strl (strcat "((" strl "))"))
        (setq pt_list (append pt_list (read strl)))
       )

... ...)

)未完待续... ...

yueboyi · 发表于 2009-2-3 22:35:00

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

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

yueboyi yueboyi 当前离线积分 331 明经币个注册时间 2002-6-3 在线时间小时威望金钱个贡献激情	发表于 2009-2-2 22:22:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

yueboyi yueboyi 当前离线积分 331 明经币个注册时间 2002-6-3 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-2-3 22:35:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡