Welding Symbol

[JMGunnar]

I know about that weldsymbol not have Api 

but is thera any options too collect weldsymbol too reattacment again 

Best Regards Johan 

like 

Sub Main()

    ' Set a reference to the active drawing document
    Dim oDoc As DrawingDocument
    oDoc = ThisDoc.Document 'ThisServer.ActiveDocument
    
    ' Set a reference to the active sheet
	Dim oSheet As Sheet
    oSheet = oDoc.ActiveSheet
   
    ' Iterate over all Weldingsymbol in the drawing
    ' and delete unattached (sick) dimensions.
   Dim oSelectset As SelectSet
	   oSelectset = oDoc.SelectSet
       oSelectset.Clear
	Dim oTG As TransientObjects
	    oTG = ThisApplication.TransientObjects
	 Dim oLeaderCollection As ObjectCollection
	    oLeaderCollection = oTG.CreateObjectCollection		
	
	
	Dim oLeaderNote As LeaderNote 
	
	For Each oLeaderNote In oSheet.DrawingNotes.LeaderNotes
		 	 oLeaderCollection.Add(oLeaderNote)
	Next
	
	         
   	oSelectset.SelectMultiple(oLeaderCollection)
	'ThisApplication.CommandManager.ControlDefinitions.Item("DLxAnnoReconnectCmd").Execute
	ThisApplication.CommandManager.ControlDefinitions.Item("DLxAutoReattachSickAnnotationsCmd").Execute
    	
    oSelectset.Clear
    	
		
	End Sub

[JMGunnar]

Have any do some SelectSet code that use 

custom filter  

is any options i find too get only Weldsymbol..

Johan

 Dim oSelectset As SelectSet
	   oSelectset = oDoc.SelectSet
            oSelectset.Clear
		 Dim oTG As TransientObjects
            oTG = ThisApplication.TransientObjects
            Dim oLeaderCollection As ObjectCollection
            oLeaderCollection = oTG.CreateObjectCollection