Sub aa() On Error GoTo errcontrol ' 选择集同时建立两个对象 '创建选择集 Set FilterSet = ThisDrawing.SelectionSets.Add("xxYx") Dim FilterType(0 To 3) As Integer Dim FilterData(0 To 3) As Variant '设置过滤 ...
Sub dd1223() On Error Resume Next Dim datatype(0 To 68) As Integer Dim data(0 To 68) As Variant Dim xtypeOut As Variant, XDateOut As Variant Dim objCurrent As AcadEntity Dim basePnt As Variant Dim ss As AcadSelecti ...
Sub GetCentroid() Dim Doc As AcadDocument '一个AutoCAD图形。 Dim Entity As AcadEntity '一个图块 Dim Region As AcadRegion Dim Polylist(0 To 0) As AcadEntity '一个图块,图元 Dim entities As AcadModelSpace '该集合表示了所有模型空间的对象。 Dim nPoly As ...
Sub kk() Dim xlapp As New Excel.Application Dim xlbook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim FileName As String xlapp.Visible = 1 uoFileName = xlapp.Application.GetOpenFilename("Excel 文件 (*.xlsx),*.xlsx") setxlbook = xlapp.Workbooks.Open(FileName) Set xlSheet = xlbook ...
Function jiaoyan() As Boolean 'vb 程序 三种加密方式 Dim i As Integer, S As String, Dt As Date S = GetSetting("MyExcel", "Config", "Date") If IsDate(S) = False Then Dt = #1/1/1900# ...