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
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