双击CAD对象，显示自定义对话框实现方法（VB.NET)

雪山飞狐_lzh

Com的版本，引用两个类型库

2. using System;
3. using System.Collections.Generic;
4. using Autodesk.AutoCAD.Runtime;
5. using Autodesk.AutoCAD.DatabaseServices;
6. using Autodesk.AutoCAD.ApplicationServices;
7. using Autodesk.AutoCAD.EditorInput;
8. using Autodesk.AutoCAD.Interop;
9. using Autodesk.AutoCAD.Interop.Common;
10. [assembly: ExtensionApplication(typeof(CadTest.TlsApplication))]
11. namespace CadTest
12. {
13.     class TlsApplication : IExtensionApplication
14.     {
15.         void IExtensionApplication.Initialize()
16.         {
17.             TTest.Start();
18.         }
19.         void IExtensionApplication.Terminate()
20.         {
21.         }
22.     }
23.     class TTest
24.     {
25.         static bool m_DbClick = false;
26.         static Dictionary<IntPtr, AcadDocument> m_AcadDocs = new Dictionary<IntPtr, AcadDocument>();
27.         public static void Start()
28.         {
29.             foreach (Document doc in Application.DocumentManager)
30.             {
31.                 AcadDocument acaddoc = (AcadDocument)doc.AcadDocument;
32.                 m_AcadDocs.Add(doc.Window.Handle, acaddoc);
33.                 acaddoc.BeginDoubleClick += new _DAcadDocumentEvents_BeginDoubleClickEventHandler(beginDoubleClick);
34.             }
35.             Application.DocumentManager.DocumentLockModeChanged += new DocumentLockModeChangedEventHandler(vetoCommand);
36.             Application.DocumentManager.DocumentCreated += new DocumentCollectionEventHandler(documentCreated);
37.         }
38.         static void documentCreated(object sender, DocumentCollectionEventArgs e)
39.         {
40.             Document doc = e.Document;
41.             AcadDocument acaddoc = (AcadDocument)doc.AcadDocument;
42.             m_AcadDocs.Add(doc.Window.Handle, acaddoc);
43.             acaddoc.BeginDoubleClick += new _DAcadDocumentEvents_BeginDoubleClickEventHandler(beginDoubleClick);
44.         }
46.         static void beginDoubleClick(object PickPoint)
47.         {
48.             IntPtr ip = Application.DocumentManager.MdiActiveDocument.Window.Handle;
49.             if (m_AcadDocs.ContainsKey(ip))
50.             {
51.                 AcadDocument doc = m_AcadDocs[ip];
52.                 AcadSelectionSet ss = doc.PickfirstSelectionSet;
53.                 if (ss.Count == 1)
54.                 {
55.                     AcadLine line = ss.Item(0) as AcadLine;
56.                     if (line != null)
57.                     {
58.                         object xt;
59.                         object xd;
60.                         line.GetXData("MyApp", out xt, out xd);
61.                         object[] datas = (object[])xd;
62.                         Application.ShowAlertDialog("数目共" + datas[2].ToString());
63.                         m_DbClick = true;
64.                         return;
65.                     }
66.                 }
67.             }
68.             m_DbClick = false;
69.         }
70.         static void vetoCommand(object sender, DocumentLockModeChangedEventArgs e)
71.         {
72.             if (m_DbClick)
73.             {
74.                 switch (e.GlobalCommandName.ToLower())
75.                 {
76.                     case "properties":
77.                         m_DbClick = false;
78.                         e.Veto();
79.                         break;
80.                 }
81.             }
82.         }
84.     }
85. }

using System; using System.Collections.Generic; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Interop; using Autodesk.AutoCAD.Interop.Common; [assembly: ExtensionApplication(typeof(CadTest.TlsApplication))] namespace CadTest {     class TlsApplication : IExtensionApplication     {         void IExtensionApplication.Initialize()         {             TTest.Start();         }         void IExtensionApplication.Terminate()         {         }     }     class TTest     {         static bool m_DbClick = false;         static Dictionary<IntPtr, AcadDocument> m_AcadDocs = new Dictionary<IntPtr, AcadDocument>();         public static void Start()         {             foreach (Document doc in Application.DocumentManager)             {                 AcadDocument acaddoc = (AcadDocument)doc.AcadDocument;                 m_AcadDocs.Add(doc.Window.Handle, acaddoc);                 acaddoc.BeginDoubleClick += new _DAcadDocumentEvents_BeginDoubleClickEventHandler(beginDoubleClick);             }             Application.DocumentManager.DocumentLockModeChanged += new DocumentLockModeChangedEventHandler(vetoCommand);             Application.DocumentManager.DocumentCreated += new DocumentCollectionEventHandler(documentCreated);         }         static void documentCreated(object sender, DocumentCollectionEventArgs e)         {             Document doc = e.Document;             AcadDocument acaddoc = (AcadDocument)doc.AcadDocument;             m_AcadDocs.Add(doc.Window.Handle, acaddoc);             acaddoc.BeginDoubleClick += new _DAcadDocumentEvents_BeginDoubleClickEventHandler(beginDoubleClick);         }         static void beginDoubleClick(object PickPoint)         {             IntPtr ip = Application.DocumentManager.MdiActiveDocument.Window.Handle;             if (m_AcadDocs.ContainsKey(ip))             {                 AcadDocument doc = m_AcadDocs[ip];                 AcadSelectionSet ss = doc.PickfirstSelectionSet;                 if (ss.Count == 1)                 {                     AcadLine line = ss.Item(0) as AcadLine;                     if (line != null)                     {                         object xt;                         object xd;                         line.GetXData("MyApp", out xt, out xd);                         object[] datas = (object[])xd;                         Application.ShowAlertDialog("数目共" + datas[2].ToString());                         m_DbClick = true;                         return;                     }                 }             }             m_DbClick = false;         }         static void vetoCommand(object sender, DocumentLockModeChangedEventArgs e)         {             if (m_DbClick)             {                 switch (e.GlobalCommandName.ToLower())                 {                     case "properties":                         m_DbClick = false;                         e.Veto();                         break;                 }             }         }     } }

xwjljh

您好，Com的版本的VB.net代码怎么实现呀？谢谢了

雪山飞狐_lzh

VB.Net好久没用了，快忘光了：）

把步骤说下吧

TTest.Start方法中

重载Application.DocumentManager.DocumentCreated事件，

在新建文档时把当前文档的Com实例加入集合里

然后重载新建文档的BeginDoubleClick事件

明天有时间慢慢改改看

雪山飞狐_lzh

2. Imports System
3. Imports System.Collections.Generic
4. Imports Autodesk.AutoCAD.Runtime
5. Imports Autodesk.AutoCAD.DatabaseServices
6. Imports Autodesk.AutoCAD.ApplicationServices
7. Imports Autodesk.AutoCAD.EditorInput
8. Imports Autodesk.AutoCAD.Interop
9. Imports Autodesk.AutoCAD.Interop.Common
10. Namespace TlsTest
11.     Public Class TApplication
12.         Implements IExtensionApplication
13.         Public Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize
14.             TTest.Start()
15.         End Sub
16.         Public Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate
17.         End Sub
18.     End Class
19.     Public Class TTest
20.         Private Shared m_Veto As Boolean
21.         Private Shared m_AcadDocs As Dictionary(Of IntPtr, AcadDocument) = New Dictionary(Of IntPtr, AcadDocument)
22.         Public Shared Sub Start()
23.             AddHandler Application.DocumentManager.DocumentLockModeChanged, AddressOf vetoCommand
24.             AddHandler Application.DocumentManager.DocumentCreated, AddressOf documentCreated
25.             For Each doc As Document In Application.DocumentManager
26.                 Dim acaddoc As AcadDocument = doc.AcadDocument
27.                 m_AcadDocs.Add(doc.Window.Handle, acaddoc)
28.                 AddHandler acaddoc.BeginDoubleClick, AddressOf beginDoubleClick
29.             Next
30.         End Sub
31.         Shared Sub vetoCommand(ByVal sender As Object, ByVal e As DocumentLockModeChangedEventArgs)
32.             If m_Veto Then
33.                 Select Case e.GlobalCommandName.ToLower()
34.                     Case "properties"
35.                         m_Veto = False
36.                         e.Veto()
37.                 End Select
38.             End If
39.         End Sub
40.         Shared Sub documentCreated(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs)
41.             Dim doc As AcadDocument = e.Document.AcadDocument
42.             m_AcadDocs.Add(e.Document.Window.Handle, doc)
43.             AddHandler doc.BeginDoubleClick, AddressOf beginDoubleClick
44.         End Sub
45.         Shared Sub beginDoubleClick(ByVal PickPoint As Object)
46.             Dim ip As IntPtr = Application.DocumentManager.MdiActiveDocument.Window.Handle
47.             If m_AcadDocs.ContainsKey(ip) Then
48.                 Dim doc As AcadDocument = m_AcadDocs(ip)
49.                 Dim ss As AcadSelectionSet = doc.PickfirstSelectionSet
50.                 If ss.Count = 1 Then
51.                     Dim line As AcadLine = ss.Item(0)
52.                     If Not (line Is Nothing) Then
53.                         Dim xt = Nothing, xd = Nothing
54.                         line.GetXData("MyApp", xt, xd)
55.                         Application.ShowAlertDialog("数目共" + xd(2).ToString())
56.                         m_Veto = True
57.                         Return
58.                     End If
59.                 End If
60.             End If
61.             m_Veto = False
62.         End Sub
63.     End Class
64. End Namespace

Imports System Imports System.Collections.Generic Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Interop Imports Autodesk.AutoCAD.Interop.Common Namespace TlsTest     Public Class TApplication         Implements IExtensionApplication         Public Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize             TTest.Start()         End Sub         Public Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate         End Sub     End Class     Public Class TTest         Private Shared m_Veto As Boolean         Private Shared m_AcadDocs As Dictionary(Of IntPtr, AcadDocument) = New Dictionary(Of IntPtr, AcadDocument)         Public Shared Sub Start()             AddHandler Application.DocumentManager.DocumentLockModeChanged, AddressOf vetoCommand             AddHandler Application.DocumentManager.DocumentCreated, AddressOf documentCreated             For Each doc As Document In Application.DocumentManager                 Dim acaddoc As AcadDocument = doc.AcadDocument                 m_AcadDocs.Add(doc.Window.Handle, acaddoc)                 AddHandler acaddoc.BeginDoubleClick, AddressOf beginDoubleClick             Next         End Sub         Shared Sub vetoCommand(ByVal sender As Object, ByVal e As DocumentLockModeChangedEventArgs)             If m_Veto Then                 Select Case e.GlobalCommandName.ToLower()                     Case "properties"                         m_Veto = False                         e.Veto()                 End Select             End If         End Sub         Shared Sub documentCreated(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs)             Dim doc As AcadDocument = e.Document.AcadDocument             m_AcadDocs.Add(e.Document.Window.Handle, doc)             AddHandler doc.BeginDoubleClick, AddressOf beginDoubleClick         End Sub         Shared Sub beginDoubleClick(ByVal PickPoint As Object)             Dim ip As IntPtr = Application.DocumentManager.MdiActiveDocument.Window.Handle             If m_AcadDocs.ContainsKey(ip) Then                 Dim doc As AcadDocument = m_AcadDocs(ip)                 Dim ss As AcadSelectionSet = doc.PickfirstSelectionSet                 If ss.Count = 1 Then                     Dim line As AcadLine = ss.Item(0)                     If Not (line Is Nothing) Then                         Dim xt = Nothing, xd = Nothing                         line.GetXData("MyApp", xt, xd)                         Application.ShowAlertDialog("数目共" + xd(2).ToString())                         m_Veto = True                         Return                     End If                 End If             End If             m_Veto = False         End Sub     End Class End Namespace

xwjljh

谢谢了

还是遇到问题，我再好好研究研究

谢谢您的帮助了

dukeyongwang

我在VS2005、CAD2006中测试的效果仍然无法屏蔽属性窗体，应该不是版本的问题吧?

dukeyongwang

lzh741206发表于2009-5-30 16:05:00Com的版本，引用两个类型库using System;using System.Collections.Generic;using Autodesk.AutoCAD.Runtime;using Autodesk.AutoCAD.DatabaseServices;using Autodesk.AutoCAD.ApplicationSer

     在VS2005和CAD2006中测试的效果还是会显示属性窗体？e.Veto()是什么意思？好像没起到什么作用？

雪山飞狐_lzh

原则上2006可以使用NetApi，但最好是不要，Bug很多的

dukeyongwang

那在CAD2006中怎么实现实体的双击事件呢？查了很长时间，一直没有解决，有说用反应器的，反应器不是和事件差不多嘛？还有说CUI的，不知道CUI如何实现，忘狐哥和其他大侠们帮帮忙！！！