Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Michael.Navara
in reply to: JBerns

HI @JBerns 

The reason why the parameter is incorrect is that the Offset property is of type Parameter. You need to set its Expression property. See the code below

 

Dim asm As AssemblyDocument = ThisDoc.Document
Dim occ1 As ComponentOccurrence = asm.ComponentDefinition.Occurrences(1)
Dim occ2 As ComponentOccurrence = asm.ComponentDefinition.Occurrences(2)

Dim occ1WorkPlane As WorkPlane = occ1.Definition.WorkPlanes("Work Plane1")
Dim occ2WorkPlane As WorkPlane = occ2.Definition.WorkPlanes("Work Plane1")

Dim occ1WorkPlaneProxy As WorkPlaneProxy 
occ1.CreateGeometryProxy(occ1WorkPlane, occ1WorkPlaneProxy)
Dim occ2WorkPlaneProxy As WorkPlaneProxy
occ2.CreateGeometryProxy(occ2WorkPlane, occ2WorkPlaneProxy)

Dim offsetExpression1 As String = "10 mm"
Dim flushConstr As FlushConstraint = asm.ComponentDefinition.Constraints.AddFlushConstraint(occ1WorkPlaneProxy, occ2WorkPlaneProxy, offsetExpression1)

Dim offsetExpression2 As String = "20 mm"
flushConstr.Offset.Expression = offsetExpression2