[求助]：求助：如何在vb中捕捉CAD中的事件？

ebigsong

我在vb中建立了与cad当前文档的连接，可以通过vb向cad中传递命

令，同时可以在vb中接受 cad的一些信息。 可是，怎样才能向vb

传递cad中的事件信息？

比如，我在cad中画了一条直线，我希望vb能捕捉到这个事件，并

执行一定的命令。

希望版主和高手可以赐教！

efan2000

可以先创建一个类模块，在其中编写事件的触发代码。

2. 
   
3.   [FONT=courier new]
   
4. '类模块Class1
   
5. Option Explicit
   
6. Public acadDoc As AcadDocument
   
7. Public WithEvents Line As AcadLine        ' 使用 Modified 事件示例
   
8. 
   
9. Sub Example_Modified()
   
10.      ' 示例在模型空间创建一条直线，然后修改直线的颜色，触发 Modified 事件。
    
11.    
    
12.     Dim sPt(0 To 2) As Double
    
13.     Dim ePt(0 To 2) As Double
    
14.    
    
15.     ' 定义起点和终点坐标
    
16.     sPt(0) = 1: sPt(1) = 1: sPt(2) = 0
    
17.     ePt(0) = 4: ePt(1) = 4: ePt(2) = 0
    
18.         
    
19.     ' 在模型空间创建一条直线
    
20.     '
    
21.     ' * 注意: 将返回的对象存放入模块级变量。才允许外部事件过程与对象进行关联，触发事件。
    
22.     Set Line = acadDoc.ModelSpace.AddLine(sPt, ePt)
    
23.    
    
24.     acadDoc.Application.ZoomAll
    
25.    
    
26.     ' 修改直线的颜色。
    
27.     Line.Color = acRed
    
28. 
    
29.     acadDoc.Regen acAllViewports
    
30.    
    
31. End Sub
    
32. 
    
33. Private Sub Line_Modified(ByVal pObject As AutoCAD.IAcadObject)
    
34.     ' 示例接收对象的修改事件。.
    
35.     MsgBox "You just modified an object with an ID of: " & pObject.ObjectID
    
36.    
    
37. End Sub
    
38. 
    
39.   [/FONT]
    

<br />   [FONT=courier new]<br /> '类模块Class1<br /> Option Explicit<br /> Public acadDoc As AcadDocument<br /> Public WithEvents Line As AcadLine        ' 使用 Modified 事件示例<br /> <br /> Sub Example_Modified()<br />      ' 示例在模型空间创建一条直线，然后修改直线的颜色，触发 Modified 事件。<br />     <br />     Dim sPt(0 To 2) As Double<br />     Dim ePt(0 To 2) As Double<br />     <br />     ' 定义起点和终点坐标<br />     sPt(0) = 1: sPt(1) = 1: sPt(2) = 0<br />     ePt(0) = 4: ePt(1) = 4: ePt(2) = 0<br />         <br />     ' 在模型空间创建一条直线<br />     '<br />     ' * 注意: 将返回的对象存放入模块级变量。才允许外部事件过程与对象进行关联，触发事件。<br />     Set Line = acadDoc.ModelSpace.AddLine(sPt, ePt)<br />     <br />     acadDoc.Application.ZoomAll<br />     <br />     ' 修改直线的颜色。<br />     Line.Color = acRed<br /> <br />     acadDoc.Regen acAllViewports<br />     <br /> End Sub<br /> <br /> Private Sub Line_Modified(ByVal pObject As AutoCAD.IAcadObject)<br />     ' 示例接收对象的修改事件。.<br />     MsgBox "You just modified an object with an ID of: " & pObject.ObjectID<br />     <br /> End Sub<br /> <br />   [/FONT]<br />

然后再创建一个模块中，在其中编写与 AutoCAD 的接口。

2. 
   
3.   [FONT=courier new]
   
4. '模块Module1
   
5. Option Explicit
   
6. 
   
7. Sub Main()
   
8.     '创建类模块的引用
   
9.     Dim c As Class1
   
10.     Set c = New Class1
    
11.     '创建 AutoCAD 的引用，设置类中的 acadDoc 对象为 AutoCAD 中新添加文档对象。
    
12.     Dim acadApp As AcadApplication
    
13.     Set acadApp = CreateObject("AutoCAD.Application")
    
14.     acadApp.Visible = True
    
15.     Set c.acadDoc = acadApp.Documents.Add
    
16.     '调用类中创建直线和修改颜色的过程。
    
17.     c.Example_Modified
    
18. End Sub
    
19. 
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> '模块Module1<br /> Option Explicit<br /> <br /> Sub Main()<br />     '创建类模块的引用<br />     Dim c As Class1<br />     Set c = New Class1<br />     '创建 AutoCAD 的引用，设置类中的 acadDoc 对象为 AutoCAD 中新添加文档对象。<br />     Dim acadApp As AcadApplication<br />     Set acadApp = CreateObject("AutoCAD.Application")<br />     acadApp.Visible = True<br />     Set c.acadDoc = acadApp.Documents.Add<br />     '调用类中创建直线和修改颜色的过程。<br />     c.Example_Modified<br /> End Sub<br /> <br />   [/FONT]<br />

bravechen

think you