Eric,
Our circumstances are similar (but different). I've been using AutoCAD for about a year and creating solids in VBA. I found precious little documentation that was easy to understand and have had to struggle my way through.
You are correct that VBA can only create solids relative to the WCS. There are two methods that assist with the necessary conversions though. TranslateCoordinates translates a point from one coordinate system to another coordinate system. Its a bit long and unwieldy so I wrote the following couple of functions to simplify my code.
Private Function WCStoUCS(ByVal ptv As Variant) As Variant
WCStoUCS = ThisDrawing.Utility.TranslateCoordinates(ptv, acWorld, acUCS, False)
End Function
Private Function UCStoWCS(ByVal ptv As Variant) As Variant
UCStoWCS = ThisDrawing.Utility.TranslateCoordinates(ptv, acUCS, acWorld, False)
End Function
The other method is the TransformBy method (and it's companion method GetUCSMatrix). These methods use Transformation Matrices to manage the manipulation. I suggest you don't even *try* to understand Transformation Matrics (unless you're an engineer or something) - just be assured in the knowledge that they are a mathematical model for mapping the coordinates from one Coordinate System to the other. To use this approach you create the solid in the WCS as you would want to in the UCS, then Transform it once you're finished. For Example:
PlaneMatrix = PlaneUCS.GetUCSMatrix()
Set GeneralSolid = ThisDrawing.ModelSpace.AddBox(ptv, GeneralLine.Length, SolidBreadth, SolidDepth)
GeneralSolid.Rotate3D pt1, pt2, RightAngle
GeneralSolid.TransformBy (PlaneMatrix)
Regards
Wayne Ivory
