AutoCAD VB.Net拾色器

Question

我将一些AutoCAD VBA移植到VB.Net。

几个模块做一个ThisDrawing.SendCommand("_color" & vbCR)来弹出一个AutoCAD颜色选择器，然后通过执行ThisDrawing.GetVariable("CECOLOR")来获得选择的颜色来处理响应。

使用.Net，SendCommand不会执行，直到程序结束。

如何让AutoCAD颜色选择器在我的代码中内联执行？

Answer 1

有一个ColorDialog类来做到这一点。这里是一些C＃代码：

using Autodesk.AutoCAD.EditorInput; 
using Autodesk.AutoCAD.Windows; 

var cd = new ColorDialog();  
if (cd.ShowDialog() != DialogResult.OK) return; 
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor; 
ed.WriteMessage("\nSelected color: " + cd.Color);