GetField问题

BIGAL · 发表于 2022-7-5 22:25:16

我不能得到这个工作我想挑选一个txt文件尝试了各种位设置它只是不去正确的目录其他测试工作。检查Alpha upper lower等，与窗口中显示的完全一致。


(setq dwgname (GETVAR "dwgname"))
(setq dwgname (substr dwgname 1 (vl-string-search ".dwg" dwgname)))
(setq dwgname (strcat (getvar "dwgprefix") dwgname "-DATA" "\" "advRoads-10"))
; dwgname "P:\\2010026\\Design\\2010026-PF-DATA\\AdvRoads-10"
(setq fname (getfiled "Select the set out file" dwgname "txt" 4))

7o7 · 发表于 2022-7-5 22:44:20

因此，文件名必须为：“P:\\2010026\\Design\\2010026-PF.dwg”
并且目录“P:\\2010026\\Design\\2010026-PF-DATA\\AdvRoads-10”必须存在才能使lisp工作。

BIGAL · 发表于 2022-7-5 22:57:17

这是正确的，我想要一个子目录低于当前目录水平，只是看不到打字的。

Lee Mac · 发表于 2022-7-5 23:12:09

假设文件路径存在，请尝试：

copy

(setq fname
   (getfiled "Select the set out file"
       (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) "-DATA\\advRoads-10")
       "txt"
       16
   )
)

BIGAL · 发表于 2022-7-5 23:27:12

谢谢，李明天会试试的，插国旗可能是关键。我确实看到了vl文件名基，这更好，因为它删除了。图纸。

是的，李将仔细研究这两个版本之间的fname以找出差异。

谢谢

[编程交流] GetField问题

发表回复

精选推荐