摘要:
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 阅读全文
摘要:
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) 阅读全文