11-21-2024
11:33 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-21-2024
11:33 PM
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