Kerry 发表于 2006-12-7 08:07:27

如何找到AutoCAD的安装路径

如何找到AutoCAD#039;使用VBA?如果你也能告诉我如何用LISP做到这一点,我会很高兴
到目前为止,我已经使用了CurDir函数,但尽管有时它返回AutoCAD#039;的安装路径,其他一些则返回“我的文档”文件夹。。。事实是,我不'我真的不明白当前目录代表什么……无论如何,我想知道如何获得该路径(尤其是通过VBA)。

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

你想要ACAD吗。exe地址或支持文件搜索路径;从选项->文件您熟悉ActiveX对象模型吗?

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


选择ThisDrawing.Application.preferences.Files。全名(getenv“ACAD”)
(findfile“acad.exe”)
欢迎来到theSwamp;伊利卡特

rkmcswain 发表于 2006-12-7 14:35:52

 哦,天哪,天哪!这比我想象的要有用得多!谢谢你的到来
;你看,我来到这个论坛多亏了基思·布莱克,我不小心在网上看到了他的名字。我过去是一个CADalog论坛的用户,在那里遇到了很多人,像基思·布莱克、达伦、t-bear和许多其他人,我希望我也能在这里看到他们。它&35;039;自从我专注于为AutoCAD编写代码以来,我已经有了很多想法,但现在我决定实现我那时候的一个梦想。你看,当时我创建了一个大型建筑程序,并希望尽可能多地向公众提供它。时间过去了,我不得不做其他事情,但现在我希望我能做到。它的名字将是FreeCAD,并将以两种语言(希腊语和英语)提供;同时,我希望我能使myshelf对论坛上的其他人有用。再次感谢你的帮助。我将发布另一个关于在AutoCAD中使用Access的主题!

rkmcswain 发表于 2006-12-8 01:05:42

本人'我为你高兴。

Kerry 发表于 2006-12-8 07:59:01


Lisp语言(vl-registry-read (strcat "HKEY_LOCAL_MACHINE\\" (vlax-product-key)) "ACADLOCATION")
VBAThisDrawing.Application.Path

Kerry 发表于 2006-12-8 15:21:12

 谢谢你,rkmcswain。我不想低估你的答案,我已经找到了。你看,自从Kerry Brown告诉我关于应用程序对象的事,我搜索了它的属性并找到了路径属性;然而,既然你提到了这一点,让我问一些其他的问题:;假设没有'没有任何路径属性,只有全名属性。如何从全名中提取路径字符串?我需要使用右等函数,但是,我仍然无法获得它。。。
页: [1]
查看完整版本: 如何找到AutoCAD的安装路径