Duplica foglio.

graziano-g

Utente Standard
Professione: Disegnatore progettista
Software: Autocad 2019/2021 - Inventor 2019 + TOP QS + D&D - Inventor 2021, Solidworks 2017 e 2020 Premium - Type3
Regione: Emilia Romagna
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
knowledge.autodesk.com
 

Matteo Cappelli dis.CAD

Utente Standard
Professione: disegnatore
Software: Inventor / autocad
Regione: Emilia romagna
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

Utente Standard
Professione: progettista inox
Software: autocad / inventor
Regione: trentino
ottimo lo preverò a breve
 

Zac69

Utente Standard
Professione: Disegnatore
Software: Inventor
Regione: Piemonte
Io l'ho già inserito nel template. Grazie tutti quelli che hanno collaborato
 

Matteo Cappelli dis.CAD

Utente Standard
Professione: disegnatore
Software: Inventor / autocad
Regione: Emilia romagna
ciao
... ho appena scoperto che nella versione 2021.... finalmente funziona il copia-incolla dei fogli senza fare nulla !! CTRL-C CTRL-V !!
1614075193574.png