懒人用的sv$转dwg

xiaoyingzi

AutoCAD经常崩溃有木有？要去临时文件夹去找sv$改成dwg，有木有？每次都要去找临时文件夹烦不烦？
在桌面生成sv$todwg文件夹，并把临时文件夹中的sv$文件复制到改文件夹，并改后缀名为dwg，懒人用的

2. ;;;使用 Lisp 函数时，如果目录路径过长，“vl-directory-files”可能会导致 AutoCAD 变得不稳定。
   
3. ;;;(vl-directory-files (getvar "tempprefix") "*.sv$")
   
4. 
   
5. (defun c:fix ( / desktopPath my_startapp tmpfilepath)
   
6.   (setq desktopPath
   
7.     (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Desktop")   
   
8.   )
   
9.   (defun my_startapp (strings / obj_wsh)
   
10.     (setq obj_wsh (vlax-create-object "wscript.shell"))
    
11.     (vlax-invoke obj_wsh 'run strings 0 0)
    
12.     (vlax-release-object obj_wsh)
    
13.   )
    
14.   (setq tmpfilepath (strcat desktopPath "\\sv$todwg"))
    
15.   (if (not (findfile tmpfilepath)) (vl-mkdir tmpfilepath))
    
16. 
    
17.   (my_startapp (strcat "cmd /c copy " (getvar "tempprefix") "*.sv$" " " tmpfilepath "\\*.dwg"))
    
18.   (my_startapp (strcat "cmd /c copy " (getvar "savefilepath") "\\*.sv$" " " tmpfilepath "\\*.dwg"))
    
19.   (my_startapp (strcat "cmd /c copy " (getvar "savefilepath") "\\*.bak" " " tmpfilepath "\\*.dwg"))
    
20.   (princ)
    
21. )

;;;使用 Lisp 函数时，如果目录路径过长，“vl-directory-files”可能会导致 AutoCAD 变得不稳定。<br /> ;;;(vl-directory-files (getvar "tempprefix") "*.sv$")<br /> <br /> (defun c:fix ( / desktopPath my_startapp tmpfilepath)<br />   (setq desktopPath<br />     (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Desktop")    <br />   )<br />   (defun my_startapp (strings / obj_wsh)<br />     (setq obj_wsh (vlax-create-object "wscript.shell"))<br />     (vlax-invoke obj_wsh 'run strings 0 0)<br />     (vlax-release-object obj_wsh)<br />   )<br />   (setq tmpfilepath (strcat desktopPath "\\sv$todwg"))<br />   (if (not (findfile tmpfilepath)) (vl-mkdir tmpfilepath))<br /> <br />   (my_startapp (strcat "cmd /c copy " (getvar "tempprefix") "*.sv$" " " tmpfilepath "\\*.dwg"))<br />   (my_startapp (strcat "cmd /c copy " (getvar "savefilepath") "\\*.sv$" " " tmpfilepath "\\*.dwg"))<br />   (my_startapp (strcat "cmd /c copy " (getvar "savefilepath") "\\*.bak" " " tmpfilepath "\\*.dwg"))<br />   (princ)<br /> )

xiaoyingzi

要么更狠点，干脆直接改路径：
(setq desktopPath
    (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Desktop")   
  )
(setq auotsavepath (strcat desktopPath "\\autosavedwg"))
(if (not (findfile auotsavepath)) (vl-mkdir auotsavepath))
(setvar "savefilepath" auotsavepath)

cxs259

试一试，赞一个！

q3_2006

懒人必须点个赞....我也超级懒...

hao3ren

支持小影子，懒人才能提高工作效率

debugchen

谢谢分享，懒人用的

tianyi1230

这个很实用啊，天正经常崩溃！

yoyoho

xiaoyingzi 感谢你分享程序!

tranney

这真是人才啊，，我喜欢，哈哈，做这么多程序干嘛啊，不就是为了偷懒么，哈哈

tranney

刚试验 运行后，有点巨卡，不知道为什么