Inventor macro to create another macro

[Anonymous]

Hello fellows,

I am trying to create an Inventor macro to create another "hello" macro.
That means, first check if the "hello" macro exists and if not, create it with a MsgBox("hello world")

Does anyone know how to do this?

Thanks, Robert

[AlexFielder]

I would recommend you search these forums for the following:

ilogicvb.automation

This is how you gain access to the iLogic Automation Object which will allow you to add an iLogic rule from a separate iLogic rule.

[bradeneuropeArthur]

I have this example.
I could send you this earliest on Monday...

[bradeneuropeArthur]

Hi,

Earlier then expected:

Public Sub SheetMetalAutoMacroAdd()

    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent
            
    Set VBProj = ThisApplication.ActiveDocument.VBAProject.VBProject '.VBE.VBProjects
    On Error Resume Next
    If Not VBProj.VBComponents.Item(3).Name = "X" Then
        Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
        VBComp.Name = "X"
    End If
    
    On Error Resume Next
    If Not VBProj.VBComponents.Item(4).Name = "Y" Then
        Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
        VBComp.Name = "Y"
    End If
    
        For Each oVBProject In ThisApplication.VBE.VBProjects
        Debug.Print oVBProject.Name
        If oVBProject.Name = "DocumentProject" Then
    
           For Each oVBComponent In oVBProject.VBComponents
    
                If oVBComponent.Name = "X" Then
                    MsgBox oVBComponent.Name
    
                    oVBComponent.CodeModule.DeleteLines 1, oVBComponent.CodeModule.CountOfLines
                    oVBComponent.CodeModule.AddFromFile ("C:\_ExportedModules\X.txt")
                End If
    
                If oVBComponent.Name = "Y" Then
                    MsgBox oVBComponent.Name
    
                    oVBComponent.CodeModule.DeleteLines 1, oVBComponent.CodeModule.CountOfLines
                    oVBComponent.CodeModule.AddFromFile ("C:\_ExportedModules\Y.txt")
                End If
            Next
    End If
           Next

End Sub