Mike I have not used AcadX, I'd reccomend if you are just trying to make
your form on top, try this (this is in a form)....
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long,
ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Dim oAcad As AcadApplication
Dim hWnd As Long
Set oAcad = GetObject(, "AUTOCAD.APPLICATION")
hWnd = FindWindow(vbNullString, oAcad.Caption)
SetParent Me.hWnd, hWnd
End Sub
It's less code / work / resources than the alternative you asked about.
Regards,
Jacob Dinardi
Mike Daugird wrote in message
news:AC1B18658B28B146E2499C30E350ED0E@in.WebX.SaUCah8kaAW...
does anyone use this? I just downloaded some samples and such from the
website.
I am trying to work with the InputPoint example.
I have added code to put the form always on top, this way I can have acad
maximized and
still see the form.
the form is on top with respect to all apps except ACAD.
Does the AcadX dll make it impossible to have a form always on top?
VB6 SP4
A2K
WinNT 4.0 SP6
I used the following to put the form on top.
Option Explicit
Public Acad As AcadApplication
Public Doc As AcadDocument
Public AcadX As AcadXApplication
Public WithEvents InputMan As AcadXInputManager
Public IsDragging As Boolean
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long,
ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long,
ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Sub Form_Load()
Set Acad = GetObject(, "AutoCAD.Application.15")
Set Doc = Acad.ActiveDocument
Set AcadX = Acad.GetInterfaceObject("AcadX.Application")
Set InputMan = Acad.GetInterfaceObject("AcadX.InputManager")
InputMan.InputPointEventsEnabled = True
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
