如何找到AutoCAD的安装路径
如何使用VBA找到AutoCAD的安装路径？如果您也告诉我如何用LISP做到这一点，我会很高兴！到目前为止，我已经使用了 CurDir函数 ，但是尽管有时它返回AutoCAD的安装路径，但其他一些它返回“我的文档”文件夹！事实是，我并不真正理解当前目录代表什么...无论如何，我想知道如何获得该路径（尤其是VBA）。
**** Hidden Message ***** 您想要ACAD.exe地址还是从选项->文件
支持文件搜索路径您熟悉ActiveX对象模型吗？
请选择
ThisDrawing.Application.preferences.Files
ThisDrawing.Application.FullName
（getenv"ACAD"）
（findfile"acad.exe"）
欢迎来到沼泽伊利卡特
哦，天啊，哦，天啊！这是我无法想象的更多帮助！感谢您的到来！
你看，我来到这个论坛要感谢Keith Blackie，我偶然在网上看到了他的名字。我过去是CADalog论坛的用户，在那里遇到了很多人，比如Keith Blackie、Daron、t-Bear和许多其他人，我希望我也能在这里见到他们。自从我被AutoCAD编写代码以来已经有很多年了，但现在我决定实现我那些日子的梦想。你看，那时我创建了一个大型建筑程序，并希望尽可能多地向公众提供它。时间过去了，我不得不做其他事情，但现在我希望我能做到。它的名字将是FreeCAD，并且可以使用两种语言（希腊语和英语）。
同时，我希望我能让我的架子对这个论坛上的其他人有用。再次感谢您的帮助。我要发布另一个关于在AutoCAD中使用Access的主题了！ 我为你感到高兴。
Lisp
(vl-registry-read (strcat "HKEY_LOCAL_MACHINE\\" (vlax-product-key)) "ACADLOCATION")
VBA
ThisDrawing.Application.Path
谢谢，rkmcswain。我不想低估你的答案，我已经找到了。你看，自从Kerry Brown告诉我Application对象后，我搜索了它的属性并找到了Path属性。
但是，既然你提到了它，让我问点别的：
假设没有任何Path属性，只有FullName属性。怎么能从FullName中提取路径字符串呢？我使用了像right等函数，但是，我仍然无法得到它......
页:
[1]