How to Pass a file to DrawingBaseViewCmd

[MechMachineMan]

As the title says I'm wondering how to pass a file to the Control Definition so that it automatically has that file selected to insert in..

SyntaxEditor Code Snippet

DrawingBaseViewCmd 

SyntaxEditor Code Snippet

Dim oCommandMgr As CommandManager
oCommandMgr = ThisApplication.CommandManager

oDoc = ThisApplication.Documents.Open("C:\Some Assembly.iam",True)
oDoc.Close

Dim oControlDef1 As ControlDefinition
 oControlDef1 = oCommandMgr.ControlDefinitions.Item("DrawingBaseViewCmd")
oControlDef1.Execute

[rossano_praderi]

Hi Justin,

I've make some tests with this VBA code and it work fine.

But if you convert it in Ilogic, doesn't work.

Sub test()
    Dim oDoc As DrawingDocument
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then ' TESTED ON THE DRAWINGDOCUMENT
        Set oDoc = ThisApplication.ActiveDocument
        Call oDoc.Parent.CommandManager.PostPrivateEvent(kFileNameEvent, "FULL PATH AND FILENAME.iam") 'FULL FILENAME WITH FULL PATH
        Call oDoc.Parent.CommandManager.ControlDefinitions.Item("DrawingBaseViewCmd").Execute
        Set oDoc = Nothing
    End If
End Sub

I think this is a good start for you.

Bregs

Rossano Praderi