07-14-2020
04:41 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-14-2020
04:41 PM
Hi Paul,
Sorry I just added two rules together.
Try This:
Dim oDoc = ThisApplication.ActiveDocument Dim oSheet As Sheet For Each oSheet In oDoc.Sheets Dim oSketchedSymbolDef As SketchedSymbol For Each oSketchedSymbolDef In oSheet.SketchedSymbols If oSketchedSymbolDef.Name = "A3 For Approval" Then oSketchedSymbolDef.Delete 'It will delete all the sketched symbols End If Next Next ' Obtain a reference to the desired sketched symbol definition. Dim oSketchedSymbolDef1 As SketchedSymbolDefinition _ = oDoc.SketchedSymbolDefinitions.Item("A3 For Construction") 'create insertion point, coordinates - in cm ! Dim oTG As TransientGeometry = ThisApplication.TransientGeometry Dim oInsertionPoint As Point2d = oTG.CreatePoint2d(40.195195, 10.5) Dim oSketchedSymbol As SketchedSymbol _ = oSheet.SketchedSymbols.Add( _ oSketchedSymbolDef1, _ oInsertionPoint, _ 0, 1, Nothing)