getfiled提取路径

JHX948954875

命令：(setq txtf (open  (getfiled "请选择要素文件"  "C:/Users/Administrator/Desktop/"  "txt"   2) "r" ))返回：#<file "C:\\Users\\Administrator\\Desktop\\数据格式.txt">
或者返回：#<FILE internal>
我该怎么把字符"C:\\Users\\Administrator\\Desktop\\数据格式.txt"提取出来？？
希望各位大佬解答一下，谢谢。
类似这种

Andyhon

先返回看看
(getfiled "请选择要素文件"  "C:/Users/Administrator/Desktop/"  "txt"   2)

yshf

在配套的DCL文件中，看“纵断数据文件名”右侧那个文件框edit_box控件的Key是什么值来确定，例如 Key=”SjWjm”，则用(setq wjm (get_tile ”SjWjm”))即可。

JHX948954875

yshf 发表于 2019-5-31 21:25
在配套的DCL文件中，看“纵断数据文件名”右侧那个文件框edit_box控件的Key是什么值来确定，例如 Key=”SjW ...

我想实现的是选择完”纵断数据文件名“，右面的edit_box控件就能显示选择的文件路径。您有什么方法么？

yshf

;假定”纵断数据文件名“按钮的Key=“ZdSjWj”,
;其右侧那个文件框edit_box控件的Key=”SjWjm”,则
(action_tile "ZdSjWj" "(sub_ZdSjWj)")
;其中sub_ZdSjWj的定义为：
(defun sub_ZdSjWj()
     (if (setq Xsjwjm (getfiled "请选取纵断数据文件名" path "dat;txt" 2))
         (set_tile "SjWjm" Xsjwjm)
         (set_tile "SjWjm" "")
     )
)

JHX948954875

yshf 发表于 2019-6-3 15:56
;假定”纵断数据文件名“按钮的Key=“ZdSjWj”,
;其右侧那个文件框edit_box控件的Key=”SjWjm”,则
(acti ...

谢谢，这个问题已经解决了，感谢你的耐心解答。