08-21-2018
12:54 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-21-2018
12:54 AM
Update for make you first sketch full constraints
Dim oApp As Application
Dim oPD As PartDocument
Dim oPCD As PartComponentDefinition
Dim oSkt As Sketch
Dim oXY As WorkPlane
Dim oCentP As WorkPoint
Dim oSktPt As SketchPoint
oApp = ThisApplication
oPD = oApp.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
Set oSktPt = oSkt.SketchPoints.Item(1)
On Error Resume Next
Call oSkt.AddByProjectingEntity(oCentP)
Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.
Autodesk Inventor Professional Certified 2014
Autodesk Inventor Professional Certified 2014