【k:GetSupportPath】获取support文件夹路径？

kucha007

此函数是从G版的程序中提取出来的：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91425&highlight=%CD%BC%B0%B8%2B%CC%EE%B3%E4

1. (defun k:GetSupportPath (/ Tmp PatNam)
   
2.   (if (= 1 (getvar 'measurement)) ;公制
   
3.     (setq PatNam (getenv "ISOHatch")) ;公制
   
4.     (setq PatNam (getenv "ANSIHatch")) ;英制
   
5.   )
   
6.   (if (setq Tmp (findfile PatNam))
   
7.     (vl-filename-directory Tmp)
   
8.     (progn
   
9.       (setq Tmp (getvar 'roamablerootprefix))
   
10.       (or (eq "\\" (substr Tmp (strlen Tmp)))
    
11.           (setq Tmp (strcat Tmp "\\"))
    
12.       )
    
13.       (strcat Tmp "support")
    
14.     )
    
15.   )
    
16. )
    

(defun k:GetSupportPath (/ Tmp PatNam) <br />   (if (= 1 (getvar 'measurement)) ;公制<br />     (setq PatNam (getenv "ISOHatch")) ;公制<br />     (setq PatNam (getenv "ANSIHatch")) ;英制<br />   )<br />   (if (setq Tmp (findfile PatNam)) <br />     (vl-filename-directory Tmp)<br />     (progn <br />       (setq Tmp (getvar 'roamablerootprefix))<br />       (or (eq "\\" (substr Tmp (strlen Tmp))) <br />           (setq Tmp (strcat Tmp "\\"))<br />       )<br />       (strcat Tmp "support")<br />     )<br />   )<br /> )<br />

zhangkui9070

非常好！感谢楼主分享！