However, you just need to imagine that strBlockArray is full of the blocks I want, then strCodeArray holds information of what attribute I need. I think it's not too easy for others to understand. ![]() Set AcadDbx = NothingThe "problem" is how I did it. StrResultArray(Int(strCode(1)), DwgCnt) = UCase(AcadAtt.TextString) ' Write the attribute information to the result array StrCode = Split(varAcadCodeArray(BlkCnt)(CodeCnt), " ", -1, vbBinar圜ompare) ' Store all attributes in the matrix Attsįor AttCnt = LBound(Atts) To UBound(Atts)įor CodeCnt = 0 To UBound(varAcadCodeArray(BlkCnt)) If UCase(AcadBlkR.Name) = UCase(strBlockArray(BlkCnt)) Then If TypeOf AcadEnt Is AcadBlockReference Then ' If the block(s) was(were) found, then proceed If UCase(AcadBlk.Name) = UCase(strBlockArray(BlkCnt)) Then ![]() ' Check if the block matches the block we want ' Determine if the requested blocks are present in the drawing If Err.Number = 0 And AcadDbx.Name "" Then ' If there are no errors and there is a file open Set AcadDbx = dbxOpen(strResultArray(intFolderColumn - 1, DwgCnt), strResultArray(intFileColumn - 1, DwgCnt))
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |