dcl文件通过button选择文件

JHX948954875

我想通过button来选择文件所在的路径，有没有大神帮忙指点一下，谢谢。

yshf

假如你选取了文件“1_hd_ys.txt”并存于变量wjm中，则使用
(setq ljmc  (strcat  (vl-filename-directory wjm) “\\”)
取得它所在的路径名。

Andyhon

单纯的取得文件 个人习惯用 DosLib 所提供的函数

(dos_getfiled "Select a file" "E:\\MyDwg\\" "Drawing files (*.dwg)|*.dwg|All files (*.*)|*.*||")

JHX948954875

yshf 发表于 2019-5-31 12:14
假如你选取了文件“1_hd_ys.txt”并存于变量wjm中，则使用
(setq ljmc  (strcat  (vl-filename-directory  ...

谢谢，可能是我没表达清楚，不过这个问题我自己已经解决了，很感谢。

JHX948954875

Andyhon 发表于 2019-5-31 14:06
单纯的取得文件 个人习惯用 DosLib 所提供的函数

(dos_getfiled "Select a file" "E:\\MyDwg\\" "Drawin ...

谢谢，可能是我没表达清楚，不过这个问题我自己已经解决了，很感谢。

itoboy

请问楼主怎么解决的？我也遇到这个难题了

JHX948954875

占楼

JHX948954875

itoboy 发表于 2021-3-17 23:31
请问楼主怎么解决的？我也遇到这个难题了

这是dcl文件
tt:dialog{
label="xxx对话框";
        :column{
:row{
        :button{
                label="数据文件";
                key="yz_txtf";
                width=8.7;
                }
        :edit_box{
                edit_width=60;
                key="yz_data_file";
                }
        }
}
:boxed_row{
                :button{
                       label="指点绘图(&P)";
                       key="accept";
                       is_default=true;
                       allow_accept=true;
                       width=2;
                       }
                :button{
                       key="cancel";
                       label="取消";
                       is_cancel=true;
                       width=2;
                       }
            }
}


这是lsp文件
(defun c:TT()
  (setq dlg_id (load_dialog "C:\\Users\\Administrator\\Desktop\\tmp"))
  (if (< dlg_id 0)(exit))
  (if (not (new_dialog "tt" dlg_id)) (exit))
  (action_tile "yz_txtf" "(d_getfile_yz)");这是要问的
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog -1)")
  (setq std (start_dialog ))
  (unload_dialog dlg_id)
  )
(defun d_getfile_yz ( )
  (setq yz_data_file (getfiled "数据文件"  "C:/Users/Administrator/Desktop/"      "txt"     2))
  (if  yz_data_file
    (set_tile "yz_data_file" yz_data_file)
    (set_tile "yz_data_file" "")
    )
  )
  

itoboy

JHX948954875 发表于 2021-3-18 09:54
这是dcl文件
tt:dialog{
label="xxx对话框";

感谢感谢，本来抱着试试的心态，想不到楼主回帖了。