帮忙做个这样的程序！

meflying · 发表于 2005-5-18 14:39:00

你根据楼顶的数据画一个成型的图上来看看吧...给你一个简单的程序过程结构:

(defun c:test()
(setq f (open "xxx.txt" "r"))
(while (setq str (read-line f))
(cond
((or (= str "进口") (= str "分隔带") (= str "出口"))
(setq draw_now str)
)
(T (cond
((= draw_now "进口")
(setq width (read str));进口宽度
...;放置块属性等工作
)
((= draw_now "分隔带")
(setq width (read str));分隔带宽度
...;放置块属性等工作
)
((= draw_now "出口")
(setq width (read str));出口宽度
...;放置块属性等工作
)
);cond2
);T
);cond1
);while
(close f)
(princ)
)

honboo · 发表于 2005-5-18 15:06:00

谢谢，这个程序可以，那我把一个成型的图传上来，麻烦看看，怎么解决比较好！！

meflying · 发表于 2005-5-18 17:47:00

就TXT中这点数据,能做出这个图?图中的其余部分又是怎么来的?原来就有的,还是都按一个固定格式画...

还有,图中不见你说的属性块啊,,到是有很多箭头和别的图案(如,自行车,这个道又是什么道呢?)

最后,你这个图跟楼顶给的TXT数据好象没关系吧,,,看我11楼的话,"根据楼顶的数据"画一个...

现在我想知道的不是怎么做,而是一个什么过程,,,比如,有哪些已知条件,需要输入什么,需要做什么...你再仔细回顾一下这个帖子,就根据你说的情况,能用TXT里那点数据做出你个的这个图吗??????

honboo · 发表于 2005-5-18 20:27:00

那当然不能根据TXT里的做出来的，那个图是我老师给我传来的，他用什么方法画的我就不清楚了，但是给我要求就是用LISP画出来，那图是个事例图，不是通过某些数据得到的，只要能做出一个路口，其他的路口当然也同理可得了，那些箭头和标志最后要做成块的形式预先储存起来。

过程是这样的，先把数据写到某个TXT文件里（只针对一个路口）

如：

分割带

4

3

4

出口

6

8

7

5

入口

5

6

每个汉字字串下都有N行数据，每个数据都不一样，而N 就是车道或分割带数目，不同数据代表不同的宽度。绘图的原点可以随便确定，其他的（如：能见的路的长度）都自行确定。

程序先从TXT中一行行的读数据，碰到不同的汉字字串如何处理，如何确定它下方的数字个数，同时如何绘制图形和放置块。

这个图就是我们长见的城市道路的交叉口了！分东、南、西、北四个方向

meflying · 发表于 2005-5-19 08:32:00

看来你还是没明白我的意思...既然根据TXT里的东西做不出你要的图来,那我该根据什么东西来做???????????

"程序先从TXT中一行行的读数据，碰到不同的汉字字串如何处理，如何确定它下方的数字个数，同时如何绘制图形和放置块。"

关于这一段,我11楼的程序结构里已经解决了这个问题啊,你有仔细看我的回帖吗?????????包括13楼的帖子,你都仔细看过吗?

无痕 · 发表于 2005-5-19 09:07:00

龙龙仔发表于2005-5-18 12:30:00拜託是:ｍeｆｌｙｉｎｇ

你把人家个“e”写的那么小，也不对阿

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

帮忙做个这样的程序！

本帖子中包含更多资源