摘要:
''修改ItemHeight无效 Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem e.DrawBackground() e.DrawFocusRecta 阅读全文
摘要:
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 阅读全文
摘要:
1、添加扩展数据 Private Sub 添加扩展数据(ByVal ent As Entity, ByVal DictName As String, ByVal TypedValue As TypedValue) If ent.ExtensionDictionary = Nothing Then e 阅读全文