Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

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