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

Ok, now I can see the problem. U've used direct vba syntax. I need to adjust the code for direct iLogic syntax. 

 

Is there any simple way to do this? I've tried like this: 

 

SyntaxEditor Code Snippet

 Dim oPD As PartDocument
    Dim oPCD As PartComponentDefinition
    Dim oSkt As Sketch
    Dim oXY As WorkPlane
    Dim oCentP As WorkPoint
    Dim oSktPt As SketchPoint
   
    oPD = ThisApplication.ActiveDocument
    oPCD = oPD.ComponentDefinition
    oXY = oPCD.WorkPlanes.Item("XY Plane")
    oCentP = oPCD.WorkPoints.Item(1)
   
    oSkt = oPCD.Sketches.Item("Szkic2")
   
    If Not oSkt.PlanarEntity Is oXY Then
        oSkt.PlanarEntity = oXY
    End If
   
       oSktPt = oSkt.SketchPoints.Item(1)
    On Error Resume Next
    'Call oSkt.AddByProjectingEntity(oCentP)

but it gives me an error at the end.

I'd like to implement the code into a bigger iLogic rule.

 

Tomek