摘要: 文字对齐应使用 DBText.AlignmentPoint 属性,而不能使用 Position 属性 阅读全文
posted @ 2020-07-04 21:58 rf8862 阅读(184) 评论(0) 推荐(0)
摘要: ''修改ItemHeight无效 Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem e.DrawBackground() e.DrawFocusRecta 阅读全文
posted @ 2020-03-27 04:21 rf8862 阅读(1148) 评论(0) 推荐(0)
摘要: 1、 Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting '保持选定单元格前 阅读全文
posted @ 2020-02-27 09:03 rf8862 阅读(140) 评论(0) 推荐(0)
摘要: Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Dim ed A 阅读全文
posted @ 2020-02-24 12:57 rf8862 阅读(720) 评论(0) 推荐(0)
摘要: 1、创建单行文字 Dim dt As New DatabaseServices.DBText() With dt .TextString = psr.StringResult .Justify = AttachmentPoint.MiddleCenter .AlignmentPoint = ppr. 阅读全文
posted @ 2020-02-21 04:00 rf8862 阅读(123) 评论(0) 推荐(0)
摘要: 1、设为WCS Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument 阅读全文
posted @ 2020-02-20 08:49 rf8862 阅读(246) 评论(0) 推荐(0)
摘要: Dim a As String = StrDup(100, "*") 阅读全文
posted @ 2020-02-18 20:42 rf8862 阅读(360) 评论(0) 推荐(0)
摘要: 1、添加扩展数据 Private Sub 添加扩展数据(ByVal ent As Entity, ByVal DictName As String, ByVal TypedValue As TypedValue) If ent.ExtensionDictionary = Nothing Then e 阅读全文
posted @ 2020-02-14 01:44 rf8862 阅读(322) 评论(0) 推荐(0)
摘要: 1、蓝色 Dim Brush As Brush = New SolidBrush(Color.FromArgb(10, 87, 131, 221)) 阅读全文
posted @ 2020-02-14 00:38 rf8862 阅读(315) 评论(0) 推荐(0)
摘要: Autodesk.AutoCAD.Internal.Utils.SetFocusToDwgView() 阅读全文
posted @ 2020-02-08 11:02 rf8862 阅读(357) 评论(0) 推荐(0)