SimilarDuckweed的博客 Dim g As Graphics = Label1.CreateGraphics '指定在那个控件上画图,并为这个控件创建GDI+绘图 Dim P As Pen = New Pen(Color.Black) '创建画笔并获取系统定义颜色 Dim P1 As Pen = New Pen(Color.FromArgb(127,...
fanyx_bj的博客首先要引用dll: Imports AutoCAD Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = New AutoCAD.AcadApplication a.Visible = True ...