rf8862

2020年7月4日

摘要：文字对齐应使用 DBText.AlignmentPoint 属性，而不能使用 Position 属性阅读全文

posted @ 2020-07-04 21:58 rf8862 阅读(184) 评论(0) 推荐(0)

2020年3月27日

摘要： ''修改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)

2020年2月27日

保持选定单元格前景色不变

摘要： 1、 Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting '保持选定单元格前阅读全文

posted @ 2020-02-27 09:03 rf8862 阅读(140) 评论(0) 推荐(0)

2020年2月24日

选择对象时添加选项（KeyWord）

摘要： 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)

2020年2月21日

创建对象

摘要： 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)

2020年2月20日

坐标系操作

摘要： 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)

2020年2月18日

创建重复字符的字符串

摘要： Dim a As String = StrDup(100, "*") 阅读全文

posted @ 2020-02-18 20:42 rf8862 阅读(360) 评论(0) 推荐(0)

2020年2月14日

添加和读取扩展数据

摘要： 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)

GDI+ 透明画刷

摘要： 1、蓝色 Dim Brush As Brush = New SolidBrush(Color.FromArgb(10, 87, 131, 221)) 阅读全文

posted @ 2020-02-14 00:38 rf8862 阅读(315) 评论(0) 推荐(0)

2020年2月8日

AutoCAD将焦点设置为绘图窗口

摘要： Autodesk.AutoCAD.Internal.Utils.SetFocusToDwgView() 阅读全文

posted @ 2020-02-08 11:02 rf8862 阅读(357) 评论(0) 推荐(0)

公告