完美的米克。这就是我所需要知道的一切。
没有使用下面的代码。
- ' We now have all the solids created. We now need to split those solids into separate objects
- For Each combinedSolidId As ObjectId In combined3DsolidCollection
- Dim combinedSolid As Solid3d = trans.GetObject(combinedSolidId, OpenMode.ForWrite)
- Dim individualSolids() As Solid3d
- individualSolids = combinedSolid.SeparateBody() 'This resturns an array of solid3D objects
- For Each solid As Solid3d In individualSolids
- acBlkTblRec.AppendEntity(solid)
- trans.AddNewlyCreatedDBObject(solid, True)
- Next
- Next
|