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

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)