kucha007 发表于 2023-3-24 23:35:14

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

本帖最后由 kucha007 于 2023-3-25 00:33 编辑

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



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


zhangkui9070 发表于 2023-4-21 09:03:36

非常好！感谢楼主分享！
页: [1]
查看完整版本: 【k:GetSupportPath】获取support文件夹路径？