VB与CAD焦点切换的困扰！

qflut

VB写的程序，用AppActivate (acadapp.Caption)可以使CAD获得焦点，这时候我选择实体以后需要将焦点返回到VB窗体。可是我怎么弄，都是VB窗体闪烁三下就失去焦点！(我用了SetWindowPos使VB窗体提到最前面)。用了form1.textbox1.setfocus、appactivate(me.caption)、form1.show都不行。输入的内容老是输入到CAD命令行了，请指教！

英雄无敌

你试试setforegroundwindow这个API函数

qflut

郁闷的是我用上面列的方法曾经实现过，但是被我一不小心不知道怎么弄了就又不行了。老是闪烁三下就失去焦点

qflut

在网上搜索了一下，好像说只能从VB中把焦点转移给CAD，而CAD不能把焦点转移给VB程序。但是我明明就实现过，太郁闷了！

zhang007

做成DLL就不存在焦点问题了

英雄无敌

你可能需要在setforegroundwindow后再用一句doevents,或者sleep 10，试试吧，或者像楼上说的那样，做成DLL，不过，你在将焦点移到CAD前，先将VB的FORM HIDE,在要返回VB时，再用ME.show，也许没有这个问题

英雄无敌

而且，你也没有必要用Setwindowpos来使程序总在最上面，你可以将你的VB程序的窗口做为CAD的子窗口，我刚刚试了一下，在到CAD前先ME.hide,再处理完CAD的事情后再ME.show,焦点转到了VB的窗口上。

qflut

谢谢英雄无敌！用me.hide&me.show行不通，我试过，VB窗体获得焦点以后只是在任务栏里闪烁三下，键盘输入仍然在CAD的command栏里。我需要选择的时候CAD激活，选择完后输入的内容进入VB窗体的textbox1中，但是用APPactivate激活CAD容易，但从CAD返回VB窗体怎么弄都只是该窗体闪烁三次后失去焦点。也不知道是不是我自己设置的问题。

Private Sub Form_Load()
    On Error Resume Next
   
    'Dim myval As Long
    'myval = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 3)        
    Set acadapp = GetObject(, "AutoCAD.Application") 

    acadapp.Visible = True
    Set acaddoc = acadapp.ActiveDocument    

    Set acadms = acaddoc.ModelSpace  

    Dim objsset As AcadSelectionSet
    Set objsset = acaddoc.SelectionSets.Item("beam")
    objsset.Delete
    'If Err Then
    '   Err.Clear
    Set objsset = acaddoc.SelectionSets.Add("beam")
    'End If
    

    Dim filtertype(7) As Integer
    Dim filterdata(7) As Variant
    filtertype(0) = -4
    filterdata(0) = "<or"
    filtertype(1) = 8 '图层名
    filterdata(1) = "！水平标注"
    filtertype(2) = 8 '图层名
    filterdata(2) = "！垂直标注"
    filtertype(3) = -4
    filterdata(3) = "or>"
    filtertype(4) = -4
    filterdata(4) = "<or"
    filtertype(5) = 0 '对象类型
    filterdata(5) = "Text"
    filtertype(6) = 0 '对象类型
    filterdata(6) = "MText"
    filtertype(7) = -4
    filterdata(7) = "or>"
    Me.Hide  
    
    objsset.SelectOnScreen filtertype, filterdata

    Me.Show

End Sub

英雄无敌

你是在什么系统下啊，我按你的程序试了，焦点是在VB的窗口上的，我是cad2004+XP

qflut

XP_SP2+CAD2004和2006均是如此，窗体显示以后只是在任务栏闪烁