Sub ExcluirDimensoesIDW()
    Dim oSheet As Sheet
    Dim oDim As DrawingDimension

    ' Define o documento ativo (IDW)
    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument

    ' Percorre todas as folhas do IDW
    For Each oSheet In oDoc.Sheets
        ' Percorre todas as dimensões na folha
        For Each oDim In oSheet.DrawingDimensions
            oDim.Delete
        Next oDim
    Next oSheet

    ' Atualiza a exibição
    oDoc.Update2
End Sub





Sub CriarSolido()
    Dim oApp As Inventor.Application
    Set oApp = ThisApplication
    
    ' Verifique se o Inventor está em execução
    If oApp Is Nothing Then
        MsgBox "O Autodesk Inventor não está em execução. Execute o Inventor e tente novamente.", vbExclamation
        Exit Sub
    End If
    
    ' Crie um novo documento de peça
    Dim oDoc As PartDocument
    Set oDoc = oApp.Documents.Add(DocumentTypeEnum.kPartDocumentObject)
    
    ' Defina as dimensões do sólido (largura, espessura e comprimento)
    Dim largura As Double
    Dim espessura As Double
    Dim comprimento As Double
    
    ' Solicitar dimensões ao usuário ou defina valores diretamente
    largura = InputBox("Digite a largura do sólido (em unidades do documento):", "Largura")
    espessura = InputBox("Digite a espessura do sólido (em unidades do documento):", "Espessura")
    comprimento = InputBox("Digite o comprimento do sólido (em unidades do documento):", "Comprimento")
    
    ' Crie um perfil retangular
    Dim oSketch As PlanarSketch
    Set oSketch = oDoc.ComponentDefinition.Sketches.Add(oDoc.ComponentDefinition.WorkPlanes.Item(3))
    
    ' Desenhe o retângulo
    Dim oPoints As ObjectCollection
    Set oPoints = ThisApplication.TransientObjects.CreateObjectCollection
    
    oPoints.Add oSketch.SketchPoints.Add(oApp.TransientGeometry.CreatePoint2d(0, 0))
    oPoints.Add oSketch.SketchPoints.Add(oApp.TransientGeometry.CreatePoint2d(largura, 0))
    oPoints.Add oSketch.SketchPoints.Add(oApp.TransientGeometry.CreatePoint2d(largura, comprimento))
    oPoints.Add oSketch.SketchPoints.Add(oApp.TransientGeometry.CreatePoint2d(0, comprimento))
    
    oSketch.SketchLines.AddByTwoPoints oPoints(1), oPoints(2)
    oSketch.SketchLines.AddByTwoPoints oPoints(2), oPoints(3)
    oSketch.SketchLines.AddByTwoPoints oPoints(3), oPoints(4)
    oSketch.SketchLines.AddByTwoPoints oPoints(4), oPoints(1)
    
    ' Extrudar o perfil para criar o sólido
    Dim oProfile As Profile
    Set oProfile = oSketch.Profiles.AddForSolid
    
    Dim oExtrudeDef As ExtrudeDefinition
    Set oExtrudeDef = oDoc.ComponentDefinition.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile, kJoinOperation)
    oExtrudeDef.SetDistanceExtent espessura, kPositiveExtentDirection
    
    Dim oExtrude As ExtrudeFeature
    Set oExtrude = oDoc.ComponentDefinition.Features.ExtrudeFeatures.Add(oExtrudeDef)
End Sub








Sub SalvarComNomeDataHora()
    Dim Doc As Document
    Dim NomeArquivo As String
    
    ' Verifique se há um documento aberto
    If ThisApplication.Documents.Count = 0 Then
        MsgBox "Não há documentos abertos para salvar.", vbExclamation
        Exit Sub
    End If
    
    ' Defina o documento ativo
    Set Doc = ThisApplication.ActiveDocument
    
    ' Gere o nome do arquivo com base na data e hora atual
    NomeArquivo = Format(Now, "yyyyMMdd_HHmmss") & ".ipt" ' Pode ajustar o formato conforme necessário
    
    ' Defina o nome do arquivo no documento
    Doc.DisplayName = NomeArquivo
    
    ' Salve o documento com o novo nome
    Doc.Save
    
    ' Exiba uma mensagem de confirmação
    MsgBox "Documento salvo como: " & NomeArquivo, vbInformation
End Sub