- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I have code that finds the planes in model space and I have converted it over to drawing space using (oDrawView.ModelToDrawingViewSpace) but it doesn't seem to translate correctly. When I find the farthest curves in the drawing view the planes that should exist in the drawing views are way too large. I'm just wandering if I'm doing it right and if anyone has any tips to locate planes in a drawing view would be very helpful! Thanks in advance!
For Each oOcc In oAssyDoc.ComponentDefinition.Occurrences
If oOcc.BOMStructure = kReferenceBOMStructure Then
Set oSubOccs = oOcc.Definition.Occurrences
For Each oSubOcc In oSubOccs
If InStr(oSubOcc.Name, "Floor") Or InStr(oSubOcc.Name, "FLOOR") Then
Set oSubDef = oSubOcc.Definition
For Each oWPlane In oSubDef.WorkPlanes
If oWPlane.Name <> "XY Plane" And oWPlane.Name <> "YZ Plane" And oWPlane.Name <> "XZ Plane" Then
Set oWPlaneProxy = GetWPlProxy(oSubOcc, oWPlane)
Set oSubOccPt2D = oDrawView.ModelToDrawingViewSpace(oWPlaneProxy.Plane.RootPoint)
Debug.Print oWPlaneProxy.Name & "-" & oSubOccPt2D.X & ", " & oSubOccPt2D.Y
End If
Next
End If
Next
End If
Next
Tiffany Hayden
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Solved! Go to Solution.