文件夹问题

Tomislav · 发表于 2022-7-5 23:07:37

嗨，伙计们，我有一个问题，可能很容易为你们解决，这个问题我找不到答案。。。为什么这部分代码不会打开当前打开图形的文件夹进行保存，而是打开acad默认文件夹thanx

  (setq doc_path(getvar 'DWGPREFIX))
 ;(setq doc_path (vlax-get-property(vlax-get-property (vlax-get-acad-object)'ActiveDocument)'Path))
 (setq doc_path(vl-string-right-trim "\" doc_path))
 (setq doc_path (vl-string-translate "/" "\" doc_path))
 (setq f (open (getfiled "Text File" doc_path "txt" 5) "a"))

hmsilva · 发表于 2022-7-5 23:34:25

嗨，Tomislav，
尝试

copy


 (setq doc_path(getvar 'DWGPREFIX))
 (setq doc_path (vl-string-translate "/" "\" doc_path))
 (setq f (open (getfiled "Text File" doc_path "txt" 5) "a"))
;or
(setq f (open (getfiled "Text File" (getvar 'DWGPREFIX) "txt" 5) "a"))