[求助]雪山飞狐老师请进

tfod2000

我将vb的程序改到了vb.net 但是对于事件的处理出现了问题，它似乎没有反应请老师帮忙给看看 Public Class Form1
Inherits System.Windows.Forms.Form
Private WithEvents oDoc As AutoCAD.AcadDocument Private Sub oDoc_BeginDoubleClick(ByVal PickPoint As Object) Handles oDoc.BeginDoubleClick
Call liancad()
If acadApp Is Nothing Then
MsgBox("无法连接ACAD", vbCritical) Exit Sub
End If
acadDoc = acadApp.ActiveDocument '程序处理
MsgBox("asdfasdfaf")
Dim pfSS As AutoCAD.AcadSelectionSet
Dim ssobject As AutoCAD.AcadEntity
Dim msg As String Dim nodeaddress As Object Dim xt As Object
Dim xd As Object
Dim i As Integer
node_x = 0 '初始化
node_y = 0
node_z = 0
msg = vbCrLf
pfSS = acadDoc.PickfirstSelectionSet
For Each ssobject In pfSS
msg = msg & vbCrLf & ssobject.ObjectName
If ssobject Is Nothing Then
MsgBox("no")
Exit Sub
End If If ssobject.ObjectName = "AcDbText" Then Retpoint = acadDoc.HandleToObject(ssobject.Handle)
ssobject.GetXData("", xt, xd)
For i = 0 To UBound(xt)
Select Case xt(i)
Case 1000 If xd(i) = "node" Then node_x = Retpoint.InsertionPoint(0)
node_y = Retpoint.InsertionPoint(1)
node_z = Retpoint.InsertionPoint(2)
nodestring = Retpoint.TextString
Else
Exit Sub
End If
End Select
Next i
End If
Next ssobject
Form1.ActiveForm.Hide()
Dim form3 As New zyl3()
form3.ShowDialog()
End Sub

雪山飞狐_lzh

acadDoc = acadApp.ActiveDocument应该在事件的外面做，因为acadDoc始终没有实例化，该事件是不会触发的

tfod2000

acadDoc = acadApp.ActiveDocument         ，应该做到哪块，比较合适？是在模块中吗？怎么才能触发这个事件呢？

雪山飞狐_lzh

你可以放在窗体的初始化代码，紧接着连接Cad的代码后面

tfod2000

我已经改成了你所说的将 Call liancad()
If acadApp Is Nothing Then
MsgBox("无法连接ACAD", vbCritical) Exit Sub
End If
acadDoc = acadApp.ActiveDocument 这些代码放到了form_load中了，但是似乎不起作用。是不是声明出错了。

雪山飞狐_lzh

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common Public Class Form1
Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码 " Public Sub New()
MyBase.New() '该调用是 Windows 窗体设计器所必需的。
InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub 'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = "Form1"
Me.Text = "Form1" End Sub #End Region
Private m_oApp As AcadApplication
Private WithEvents m_oDoc As AcadDocument Private Sub m_oDoc_BeginDoubleClick(ByVal PickPoint As Object) Handles m_oDoc.BeginDoubleClick
m_oApp.Eval("Msgbox 1")
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_oApp = GetObject(, "AutoCad.Application")
m_oDoc = m_oApp.ActiveDocument
End Sub
End Class

chman

果然是老手


换成vc＋＋解决问题就是麻烦


我改成vb了

chman

vc++还行，现在改学vb才叫麻烦。


不过没有办法，生来笨，只能再学了。


啃vba中