Duplica foglio.

[graziano-g]

Ciao, può succedere di aver la necessità di fare una messa in tavola multifoglio, di un componente col fine di indicare in sequenza una serie di lavorazioni , o di un assieme per fornire indicazioni dettagliate di una sequenza di montaggio, senza appesantire il disegno fatto in un'unica vista.

La macro che segue consente, dopo aver prodotto la prima tavola, la sua duplicazione esatta e completa sulla quale è possibile agire con tutti gli strumenti possibili indipendentemente dalla tavola sorgente e da quelle generate.

Magari a qualcuno può servire.
Ciao, buona giornata a tutti.

Sub Duplica_foglio()
Dim oDoc As DrawingDocument
Impostare oDoc = ThisApplication.ActiveDocument
Dim tmpDoc As DrawingDocument
Imposta tmpDoc = ThisApplication.Documents.Add (kDrawingDocumentObjectTrue)
Dim newSheet As Sheet
Imposta newSheet = oDoc.ActiveSheet.CopyTo (tmpDoc)
Chiama newSheet.CopyTo (oDoc)
tmpDoc.Close (True)
End Sub

Come copiare e incollare un foglio nello stesso disegno di Inventor | Inventor 2019 | Autodesk Knowledge Network
Problema: Dopo aver copiato un foglio negli appunti, non è possibile incollarlo nello stesso disegno. Cause: Inventor non supporta l'operazione di copia-incolla di un foglio all'interno di un disegno

knowledge.autodesk.com

 

[Matteo Cappelli dis.CAD]

ottimo !!!
ho fatto piccole modifiche per gestirlo anche come regola ilogic
grazie

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
Dim tmpDoc As DrawingDocument
tmpDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, , True)
Dim newSheet As Sheet
newSheet = oDoc.ActiveSheet.CopyTo(tmpDoc)
Call newSheet.CopyTo(oDoc)
tmpDoc.Close (True)

 

[mir]

ottimo lo preverò a breve

 

[Zac69]

Io l'ho già inserito nel template. Grazie tutti quelli che hanno collaborato

 

[Matteo Cappelli dis.CAD]

ciao
... ho appena scoperto che nella versione 2021.... finalmente funziona il copia-incolla dei fogli senza fare nulla !! CTRL-C CTRL-V !!