当前位置：首页 > news >正文

VB.net 进行CAD二次开发（二）

news 2025/6/28 8:36:06

利用参考文献2，添加面板

执行treeControl = New UCTreeView()时报一个错误：

用户代码未处理 System.ArgumentException
HResult=-2147024809
Message=控件不支持透明的背景色。
Source=System.Windows.Forms
StackTrace:
在 System.Windows.Forms.Control.set_BackColor(Color value)
在 System.Windows.Forms.Form.set_BackColor(Color value)
在 Autodesk.AutoCAD.Windows.AcMgWinformPalette.ResyncToTheme(AcMgWinformPalette* )
在 Autodesk.AutoCAD.Windows.AcMgWinformPalette.Create(AcMgWinformPalette* , CAdUiPaletteSet* pParentWnd)
在 Autodesk.AutoCAD.Windows.PaletteSet.AddCore(String name, AcMgPalette* pPal)
在 Autodesk.AutoCAD.Windows.PaletteSet.Add(String name, Control control)
在 odpmMagProcess.Palettes.Palettes.ShowPalette() 位置 D:\testVBNet\ODPM\odpmMagProcess\Class3.vb:行号 28
在 Autodesk.AutoCAD.Runtime.CommandClass.InvokeWorker(MethodInfo mi, Object commandObject, Boolean bLispFunction)
在 Autodesk.AutoCAD.Runtime.CommandClass.InvokeWorkerWithExceptionFilter(MethodInfo mi, Object commandObject, Boolean bLispFunction)
在 Autodesk.AutoCAD.Runtime.PerDocumentCommandClass.Invoke(MethodInfo mi, Boolean bLispFunction)
在 Autodesk.AutoCAD.Runtime.CommandClass.CommandThunk.Invoke()
InnerException:

搜索了1天关于这个问题的解决方案，并且尝试了这些方案，都没有很好地解决这个问题。

半拉子的解决办法是，给UCDockDrag和UCTteeView添加了构造函数

UCDockDrag.vb

Public Sub New()

' 此调用是设计器所必需的。
InitializeComponent()

' 在 InitializeComponent() 调用之后添加任何初始化。
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
comboBoxDock.BackColor = Color.Red
textBoxDrag.BackColor = Color.Red
Me.BackColor = Color.Red
Me.TransparencyKey = Me.BackColor

End Sub

UCTteeView.vb

Public Class UCTreeView
Public Sub New()

' 此调用是设计器所必需的。
InitializeComponent()

' 在 InitializeComponent() 调用之后添加任何初始化。
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
treeViewEnts.BackColor = Color.Red
dataGridViewEnts.BackgroundColor = Color.Red
'TransparencyKey = Color.FromArgb(1, 0, 0, 0)

Me.BackColor = Color.Red
Me.TransparencyKey = Me.BackColor

End Sub

调试的结果如下：

使用用户控件以后，就没有问题了

面板内的控件都不显示。

换一种思路，搜索其他添加面板的方法。

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Windows
Imports System.Windows.Forms

Namespace Palettes
Public Class Class4
<CommandMethod("CreatePalette")>
Public Sub CreatePalette()
'初始化面板集对象
Dim ps As PaletteSet = New PaletteSet("我的窗体")
ps.MinimumSize = New System.Drawing.Size(300, 300)

' 创建用户自定义的窗体或控件
Dim ctrl As UserControl = New UserControl()

'添加控件到面板集中
ps.Add("My Tab01", ctrl)
ps.Add("My Tab02", ctrl)

'显示面板
ps.Visible = True

'设置面板样式和透明度
ps.Style = PaletteSetStyles.ShowTabForSingle
ps.Opacity = 90

End Sub

End Class
End Namespace

图层选择

<CommandMethod("SelectLayer")>
Public Sub SelectLayer()
Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
If Not doc Is Nothing Then
Dim ps As PaletteSet = New PaletteSet("Select Layer")
ps.Style = PaletteSetStyles.ShowAutoHideButton Or PaletteSetStyles.ShowCloseButton
ps.Size = New System.Drawing.Size(200, 100)
Dim comboBox As System.Windows.Forms.ComboBox = New System.Windows.Forms.ComboBox()

For Each layer As LayerTableRecord In GetLayerList()
comboBox.Items.Add(layer.Name)
Next
Dim okButton As System.Windows.Forms.Button = New System.Windows.Forms.Button()
okButton.Text = "OK"
AddHandler okButton.Click,
Sub(sender, e)
Dim selectedLayer As String = comboBox.SelectedItem.ToString()
Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("Selected Layer: " + selectedLayer)
End Sub

Dim panel As System.Windows.Forms.Panel = New System.Windows.Forms.Panel()

panel.Controls.Add(comboBox)
panel.Controls.Add(okButton)
ps.Add("Select Layer", panel)
ps.Visible = True

End If

End Sub