vb.net怎样调用CAD的颜色对话框

pmq

vb.net怎样调用CAD的颜色对话框

utopio

以C#为例

1. 
   
2. var colordlg = new Autodesk.AutoCAD.Windows.ColorDialog();
   
3.         if (colordlg.ShowDialog() == DialogResult.OK)
   
4.         {
   
5.             ColorIndex = colordlg.Color.ColorIndex;
   
6.         }
   

<br /> var colordlg = new Autodesk.AutoCAD.Windows.ColorDialog();<br />         if (colordlg.ShowDialog() == DialogResult.OK)<br />         {<br />             ColorIndex = colordlg.Color.ColorIndex;<br />         }<br />

pmq

utopio 发表于 2023-8-29 12:22
以C#为例

谢谢
也在网上搜到https://www.cnblogs.com/JJBox/p/11610343.html#_label1
Dim cd = New Autodesk.AutoCAD.Windows.ColorDialog()
Dim dr = cd.ShowDialog()
If dr = System.Windows.Forms.DialogResult.OK Then
    ed.WriteMessage(vbLf & "CAD颜色选择了: " & cd.Color.ToString())
    CmdTest_ShowDialog = cd.Color.ColorIndex '.ColorValue

Else
    CmdTest_ShowDialog = 1
End If