好好看看我改的,,,,你的程序顺序上很乱,错误很多,一定要看仔细了,一句话,一个符号都不要放过(由于不知道你的ok函数是什么内容,我把(action_tile "accept" ...)屏蔽了——另,注意,getfiled只是返回选择的文件名(包括路径),并不会做其它任何事情,要保存,你须你自己来做,所以你的这个动作应该说是没有任何作用的。。。建议你一点一点地搞懂这些内容,不要老想着一下子都搞懂了- (setq dcl_id (load_dialog "qx6.dcl"))
- (if (not (new_dialog "qx6" dcl_id)) (exit))
- (set_tile "fi" "")
- (set_tile "zh" "0")
- (set_tile "zhju" "200")
- (set_tile "fi2" "SEGMENT")
- (mode_tile "fi" 2)
- (action_tile "filein" "(getfiled "select a lisp file" "/cass40/bin/" "lsp" 5)")
- (action_tile "fileout" "(princ "输出")")
- ;(action_tile "accept" "(ok)")
- (start_dialog )
- (unload_dialog dcl_id)
|