热度 1|
;;让Autoload支持vlx fas
;;加入自定义的自动加载中
(defun ai_ffile (app)
(or (findfile (strcat app ".lsp"))
(findfile (strcat app ".exp"))
(findfile (strcat app ".exe"))
(findfile (strcat app ".arx"))
(findfile (strcat app ".fas"))
(findfile (strcat app ".vlx"))
(findfile app)
)
)
(defun ai_nofile (filename)
(princ
(strcat "\n在支持路径中未找到 "
filename
"(.lsp/.exe/.arx/.fas/.vlx) 文件."
)
)
(princ "\n检查你的 Support 路径并再次运行.")
(princ)
)
|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )
GMT+8, 2024-4-28 17:05 , Processed in 0.269637 second(s), 23 queries , Gzip On.
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.