用VB编写CAD绘图插件
来源:百度知道 编辑:UC知道 时间:2024/06/07 22:31:07
现在想用VB编写一个CAD绘图插件。请各位帮帮忙。
要求:比如绘制一个矩形,或一段样条曲线。或给定一条线段以及半径,自动生成三维图。要求用VB插件的界面输入数值,但确定以后要在CAD的绘图窗口中输出结果。
我想要的是方法,我想通过代码了解一下VB与CAD之间是如何实现交互的。请各位高手或过来人多多指教。非常感谢。
回答满意我追加100分。也只有这么多了。
谢谢你的回答,不过我用VB试了一下,将代码复制过去后,调试却发现错误。
VB我并不熟,也很久没有用了。
你能把它用VB做好后,打包发给我吗?
jingxueyun@163.com
谢了!
操作步骤:
一、创建一个ACTIVEX DLL cadPro工程
二、添加一个模块命名为ModCad.代码如下
Public acadApp As Object
Public acadDoc As Object
(这里建立一个新块主要是为了以后在多个窗体、类或者多个工程中可以调用)
二、添加一个类ClsTest代码如下:
Public Function MenuMain(MenuIndex As Integer)
'下面的判断在VB中测试的时候可以用到,在生成DLL后VBA调用时可注释
If ModCad.acadApp Is Nothing Or ModCad.acadDoc Is Nothing Then
ConnectToAcad
setApp ModCad.acadApp
setDoc ModCad.acadDoc
End If
Select Case MenuIndex
Case 1
AutoCADTest
Case 2
End Select
End Function
Public Function ConnectToAcad()
On Error Resume Next
Set ModCad.acadApp = GetObject(, "AutoCAD.Application.16.2") '16.2是CAD的版本
If Err Then
Err.Clear
Set ModCad.acadApp = CreateObject("AutoCAD.Application.16.2")
End If
If Err Then