- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi Guys,
I need help with the code (complete beginner :-)) PLEASE.
I got a code already (attached) from the friend that changes drawing to "for construction": changes rev to 0, fills "issued for construction" in revision table and updates dates etc.
It is possible to add to it a code that:
- replace symbol that is currently on the first page only on the drawing named 'A3 For Approval' to
- symbol named 'A3 For Construction'?
You help would be greatly appreciated.
Thank you very much Paul
Solved! Go to Solution.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi Paul,
Try this:
'Dim oDoc As DrawingDocument 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 ' This assumes a drawing document is active. Dim oDrawDoc As DrawingDocument = ThisDrawing.Document ' Obtain a reference to the desired sketched symbol definition. Dim oSketchedSymbolDef As SketchedSymbolDefinition _ = oDrawDoc.SketchedSymbolDefinitions.Item("A3 For Construction") Dim oSheet As Sheet = oDrawDoc.ActiveSheet '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( _ oSketchedSymbolDef, _ oInsertionPoint, _ 0, 1, Nothing)
change the insertion point number to position where you like it.
Also noticed your stamp name is spelt incorrect. "A3 For Constrcuction" so correct that first.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
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)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi Tony,
Thank you, We are almost there :-), it deletes 'for approval' at the first page BUT places 'for construction' at the last page only. It works perfectly when IDW has only one sheet.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi Paul,
changed to active sheet
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 _ = oDoc.ActiveSheet.SketchedSymbols.Add( _ oSketchedSymbolDef1, _ oInsertionPoint, _ 0, 1, Nothing)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Thank you VERY MUCH for help Tony, it works perfectly, It will save me hips of time, have a nice day ![]()