3 Replies Latest reply on Feb 7, 2011 2:12 AM by merlin

    attached toolbar

    merlin

      Hello,

      I have write a little scripte to build a Toolbar in DxDesigner (viewdraw). On my computer with windows7 64bit or my virtuell-maschine the script is ok. on other computer with win xp an error messages unknow command line 14.

      line 14 is: Set utilitiesToolBar = wvApp.CommandBars("PDM")

       

      can anyone help?

       

      Option Explicit

      ' Add the key bindings type library so that we can use enumerates from that library.
      Scripting.AddTypeLibrary("ViewDraw.CommandBarsEx")
      Scripting.AddTypeLibrary("MGCSDD.CommandBarsEx")
      ' Get the application object.  Use implicit Application for internal scripts
      Dim wvApp
      Set wvApp = Application
      Dim vdapp
      Set vdapp = GetObject(,"ViewDraw.Application")

      ' Get the Utilities tool bar.
      Dim utilitiesToolBar
      Set utilitiesToolBar = wvApp.CommandBars("PDM")

      ' Get the collection of controls from utilities tool bar
      Dim utilitiesControlsColl
      Set utilitiesControlsColl = utilitiesToolBar.Controls

       

      best regards

      merlin