谢谢帮忙

mccad

1.假设你对话框文件中有一个列表框ListBox1，则可以用以下程序把数据文件的内容显示列表框中：

2. (setq txt_list(Get_Txt(findfile "mydat.dat")))
3.   (start_list "ListBox1")
4.   (mapcar 'add_list txt_list)
5.   (end_list)

(setq txt_list(Get_Txt(findfile "mydat.dat")))   (start_list "ListBox1")   (mapcar 'add_list txt_list)   (end_list)

2.对于列表框，返回的是索引号，而不是列表框中的内容，所以在取得索引号后，就可以使用Get_Txt_Num函数来返回指定索引号的文本内容。
3.通过返回的文本内容就可以起先绘图了。

龙龙仔

lanlan发表于2004-6-9 21:23:00回复：（lanlan）谢谢帮忙这是LISP程序： (defun act_accept() (setq eidt1 (get_tile \"d_data\") eidt2 (get_tile \"l_data\") ;edit3 (get_tile \"t\") ;ed...

(defun ACT_ACCEPT ()
(setq D (atof (get_tile "d_data"))
L (atof (get_tile "l_data"))
)
) (defun C:AA (/ WHAT EDIT3)
(setq DCL_ID (load_dialog "luoshuan.dcl"));;----------
(if (not (new_dialog "luoshuan" DCL_ID))
(exit)
)
(setq EDIT3 (get_tile "choose_someone"))
(action_tile "choose_someone" "(setq edit3 $value)")
(action_tile "accept" "(act_accept)(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq WHAT (start_dialog))
(if (= 1 WHAT)
(cond
((= "m" EDIT3)
(TXING D L)
)
((= "n" EDIT3)
(LIUJIAO D L)
)
((= "f" EDIT3)
(FANGTOU D L)
)
)
)

lanlan

谢谢MCCAD我试试看


龙龙仔，你下面写的那段程序是帮我改过后的吗？我有点糊涂了！不太懂我比较笨麻烦和我说清楚点，谢谢你帮忙！

spring

龙斑竹已经帮你写好了,我把他们合在一起了，把 DCL 文件下载后拷贝到 SUPPORT 目录下把名字改为 luoshuan.dcl 试试试看.

lanlan

龙斑竹谢谢你的帮忙，我还有个问题请教，我的DCL程序显示的对话框上面的那个我现在不要了直接把那部分删除了就可以了是吗？SPRING同样也很谢谢你的帮忙！

龙龙仔

直接把那部分删除了就可以了是吗？


->是的,反正那部份只是要显示可输入资料,要的话你再补上

lanlan

在你们的帮助下我终于顺利的完成了毕业设计已经答完辩了，谢谢你们大家对我的帮助，是你们让我又感受到人与人之间还有真情在，也许以后我没有机会再用LISP了，但是我希望如果我还有机会用它学习它希望你们还可以帮助我。我会常来这里看望你们的，我会永远记住你们的，记住你们曾对我无私的帮助，谢谢你们！-----------朋友！

nodbird

让人感动,


明经真是不错啊.


希望有越来越多的二次开发爱好者.