10-29-2018
02:58 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-29-2018
02:58 AM
Below iLogic code seems to be working with attached part. All entity links are set to false.
Sub Main()
Dim oDoc As PartDocument
oDoc = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition
oDef = oDoc.ComponentDefinition
Dim oSketch As Sketch
oSketch = oDef.Sketches.Item("Sketch5")
BreakAllLinks(oSketch)
End Sub
Public Sub BreakAllLinks(sketch As Sketch)
For Each en As SketchEntity In sketch.SketchEntities
en.Reference = False
Next
End Sub
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network
