I have a problem. I want to create a Mate constraint between WorkPlane and McadPoint. I wrote this code:
Dim Patty As McadComponent
Dim Wplane As McadPlane, wpFeat As McadFeature,anyWP As McadPlane
For Each anyWP In Patty.definition.body.WorkPlanes
For Each wpFeat In anyWP.GetFeatures
If wpFeat.name Like "*Base#*" Or wpFeat.name Like "*base#*" Then
Set Wplane = anyWP: GoTo exF
Dim pt As McadPoint
Dim utM As McadUtility
Set ut = ThisDrawing.Application.GetInterfaceObject("mcad.A
Dim Val As McadValue: Set Val = ut.CreateValue
' CODE '
Dim C2 As IMcadGeometry: Set C2 = Wplane
Dim dM1 As McadConstraintDescriptor: Set dM1 = ut.CreateConstraintDescriptor(mcCompMate)
dM1.Operand1 = pt: dM1.Operand1Orientation = mcRaw: dM1.Operand2 = C2: dM1.Operand2Orientation = mcRaw
dM1.Value = Val
Dim M1 As McadComponentConstraint: Set M1 = kt.AddConstraint(dM1)
When I try to create a new constraint I get an error: -2147196502(800461aa) "Generic Failure to executo operation with provide arguments". I have to select WorkPlane without Pick.
Please, help me!
Access a broad range of knowledge to help get the most out of your products and services.
Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.
Upgrading to a 2015 product? Make sure to check these out 1st!