2013年7月8日

AutoCAD开发4--添加块)
摘要： Private Sub CommandButton3_Click() Dim pInsertPnt As Variant 'pInsertPnt(0) = 100.5141: pInsertPnt(1) = 34.5034: pInsertPnt(2) = 0# UserForm1.Hide pInsertPnt = ThisDrawing.Utility.GetPoint(, "请输入点或者在屏幕上选择一点: ") Dim pBlock As AcadBlockReference Dim pBlockName As String Dim pXDataType(0 阅读全文
posted @ 2013-07-08 23:45 Lzhm216 阅读(360) 评论(0) 推荐(0)
AutoCAD开发3--修改文字图层，颜色
摘要： Dim pText As AcadText Dim pColor1 As AcadAcCmColor Set pColor1 = Application.GetInterfaceObject("AutoCAD.AcCmColor.16") Call pColor1.SetRGB(0, 0, 255) Dim pColor2 As AcadAcCmColor Set pColor2 = Application.GetInterfaceObject("AutoCAD.AcCmColor.16") Call pColor2.SetRGB(127, 0, 0) 阅读全文
posted @ 2013-07-08 23:44 Lzhm216 阅读(953) 评论(0) 推荐(0)

导航