如何找到AutoCAD的安装路径

iliekater · 发表于 2006-12-7 08:07:27

如何使用VBA找到AutoCAD的安装路径？如果您也告诉我如何用LISP做到这一点，我会很高兴！
到目前为止，我已经使用了 CurDir函数，但是尽管有时它返回AutoCAD的安装路径，但其他一些它返回“我的文档”文件夹！事实是，我并不真正理解当前目录代表什么...无论如何，我想知道如何获得该路径（尤其是VBA）。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Kerry · 发表于 2006-12-7 08:13:24

您想要ACAD.exe地址还是从选项->文件
支持文件搜索路径您熟悉ActiveX对象模型吗？

Kerry · 发表于 2006-12-7 08:26:04

请选择
ThisDrawing.Application.preferences.Files
ThisDrawing.Application.FullName
（getenv"ACAD"）
（findfile"acad.exe"）
欢迎来到沼泽伊利卡特

iliekater · 发表于 2006-12-7 14:35:52

哦，天啊，哦，天啊！这是我无法想象的更多帮助！感谢您的到来！
你看，我来到这个论坛要感谢Keith Blackie，我偶然在网上看到了他的名字。我过去是CADalog论坛的用户，在那里遇到了很多人，比如Keith Blackie、Daron、t-Bear和许多其他人，我希望我也能在这里见到他们。自从我被AutoCAD编写代码以来已经有很多年了，但现在我决定实现我那些日子的梦想。你看，那时我创建了一个大型建筑程序，并希望尽可能多地向公众提供它。时间过去了，我不得不做其他事情，但现在我希望我能做到。它的名字将是FreeCAD，并且可以使用两种语言（希腊语和英语）。
同时，我希望我能让我的架子对这个论坛上的其他人有用。再次感谢您的帮助。我要发布另一个关于在AutoCAD中使用Access的主题了！

Kerry · 发表于 2006-12-8 01:05:42

我为你感到高兴。

rkmcswain · 发表于 2006-12-8 07:59:01

Lisp

copy

(vl-registry-read (strcat "HKEY_LOCAL_MACHINE\" (vlax-product-key)) "ACADLOCATION")

VBA

copy

ThisDrawing.Application.Path

iliekater · 发表于 2006-12-8 15:21:12

谢谢，rkmcswain。我不想低估你的答案，我已经找到了。你看，自从Kerry Brown告诉我Application对象后，我搜索了它的属性并找到了Path属性。
但是，既然你提到了它，让我问点别的：
假设没有任何Path属性，只有FullName属性。怎么能从FullName中提取路径字符串呢？我使用了像right等函数，但是，我仍然无法得到它......

如何找到AutoCAD的安装路径

发表回复

精选推荐