一次無心的改動貌似解決了直接雙擊文件圖標(biāo)即可實(shí)現(xiàn)默認(rèn)天正打開,同時也沒有Drawing1.dwg這張圖了
發(fā)現(xiàn)過程不贅述，說說怎么樣實(shí)現(xiàn)吧，小范圍測試過，沒有問題！
在cad安裝目錄下有個acad.mnl文件，具體位置在工具--選項--文件—支持文件搜索路徑—下面最長的一條（以……chssupport結(jié)尾的那條），點(diǎn)擊它，按F2鍵，將整個路徑復(fù)制下來，
在我的電腦路徑中粘貼直接打開后就可以看到了 ，打開這個文件，在結(jié)尾加上下面的一段話（整個復(fù)制）：
;;;（函數(shù)來自明經(jīng)通道轉(zhuǎn)載）--------------------------------------------------------------------------
(defun strParse (Str Delimiter / SearchStr StringLen return n char)
(setq SearchStr Str)
(setq StringLen (strlen SearchStr))
(setq return '())
(while (> StringLen 0)
(setq n 1)
(setq char (substr SearchStr 1 1))
(while (and (/= char Delimiter) (/= char ""))
(setq n (1+ n))
(setq char (substr SearchStr n 1))
) ;_ end of while
(setq return (cons (substr SearchStr 1 (1- n)) return))
(setq SearchStr (substr SearchStr (1+ n) StringLen))
(setq StringLen (strlen SearchStr))
) ;_ end of while
(reverse return)
)
;_ end of defun
;;; 反解析表為字符串（函數(shù)來自明經(jīng)通道轉(zhuǎn)載）
;;; ---------------------------------------------------------------------------------
(defun StrUnParse (Lst Delimiter / return)
(setq return "")
(foreach str Lst
(setq return (strcat return Delimiter str))
) ;_ end of foreach
(substr return 2)
)
;_ end of defun
;;; 移除支持文件搜索路徑
;;; ---------------------------------------------------------------------------------
(defun QF_RemoveSupportPath (PathToRemove / supportlist)
(setq supportlist (strparse (getenv "ACAD") ";"))
(setq supportlist (vl-remove "" supportlist))
(setq supportlist
(vl-remove-if
'(lambda (x) (= (strcase x) (strcase PathToRemove)))
supportlist
)
)
(setenv "ACAD" (strUnParse supportlist ";"))
)
;;; 添加支持文件搜索路徑
;;; ---------------------------------------------------------------------------------
;;; note: 第二個參數(shù)如果為真, 插最前，否則插最后
;;;
(defun QF_AddSupportPath (PathToAdd isFirst / supportlist)
(QF_RemoveSupportPath PathToAdd)
(setq supportlist (strparse (getenv "ACAD") ";"))
(setq supportlist (vl-remove "" supportlist))
(if isFirst
(setq supportlist (cons PathToAdd supportlist))
(setq supportlist (append supportlist (list PathToAdd)))
)
(setenv "ACAD" (strUnParse supportlist ";"))
)
(setvar "cmdecho" 0)
(foreach n
(list
"c:\Tangent\TArch8\Dwb"
"c:\Tangent\TArch8\sys17"
"C:\Tangent\TArch8\SYS"
)
(QF_AddSupportPath n T)
)
(princ)
將文件保存后，直接雙擊cad文件，此時應(yīng)該掛上天正了，如果沒有掛載的話，重復(fù)幾次，再打開工具--選項--文件—支持文件搜索路徑，有關(guān)天正加載路徑的選項應(yīng)該全移動上面了，如圖所示
修改好的文件下載在此（有需要改的打開自行修改）替換源文件即可：
