设模板文件路径------老革命遇到新问题了

/db_自贡黄明儒_

以前05版我的下面的代码是能用的，没有发现有什么问题。也许是几天安装了04版，问题来了....

2. ;;;*********************************************************
   
3. ;;[功能] 设模板文件路径
   
4. ;;假定我的模板文件a4.dwt在支持文件搜索路径中
   
5. ;;1 设置模板文件路径
   
6. ;;2 设置快速新建启用的模板文件
   
7. (defun HH:TemplateDwgPath (/ CPATH FILESEL MSPACE MYDWT PREFERENCESEL)
   
8.   (VL-LOAD-COM)
   
9.   (or *acad* (setq *acad* (vlax-get-acad-object)))
   
10.   (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*)))
    
11.   (setq mSpace (vla-get-ModelSpace *doc*))
    
12.   (setq preferenceSel (vla-get-Preferences *acad*))
    
13.   (setq fileSel (vla-get-Files preferenceSel))
    
14.   ;;取出当前的 TemplateDWGPath值
    
15.   (setq cPath (vla-get-TemplateDwgPath fileSel))
    
16.   ;;取得a4.dwt所在路径
    
17.   (setq cPath (vl-filename-directory (findfile "a4.dwt")))
    
18.   ;;改变 TemplateDWGPath的值
    
19.   (cond ((and cPath (not (equal cPath cPath))) (vla-put-TemplateDwgPath fileSel cPath)))
    
20. 
    
21.   ;;快速新建时启用的模板文件(2004以上的才能用)
    
22.   (cond((and (> (atof (getvar "ACADVER")) 16)
    
23.              cPath
    
24.              (setq MyDWT (vla-get-QNewTemplateFile fileSel))
    
25.              (not (equal (VL-FILENAME-BASE MyDWT) "a4"))
    
26.         )
    
27.       (vla-put-QNewTemplateFile fileSel (findfile "a4.dwt"))
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. (VL-CATCH-ALL-APPLY 'HH:TemplateDwgPath nil)
    
33. ;;;*********************************************************

;;;*********************************************************<br /> ;;[功能] 设模板文件路径<br /> ;;假定我的模板文件a4.dwt在支持文件搜索路径中<br /> ;;1 设置模板文件路径<br /> ;;2 设置快速新建启用的模板文件<br /> (defun HH:TemplateDwgPath (/ CPATH FILESEL MSPACE MYDWT PREFERENCESEL)<br />   (VL-LOAD-COM)<br />   (or *acad* (setq *acad* (vlax-get-acad-object)))<br />   (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*)))<br />   (setq mSpace (vla-get-ModelSpace *doc*))<br />   (setq preferenceSel (vla-get-Preferences *acad*))<br />   (setq fileSel (vla-get-Files preferenceSel))<br />   ;;取出当前的 TemplateDWGPath值<br />   (setq cPath (vla-get-TemplateDwgPath fileSel))<br />   ;;取得a4.dwt所在路径<br />   (setq cPath (vl-filename-directory (findfile "a4.dwt")))<br />   ;;改变 TemplateDWGPath的值<br />   (cond ((and cPath (not (equal cPath cPath))) (vla-put-TemplateDwgPath fileSel cPath)))<br /> <br />   ;;快速新建时启用的模板文件(2004以上的才能用)<br />   (cond((and (> (atof (getvar "ACADVER")) 16)<br />              cPath<br />              (setq MyDWT (vla-get-QNewTemplateFile fileSel))<br />              (not (equal (VL-FILENAME-BASE MyDWT) "a4"))<br />         )<br />       (vla-put-QNewTemplateFile fileSel (findfile "a4.dwt"))<br />     )<br />   )<br />   (princ)<br /> )<br /> (VL-CATCH-ALL-APPLY 'HH:TemplateDwgPath nil)<br /> ;;;*********************************************************

/db_自贡黄明儒_

主要是(setq fileSel (vla-get-Files preferenceSel))出现问题了。

Free-Lancer

/db_自贡黄明儒_ 发表于 2014-10-25 09:03
主要是(setq fileSel (vla-get-Files preferenceSel))出现问题了。

看看这个是否有用
_$ (getenv "TemplatePath")
"C:\\Users\\lenovo\\AppData\\Local\\Autodesk\\AutoCAD 2008\\R17.1\\chs\\Template"
_$

(getenv "LastTemplate");string Last DWT used

设置用  setenv

/db_自贡黄明儒_

Free-Lancer 发表于 2014-10-25 09:26
看看这个是否有用
_$ (getenv "TemplatePath")
"C:\\Users\\lenovo\\AppData\\Local\\Autodesk\\AutoCA ...

不过，这两个变量在04下好象不起什么作用。