'testing export each drawing from the cubicle drawing as separate file. Sub inttest() Dim entry As AcadEntity Dim BlockObj As AcadBlock Dim ssetObj As AcadSelectionSet Dim moSpace As AcadModelSpace Set moSpace = ThisDrawing.ModelSpace Dim minExt As Variant Dim maxExt As Variant Dim m ...
1. DB块打开后,选择generate sources功能,完成后会在S7资源管理器sources下看到生成的source文件 2. 打开source文件,复制到excel里面做处理,trim前面的空格,下面VBA脚本即为针对纯struct块的处理过程 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Sub CreateTag() Dim a As Variant Dim b As Variant Dim szGroup, szTagname ...
Sub extractFATtestingcase() ' ' extractFATtestingcase 宏 ' ' Dim objDoc As Document Dim objTable, objLastTable As Table Dim objCell As Cell Dim intCount As Integer Dim strText As String ...
Function addsheets(station) Worksheets.Add after:=Sheets(Sheets.Count) '在所有表最右边插入一表 ActiveSheet.Name = station '表名 End Function Sub gateway() Dim station, column1, column2, column3, column4 As String column1 = 10 column4 = 1 Dim row_station_start, row_st ...