在autocad*中打开。sv$，*。bak，*。

prodromosm · 发表于 2022-7-5 21:14:51

我将代码更新为


(defun c:fetemp (/ admin f)
(setq admin (cond ((getreal  "\n Give user name (example George) : "))(George)))
   (if (setq f (getfiled "" "C:/Users/admin/AppData/Local/Temp" "sv$ bak dwg" 16))
       (startapp "explorer" f)
   )
   (princ)
)

但我有这个问题

1）我无法更改路径中的用户名
2）如何编写此“sv$bak dwg”

谢谢

hanhphuc · 发表于 2022-7-5 21:15:32

1.getstring和strcat
2.sami冒号

copy


(defun c:fetemp        (/ admin f)
 (if (eq (setq admin ([color="red"]getstring[/color] t "\n Give user name (example George) : ")) "")
   "George"
   ) ;_ end of if
 (if (setq f (getfiled "" ([color="red"]strcat [/color]"C:\\Users\" admin "\\AppData\\Local\\Temp") [color="red"]"sv$;bak;dwg"[/color] 16))
  (startapp "explorer" f)
   ) ;_ end of if
 (princ)
 ) ;_ end of defun
;what to do next?
[color="red"][EDIT]: you can't directly open sv$ & .bak ![/color]

我更喜欢这个作为默认温度

copy


  (getfiled ""
     (getvar "tempprefix")
    "sv$;bak;dwg" 16)

prodromosm · 发表于 2022-7-5 21:20:44

我知道，我唯一想做的是打开我的文件夹，然后我将文件重命名为dwg打开

谢谢

hanhphuc · 发表于 2022-7-5 21:21:46

你可以试试
vl文件重命名（post#6中的示例）
或
vl文件名mktemp
避免名称冲突

祝你好运：）

prodromosm · 发表于 2022-7-5 21:26:10

你能告诉我怎么做吗？

谢谢

prodromosm · 发表于 2022-7-5 21:28:07

我很乐意使用

但是我不知道怎么做！！

copy

(defun c:fetemp        
((getvar "tempprefix") "sv$;bak;dwg" 16)
  (startapp "explorer" f)
)
 (princ)

hanhphuc · 发表于 2022-7-5 21:33:12

copy


http://www.cadtutor.net/forum/showthread.php?89186-Movebak&p=610918&viewfull=1#post610918
(defun C:bak (/ fn path dwg) ;v1.1
 (if (setq fn (getfiled "Select file" (getvar "tempprefix") "sv$;bak;dwg" 2))
   (setq path (strcat (vl-filename-directory fn) "\")
  dwg  ([color="blue"]vl-filename-mktemp[/color] [color="red"]"george_"[/color] path ".dwg") ; <--- example george
  fn   (if (/= (strcase (vl-filename-extension fn)) ".DWG")
         ([color="blue"]vl-file-copy[/color] fn dwg t)
         dwg
         ) ;_ end of if
  ) ;_ end of setq
   (princ "Failed! *cancel*")
   ) ;if
 (terpri)
 (if path
   (command "shell" (strcat "explorer "" path))
   ) ; optional: open the destination folder
 (princ)
 ) ;bak

2）我真的不理解评论，例程只是创建新的dwg名称（不重命名），所以我认为没有冲突。您可以安全地保留或删除它

更换此

copy

  dwg  (vl-filename-mktemp "george_" path ".dwg") ; <--- example george

到
[code][color=“red”]（如果路径（vla open（vla get Documents（vlax get Acad Object））dwg:vlax false）；

prodromosm · 发表于 2022-7-5 21:34:30

AIberto · 发表于 2022-7-5 21:39:17

Dear hanhphuc.
good idea , only rename ? open the temp folder ? I think can rename it ,and open it ? no need open the temp folder.

hanhphuc · 发表于 2022-7-5 21:41:35

1) george_ replaced

copy

(vl-filename-mktemp  [color="red"](strcat (vl-filename-base fn) "_")[/color] path ".dwg")

2) i dont really understand comment, the routine just create new dwg name (not rename), so i think no conflict. you can keep or delete it safely

replace this

copy

[color="#696969"](if path   (command "shell" (strcat "explorer "" path))  ) ; optional: open the destination folder [/color]

to

[code][color="red"] (if path (vla-open (vla-get-Documents (vlax-get-Acad-Object)) dwg :vlax-false)) ;

[编程交流] 在autocad中打开。sv$，。bak，*。

发表回复

精选推荐

[编程交流] 在autocad*中打开。sv$，*。bak，*。

发表回复

精选推荐

[编程交流] 在autocad中打开。sv$，。bak，*。