这个问题怎样解决

draw

用VB编了一个小程序，经编译后作为外部命令使用pl.exe。在程序调用时要使用
"shell" & "pl.exe" & chr(13)语句。
但在每次调用时，总是将 AutoCAD shell 窗口激活，还要人工关闭该窗口，太麻烦了。

mccad

使用Autolisp函数：
(startapp appcmd [file])

draw

只想用VB编程

mccad

不明白你是怎么做的，如下的过程没有你说的DOS黑框出来：

2. Sub RunNotepad()
   
3.     Shell "notepad.exe"
   
4. End Sub
   

Sub RunNotepad()<br />     Shell "notepad.exe"<br /> End Sub<br />

draw

使用Shell "notepad.exe"不是不出来，只是一闪而过。但是我编的外部命令发出后，却停在那个黑框上了，必须要人工关闭才能接着运行。

mccad

我这里没有你说的情况。能否具体一点。

draw

你试试这个工具条:
Sub main() '连接AutoCad
  On Error Resume Next
  Set acadapp = GetObject(, "autocad.application")  
  If Err Then
     Err.Clear
     Set acadapp = CreateObject("autocad.application")
     If Err Then
        MsgBox Err.Description
        Exit Sub
     End If
  End If

  acadapp.WindowState = acMax
  Dim cmg As AcadMenuGroup
  Dim ntb As AcadToolbar
  Dim ntbb As AcadToolbarItem
  Dim com As String
  Set cmg = acadapp.MenuGroups.Item(0)
  Set ntb = cmg.Toolbars.Add("GJT")
  com = Chr(3) & Chr(3) & "shell" & Chr(13) & "notepad.exe" & Chr(13)  
  Set ntbb = ntb.AddToolbarButton(ntb.Count + 1, "Open", "Open Macro", com, False)
End Sub

mccad

你这里指的是在工具按钮中的宏，应该使用我提供的LISP方法来解决。

1. com = Chr(3) & Chr(3) & "(startapp" & Chr(13) & "notepad.exe" & Chr(13)& ")"
   
2. Set ntbb = ntb.AddToolbarButton(ntb.Count + 1, "Open", "Open Macro", com, False)
   

复制代码

试试看

draw

问题依然存在！

mccad

试试以下程序，在VBA调试通过，你可以改到VB中：

2. Sub AddButton()
   
3.     Dim cmg As AcadMenuGroup
   
4.     Dim ntb As AcadToolbar
   
5.     Dim ntbb As AcadToolbarItem
   
6.     Dim com As String
   
7.     Set cmg = MenuGroups.Item(0)
   
8.     'cmg.Toolbars("GJT").Delete
   
9.     Set ntb = cmg.Toolbars.Add("GJT")
   
10.     com = Chr(3) & Chr(3) & Chr(16) & "(startapp""notepad.exe"")(princ)" & Chr(16) & vbCr
    
11.     Set ntbb = ntb.AddToolbarButton(ntb.Count + 1, "Open", "Open Macro", com, False)
    
12. End Sub
    

Sub AddButton()<br />     Dim cmg As AcadMenuGroup<br />     Dim ntb As AcadToolbar<br />     Dim ntbb As AcadToolbarItem<br />     Dim com As String<br />     Set cmg = MenuGroups.Item(0)<br />     'cmg.Toolbars("GJT").Delete<br />     Set ntb = cmg.Toolbars.Add("GJT")<br />     com = Chr(3) & Chr(3) & Chr(16) & "(startapp""notepad.exe"")(princ)" & Chr(16) & vbCr<br />     Set ntbb = ntb.AddToolbarButton(ntb.Count + 1, "Open", "Open Macro", com, False)<br /> End Sub<br />