一次无心的改动貌似解决了直接双击文件图标即可实现默认天正打开,同时也没有Drawing1.dwg这张图了
发现过程不赘述，说说怎么样实现吧，小范围测试过，没有问题！
在cad安装目录下有个acad.mnl文件，具体位置在工具--选项--文件—支持文件搜索路径—下面最长的一条（以……chssupport结尾的那条），点击它，按F2键，将整个路径复制下来，
在我的电脑路径中粘贴直接打开后就可以看到了 ，打开这个文件，在结尾加上下面的一段话（整个复制）：
;;;（函数来自明经通道转载）--------------------------------------------------------------------------
(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
;;; 反解析表为字符串（函数来自明经通道转载）
;;; ---------------------------------------------------------------------------------
(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: 第二个参数如果为真, 插最前，否则插最后
;;;
(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文件，此时应该挂上天正了，如果没有挂载的话，重复几次，再打开工具--选项--文件—支持文件搜索路径，有关天正加载路径的选项应该全移动上面了，如图所示
修改好的文件下载在此（有需要改的打开自行修改）替换源文件即可：