Registered forum members do not see this ad.
I'm making a little VBA program that creates a pair of extruded cylinders, with the ability to repeat over a given distance, (piles for a pipe rack) but I need to save 7 attributes for each pair of piles.
My question is:
after creating the 3D solid, how do I include them into a new block (on the fly), then add the attributes (invisible) to the block, and then duplicate this block with updated attributes each time.
Hope this makes sense.
Here is a sample of the code I'm using to create the solid.
Code:Dim shapes(0) As AcadEntity Dim pileREGION As Variant Dim pile3d2 As Acad3DSolid Set shapes(0) = ThisDrawing.ModelSpace.AddCircle(pointB, pileRAD) pileREGION = ThisDrawing.ModelSpace.AddRegion(shapes) Set pile3d2 = ThisDrawing.ModelSpace.AddExtrudedSolid(pileREGION(0), VisPile, 0) shapes(0).Delete pileREGION(0).Delete pile3d2.Layer = "STEEL"
This is a computer generated message. It needs no further signing.