Question

用VB调用Autocad中的VBA，能不能像VB自己的函数一样有编写提示？

我才学VB时间不长，最近在尝试用VB程序连接Autocad，使用cad的vba代码实现对CAD的控制，因为我不太喜欢cad的vba每一次使用前还需要加载工程，而且2010之后的CAD就不默认安装vba了，所以很不方便。
但是如果在VB中编程的话，它是不会像cad中的vba一样有编写提示的，那样对我这样的菜鸟而言就要记住太多的函数和方法了。所以，我想问问各位高手，有没有什么办法能够让我在使用VB编程的时候同样可以使用vba的编写提示。
以下是我希望达到的效果：

Answer 1

　　一、　可以的，设置方法为先把AutoCad的对象模型搞懂 在Cad的帮助里有相关的内容 先打开Cad，然后运行下面的代码 Dim acadapp As Object Dim acaddoc As Object Dim mspace As Object Set acadapp = GetObject(, "autocad.application") Set acaddoc = acadapp.activedocument Set mspace = acaddoc.modelspace Dim pnt(2) As Double Dim r As Double r = 10 mspace.addcircle pnt, r
　　二、CAD的实用小技巧：
　　1、画直线的时候，经常会遇到过长过短的情况。此时可单击这条直线，这条直线便出现三个蓝色的小夹点。把鼠标移到两端的任意夹点上，点击并拖动夹点可对这直线进行拉长，或缩短。
　　2、当已执行完任意一命令时，如果下一步想重复上一步的命令时，可按右键或Enter键确认，此时CAD会默认刚才操作的命令。比如画完了一个矩形，下一步还是画矩形，直接按右键确认就可以画矩形了。
　　3、当所画的图无法进一步缩小或放大时，可输入快捷键RE，重新生成一下就可以了。
　　4、熟记工作中常用的快捷命令，可以给我们的工作带来很大的方便。如画直线L,画圆C等，这些需要我们在平时的工作中多注意积累，并熟记和运用。
　　5、在CAD设计中如果图中多次出现某一规格的型材，可以事先把这个型材做成块。要用的时候直接把块调出来，这样可以给设计者节省了大量时间。
　　6、在CAD的下方找到对象捕捉，按右键选择设置。弹出草图设置对话筐，如要捕捉中点，切点可以相应的打上勾。画图时就会自动捕捉相应的点。

Answer 2

你好

不知道你用的是哪个版本的CAD ! 自2010之后，是不带VB了，当你ALT+F8是会出现一提示框，点击网址，会打开官网，然后选中相应的软件 下再安装VB，即可。置于你说的提示功能【完全是有的，前提是你得去官网下载安装VB】

希望对你有帮助，还望及时采纳回答！

追问

你好
我使用的是2012版本的CAD，我已经下载了针对我这个版本的VBA，但是所编辑出来的程序每一次用之前都要加载，而且到其他机器上用的话如果对方的电脑上没有VBA的话还要先安装VBA，太麻烦了，所以我就用VB6.0制作了程序，但是VB6.0不会显示VBA for cad中的编写提示。
我希望在VB6.0中能够显示VBA for cad的编写提示，就像VB自己的函数调用一样。

追答

VB6.0调用CAD函数，好真心没用过。

追问

呵呵，我觉得比VBA好用些，2010以后不同步搭载VBA这一点就让VBA在cad中太站不住脚了，相对来说，外部的程序在兼容性上要好一些。可惜我比较菜，如果没有编写提示的话，我需要学好久才能记住那么多的函数啊~

追答

天道酬勤，勤学苦练。

Answer 3

你说的这些，在 VB6中是默认支持的。

并且，可以在菜单”工具“→”选项“中进行设置。

注意下图中，我用红色框圈起来的地方：

至于VBA中的对象，要自动提示，你必须先引用相应的对象库。

追问

你好。我已经按照你的方法设置过了，还是没有我想要的提示。我安装的是2012的CAD，并且已经安装了VBA，能告诉我在VB里面要引用哪一个对象库才能实现编写提示么？

追答

在菜单“工程”→“引用……”中，把你的CAD的库找到，注意要在它前面打上钩。
我没安装CAD，不清楚它具体叫什么名称。
你自己找一下吧，应该能认出来是不是它的。呵呵……
对象列表中的东东很多，你仔细看看。
不过估计 AutoCAD的东西，应该排在前面的。

追问

我之前在网上也找到过差不多的回答，不过都不是很详细，你看一下，我引用的对么，我吧autocad开头的都打勾了。

我引用了这些以后尝试了在VB中输入和VBA for CAD一样的代码，可是后面没有出现编写提示

追答

我觉得应该是只引用第1个就行了。

在 VB6 中，肯定没有“ThisDrawing”这个对象的。

你可以在CAD的VBA中，看看ThisDrawing是什么类型的对象。

然后，你在VB6中，先定义一个这种类型的变量：

dim objCADapp as  xxxxx  

然后，objCADapp 就会有相应的提示了。

你也可以通过对象浏览器（在VB6中，按F2打开），选定CAD的类型库，

看看它有些什么类型的对象、各种对象有什么属性和函数等。

Answer 4

不会有的，对CAD支持是最少的