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

Modifying Drawing View Sketch Elements

I have a drawing with a view that contains a break out. I need to automate the location and size of the breakout profile as the subject of the breakout moves from one configuration or to another. Also, I cannot constrain the profile because the subject of the breakout is suppressed in some configurations. 

I have a rule that is successfully able to adjust the size of the profile but I have had no luck with adjusting the location.
My hope is to be able to set the center of the ellipse as seen below in relation to the center of the detail view.

As a test, I can read the values of:


oView
.Sketches.Item(1).SketchEllipses.Item(1).Geometry.Center.X

oView.Sketches.Item(1).SketchEllipses.Item(1).Geometry.Center.Y

 

But when setting them, there is no error but no effect either. Any thoughts on how to modify the center of this ellipse?

 

 

bagleydustin2600_0-1726767923298.png

 

 

If oView.Name = "2"
			If access_port_quantity <> 0 Then
				oView.Suppressed = False
				'[Resizes breakout profile
				oView.Sketches.Item(1).SketchEllipses.Item(1).Geometry.Center.X = 10
				oView.Sketches.Item(1).SketchEllipses.Item(1).Geometry.Center.Y = 10
				oView.Sketches.Item(1).DimensionConstraints.Item(1).Parameter.Value = access_height * 2.54
				oView.Sketches.Item(1).DimensionConstraints.Item(2).Parameter.Value = access_width * 2.54
				']
				'[Get object for reassociating break out view 
				Dim oReferencedDocument As Document
            	oReferencedDocument = oView.ReferencedDocumentDescriptor.ReferencedDocument
				If oReferencedDocument.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
					For Each oComponent As ComponentOccurrence In oReferencedDocument.ComponentDefinition.Occurrences
						If oComponent.Name = "_Access Port Cover" Then
							oView.BreakOutOperations.Item(1).SetDepth(oComponent)
						End If
					Next
				End If
				']
			Else
				oView.Suppressed = True
			End If
		End If