摘要:
1、 Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting '保持选定单元格前 阅读全文
摘要:
Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Dim ed A 阅读全文
摘要:
1、创建单行文字 Dim dt As New DatabaseServices.DBText() With dt .TextString = psr.StringResult .Justify = AttachmentPoint.MiddleCenter .AlignmentPoint = ppr. 阅读全文
摘要:
1、设为WCS Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument 阅读全文
摘要:
Dim a As String = StrDup(100, "*") 阅读全文
摘要:
1、添加扩展数据 Private Sub 添加扩展数据(ByVal ent As Entity, ByVal DictName As String, ByVal TypedValue As TypedValue) If ent.ExtensionDictionary = Nothing Then e 阅读全文
摘要:
1、蓝色 Dim Brush As Brush = New SolidBrush(Color.FromArgb(10, 87, 131, 221)) 阅读全文
摘要:
Autodesk.AutoCAD.Internal.Utils.SetFocusToDwgView() 阅读全文
摘要:
Clipboard.Clear() ' 清除剪贴板 If DataGridView2.Rows.Count > 0 Then Dim a As New List(Of String) For i As Integer = 0 To DataGridView2.Rows.Count - 1 Dim b 阅读全文
摘要:
1、CommandEnded 在程序启动的过程中添加下面这行代码,然后,程序里面需要一个名为CommandEnded的SUB,其签名要和事件一致, 这样,在事件发生时,就会调用CommandEnded过程 AddHandler Autodesk.AutoCAD.ApplicationServices 阅读全文