10-03-2024
07:15 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-03-2024
07:15 AM
GOOD MORNING!
Here is a snippet of code i used to find the proxy on a 'shelf' object and then create the geometry intent with proxy plane for creating a dim.
I'm a little busy at work at the moment, but hopefully this helps you sort it out.
'set ref to each shelf Dim Assembly As ComponentOccurrence For Each Assembly In ModelFile.ComponentDefinition.Occurrences If InStr(Assembly.Name, "Shelf") >= 1 Then For Each WPlane In Assembly.Definition.WorkPlanes If WPlane.Name = "Top" Then Dim ShelfProxy As WorkPlaneProxy Assembly.CreateGeometryProxy(WPlane, ShelfProxy) Dim oShelfIntent As GeometryIntent oWorkSurface = oActiveSheet.Centerlines.AddByWorkFeature(ShelfProxy, DrawingView) oShelfIntent = oActiveSheet.CreateGeometryIntent(oWorkSurface, kEndPointIntent) oWorkSurface.Visible = False Call oDimGeoIntent.Add(oShelfIntent) Exit For End If Next End If Next