Private Sub GetBlockCnt()
Dim Sheet As Worksheet
Dim ACad As Object
Dim ACadDwg As Object
Dim sPath As String
Dim ssetObj As Object
Dim mode As Integer
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
Dim I As Integer
Dim groupCode As Variant, dataCode...
