08-21-2018
06:02 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-21-2018
06:02 AM
Dim oPD As PartDocument
Dim oPCD As PartComponentDefinition
Dim oSkt As PlanarSketch '<------
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)"PlanarEntity" isn't a member of 'Sketch' but is a member of 'PlanarSketch' which is derived from 'Sketch'.
If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State
Custom Glyph Icon for iMates
Mass Override for Each Model State
Custom Glyph Icon for iMates