Проверка нажатия CTRL в LISP в фоновом режиме(не grread)

BH · 14.08.2006, 15:09

Для чего это надо?
Для расширения возможностей программы "Двойной клик+" в сборнике Dimka (http://dwg.ru/dwl/168)
Как должна работать?
При двойном клике на объекте, например на блоке с атрибутами запускается переопределенная команда eattedit, которая должна без ожидания определить нажата ли кнопка CTRL или нет и запустить соответствующий редактор.

Думаю, что здесь надо использовать программу на другом языке программирования с передачей информации в LISP программу.

p_sh · 15.08.2006, 09:47

Цитата:

Сообщение от ВН

1)картинка кнопки глючит если используется крайний пиксел
2)можно ли вызвать панель инструментов с настраиваемыми кнопками командой?
3)Думаю автор этой программы смог бы мне помочь см

попробуем
1. это свойство кнопки в msform2.dll (или типа того) . она использует цвет этого пиксела и назначает его как прозрачный (с этим ничего нельзя поделать(как я думаю))
2. принципиально ничего невозможного нет, однако программа использует show али activate на form1 при вызове функции

Private Sub AcadDocument_BeginShortcutMenuDefault(ShortcutMenu As IAcadPopupMenu)
Dim coord As POINTAPI ' координаты курсора
Dim coordAcad As POINTAPI
Dim retval As Long ' возвращаемое значение
Dim OnTop As String
Dim cp As POINTAPI
Dim slength As Long

retval = GetCursorPos(coord)
keystate = GetKeyState(VK_LMENU)
If pshvbapath = "" Then
fn = FreeFile
Open (Application.Path + "\acad.pav") For Input As fn
Input #fn, pshvbapath
Input #fn, pshvbaver
Input #fn, pshvbalan
Close (fn)
End If

OnTop = Space(255)
slength = GetPrivateProfileString("AltContextToolBar", "OnTop", "1", OnTop, 255, pshvbapath + "\PShAcadVBA.ini")
OnTop = CVar(Left(OnTop, slength))
'fn = FreeFile
'Open pshvbapath + "\altcontexttoolbar\support\ontop.pav" For Random As fn
'Get #fn, 1, OnTop
'Close (fn)

Select Case OnTop

Case Is = 1

If (OnTop = "1" Or OnTop = "") Then ' And (keystate >= 0) Then
Dim FPos As String
FPos = Space(255)
slength = GetPrivateProfileString("AltContextToolBar", "Position", "1", FPos, 255, pshvbapath + "\PShAcadVBA.ini")
FPos = CVar(Left(FPos, slength))
If FPos = "True" Then
UserForm1.Left = 0.75 * coord.x
UserForm1.top = 0.75 * coord.Y
Else
UserForm1.Left = 0.75 * coord.x - 46
UserForm1.top = 0.75 * coord.Y - 62
End If
UserForm1.Hide
UserForm1.Show

'уже ф форме устанавливаю мышь на заголовке и кликаю
coordAcad.x = Application.WindowLeft
coordAcad.Y = Application.WindowTop
GetCursorPos cp
SetCursorPos coordAcad.x + 1, coordAcad.Y + 250 '+ 5
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 'нажатие на левую клавишу мыши
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& 'отпускание левой клавиши мыши
SetCursorPos cp.x, cp.Y
Exit Sub
'Else
' If keystate < 0 Then
' UserForm1.Left = 0.75 * coord.X - 46
' UserForm1.top = 0.75 * coord.Y - 62
' UserForm1.Show
'
' SetCursorPos coordAcad.X + 50, coordAcad.Y + 5
' mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 'нажатие на левую клавишу мыши
' mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& 'отпускание левой клавиши мыши
' SetCursorPos MouseCoord.X, MouseCoord.Y
' End If
End If

Case Is = 0

If keystate < 0 Then

FPos = Space(255)
slength = GetPrivateProfileString("AltContextToolBar", "Position", "1", FPos, 255, pshvbapath + "\PShAcadVBA.ini")
FPos = CVar(Left(FPos, slength))
If FPos = "True" Then
UserForm1.Left = 0.75 * coord.x
UserForm1.top = 0.75 * coord.Y
Else
UserForm1.Left = 0.75 * coord.x - 46
UserForm1.top = 0.75 * coord.Y - 62
End If

UserForm1.Show
GetCursorPos cp
SetCursorPos coordAcad.x + 1, coordAcad.Y + 250
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 'нажатие на левую клавишу мыши
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& 'отпускание левой клавиши мыши
SetCursorPos cp.x, cp.Y
End If
End Select
'ThisDrawing.SendCommand ("^C")
End Sub

сделано в лоб поэтому есть неприятные нюансы

поэтому если записать на другую функуию UserForm1.Show логика появления формы будет изменена

BH · 15.08.2006, 13:56

RE p_sh
п.1 понятно
п.2 К сожалению знаю только Lisp. Зачем впринципе нужен вызов панели инструментов с настраиваемыми кнопками командой(ПИНК)?:
Программа очень удобна в работе, при создании и группировке комманд и могла бы стать основой для сборников команд.Но альтернативный спрособ вызова ПИНК (на мой взгляд) необходим....т.к. основной способ не лишен недостатков.
Если недостаточно мотивации для развития этой программы
зайдите сюда http://cadhlp.kulichki.com/smpr.htm
п.3 имелся ввиду вопросс:
Как проверить нажатие CTRL в LISP в фоновом режиме?
(Думаю, что здесь надо использовать программу на другом языке программирования с передачей информации в LISP программу)

p_sh · 15.08.2006, 15:47

2.
можно вставить и вызов сторонней функцией:
например вызывать через кнопку макрос
^C^C-VBARun p_shACTB (т.е. функция p_shACTB)
если сильно необходимо могу попробовать (когда будет время)
и вызывать её из лиспа али с кнопки или с сочетания клавиш (если это можно)

ACADу требуется событие чтобы его обработать, а на сколько мне известно их не так много (давить на мышь мне показалось наиболее коротким и человесеским способом)
Activate event Triggered when a document window is activated.

AppActivate event Triggered just before the main application window is activated.

AppDeactivate event Triggered just before the main application window is deactivated.

ARXLoaded event Triggered when an ObjectARX application has been loaded.

ARXUnloaded event Triggered when an ObjectARX application has been unloaded.

B

BeginClose event Triggered immediately after AutoCAD receives a request to close a drawing.

BeginCommand event Triggered immediately after a command is issued, but before it completes.

BeginDocClose event Triggered immediately after AutoCAD receives a request to close a drawing.

BeginDoubleClick event Triggered after the user double-clicks an object in the drawing.

BeginFileDrop event Triggered when a file is dropped on the main application window.

BeginLISP event Triggered immediately after AutoCAD receives a request to evaluate a LISP expression.

BeginModal event Triggered just before a modal dialog is displayed.

BeginOpen event Triggered immediately after AutoCAD receives a request to open an existing drawing.

BeginPlot event Triggered immediately after AutoCAD receives a request to print a drawing.

BeginQuit event Triggered just before an AutoCAD session ends or a document closes.

BeginRightClick event Triggered after the user right-clicks on the drawing window.

BeginSave event Triggered immediately after AutoCAD receives a request to save the drawing.

BeginShortcutMenuCommand event Triggered after the user right-clicks on the drawing window, and before the shortcut menu appears in command mode.

BeginShortcutMenuDefault event Triggered after the user right-clicks on the drawing window, and before the shortcut menu appears in default mode.

BeginShortcutMenuEdit event Triggered after the user right-clicks on the drawing window, and before the shortcut menu appears in edit mode.

BeginShortcutMenuGrip event Triggered after the user right-clicks on the drawing window, and before the shortcut menu appears in grip mode.

BeginShortcutMenuOSnap event Triggered after the user right-clicks on the drawing window, and before the shortcut menu appears in osnap mode.

D

Deactivate event Triggered when the drawing window is deactivated.

E

EndCommand event Triggered immediately after a command completes.

EndLISP event Triggered upon completion of evaluating a LISP expression.

EndModal event Triggered just after a modal dialog is dismissed.

EndOpen event Triggered immediately after AutoCAD finishes opening an existing drawing.

EndPlot event Triggered after a document has been sent to the printer.

EndSave event Triggered when AutoCAD has finished saving the drawing.

EndShortcutMenu event Triggered after the shortcut menu appears.

L

LayoutSwitched event Triggered after the user switches to a different layout.

LISPCancelled event Triggered when the evaluation of a LISP expression is cancelled.

M

Modified event Triggered when an object or collection in the drawing has been modified.

N

NewDrawing event Triggered just before a new drawing is created.

O

ObjectAdded event Triggered when an object has been added to the drawing.

ObjectErased event Triggered when an object has been erased from the drawing.

ObjectModified event Triggered when an object in the drawing has been modified.

S

SelectionChanged event Triggered when the current pickfirst selection set changes.

SysVarChanged event Triggered when the value of a system variable is changed.

W

WindowChanged event Triggered when there is a change to the application or document windows.

WindowMovedOrResized event Triggered just after the application or drawing window has been moved or resized.

3.
в VB есть функция
keystate = GetKeyState(VK_LMENU) только переменная другая L(R)CTRL (или около того - нет под рукой переменных)
или используйте API функции

Цитата:

При двойном клике на объекте, например на блоке с атрибутами запускается переопределенная команда eattedit, которая должна без ожидания определить нажата ли кнопка CTRL или нет и запустить соответствующий редактор.

используйте VB
в документе

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)

...
keystate = GetKeyState(VK_CTRL) (нечетко)' состояние кнопки( любой) в т.ч. и контрола
...
'вызов функции запускающей нужное действие
if keystate = нужное then
СуперПрогаРун (параметры)
end if

End Sub

ps lisp не знаю

BH · 15.08.2006, 16:35

RE p_sh
2. Вызывать через кнопку макрос
^C^C-VBARun p_shACTB
то, что надо !В лиспе элементарно

command "-vbarun" "p_shACTB")
...это позволит использовать Symbol Commander(ссылки нет подрукой) для вызова ПИНК.
3.по поводу:
"keystate = GetKeyState(VK_LMENU).."
был бы весьма благодарен за фаил *.dvb с возможностью вызова как cм. п.2.... для передачи информации в LISP можно использовать переменную ACAD (например USERR1 - цифра;USERS1- текст) или через системную переменную.
по поводу:
"При двойном клике на объекте, например на блоке с атрибутами запускается переопределенная команда eattedit..."
эта задача решена.

VVA · 17.08.2006, 16:07

>BH

Код:

[Выделить все]

При двойном клике на объекте, например на блоке с атрибутами запускается переопределенная команда eattedit, которая должна без ожидания определить нажата ли кнопка CTRL или нет и запустить соответствующий редактор

.
Посмотри LISP. Реактор на двойной щелчок мыши
У себя мы уже используем. Вот фрагмент

Код:

[Выделить все]

         (cond 
            ;; Здесь можно вбить собственную обработку 
       ((car (get_zn_tip (vlax-vla-object->ename obj))) 
;_Наш блок
        (setq *MIP-DOZNK-OBJ* (vlax-vla-object->ename obj)) 
;_Вызываем команду "MIPZNAKED"
        "MIPZNAKED") 
            ((= (vla-get-HasAttributes blk) :vlax-true) 
             ;; Есть атрибуты 
             "_.eattedit") 
            (t 
             ;; Блок, без атрибутов и прочего 
             "_.refedit") 
            ) ;_ end of cond

Елпанов Евгений · 17.08.2006, 20:58

Код:

[Выделить все]

keystate = GetKeyState(VK_CONTROL)
keystate = GetKeyState(VK_CAPITAL)
keystate = GetKeyState(VK_SHIFT)
keystate = GetKeyState(VK_MENU)
keystate = GetKeyState(VK_INSERT)
keystate = GetKeyState(VK_NUMLOCK)
keystate = GetKeyState(VK_SCROLL)

Все коды:

Код:

[Выделить все]

Constants
VK_LBUTTON (01)
Left mouse button

VK_RBUTTON (02)
Right mouse button

VK_CANCEL (03)
Control-break processing

VK_MBUTTON (04)
Middle mouse button (three-button mouse)

VK_XBUTTON1 (05)
Windows 2000/XP: X1 mouse button

VK_XBUTTON2 (06)
Windows 2000/XP: X2 mouse button

- (07)
Undefined

VK_BACK (08)
BACKSPACE key

VK_TAB (09)
TAB key

- (0A-0B)
Reserved

VK_CLEAR (0C)
CLEAR key

VK_RETURN (0D)
ENTER key

- (0E-0F)
Undefined

VK_SHIFT (10)
SHIFT key

VK_CONTROL (11)
CTRL key

VK_MENU (12)
ALT key

VK_PAUSE (13)
PAUSE key

VK_CAPITAL (14)
CAPS LOCK key

VK_KANA (15)
Input Method Editor (IME) Kana mode

VK_HANGUEL (15)
IME Hanguel mode (maintained for compatibility; use VK_HANGUL)

VK_HANGUL (15)
IME Hangul mode

- (16)
Undefined

VK_JUNJA (17)
IME Junja mode

VK_FINAL (18)
IME final mode

VK_HANJA (19)
IME Hanja mode

VK_KANJI (19)
IME Kanji mode

- (1A)
Undefined

VK_ESCAPE (1B)
ESC key

VK_CONVERT (1C)
IME convert

VK_NONCONVERT (1D)
IME nonconvert

VK_ACCEPT (1E)
IME accept

VK_MODECHANGE (1F)
IME mode change request

VK_SPACE (20)
SPACEBAR

VK_PRIOR (21)
PAGE UP key

VK_NEXT (22)
PAGE DOWN key

VK_END (23)
END key

VK_HOME (24)
HOME key

VK_LEFT (25)
LEFT ARROW key

VK_UP (26)
UP ARROW key

VK_RIGHT (27)
RIGHT ARROW key

VK_DOWN (28)
DOWN ARROW key

VK_SELECT (29)
SELECT key

VK_PRINT (2A)
PRINT key

VK_EXECUTE (2B)
EXECUTE key

VK_SNAPSHOT (2C)
PRINT SCREEN key

VK_INSERT (2D)
INS key

VK_DELETE (2E)
DEL key

VK_HELP (2F)
HELP key

 (30)
0 key

 (31)
1 key

 (32)
2 key

 (33)
3 key

 (34)
4 key

 (35)
5 key

 (36)
6 key

 (37)
7 key

 (38)
8 key

 (39)
9 key

- (3A-40)
Undefined

 (41)
A key

 (42)
B key

 (43)
C key

 (44)
D key

 (45)
E key

 (46)
F key

 (47)
G key

 (48)
H key

 (49)
I key

 (4A)
J key

 (4B)
K key

 (4C)
L key

 (4D)
M key

 (4E)
N key

 (4F)
O key

 (50)
P key

 (51)
Q key

 (52)
R key

 (53)
S key

 (54)
T key

 (55)
U key

 (56)
V key

 (57)
W key

 (58)
X key

 (59)
Y key

 (5A)
Z key

VK_LWIN (5B)
Left Windows key (Microsoft Natural keyboard) 

VK_RWIN (5C)
Right Windows key (Natural keyboard)

VK_APPS (5D)
Applications key (Natural keyboard)

- (5E)
Reserved

VK_SLEEP (5F)
Computer Sleep key

VK_NUMPAD0 (60)
Numeric keypad 0 key

VK_NUMPAD1 (61)
Numeric keypad 1 key

VK_NUMPAD2 (62)
Numeric keypad 2 key

VK_NUMPAD3 (63)
Numeric keypad 3 key

VK_NUMPAD4 (64)
Numeric keypad 4 key

VK_NUMPAD5 (65)
Numeric keypad 5 key

VK_NUMPAD6 (66)
Numeric keypad 6 key

VK_NUMPAD7 (67)
Numeric keypad 7 key

VK_NUMPAD8 (68)
Numeric keypad 8 key

VK_NUMPAD9 (69)
Numeric keypad 9 key

VK_MULTIPLY (6A)
Multiply key

VK_ADD (6B)
Add key

VK_SEPARATOR (6C)
Separator key

VK_SUBTRACT (6D)
Subtract key

VK_DECIMAL (6E)
Decimal key

VK_DIVIDE (6F)
Divide key

VK_F1 (70)
F1 key

VK_F2 (71)
F2 key

VK_F3 (72)
F3 key

VK_F4 (73)
F4 key

VK_F5 (74)
F5 key

VK_F6 (75)
F6 key

VK_F7 (76)
F7 key

VK_F8 (77)
F8 key

VK_F9 (78)
F9 key

VK_F10 (79)
F10 key

VK_F11 (7A)
F11 key

VK_F12 (7B)
F12 key

VK_F13 (7C)
F13 key

VK_F14 (7D)
F14 key

VK_F15 (7E)
F15 key

VK_F16 (7F)
F16 key

VK_F17 (80H)
F17 key

VK_F18 (81H)
F18 key

VK_F19 (82H)
F19 key

VK_F20 (83H)
F20 key

VK_F21 (84H)
F21 key

VK_F22 (85H)
F22 key

VK_F23 (86H)
F23 key

VK_F24 (87H)
F24 key

- (88-8F)
Unassigned

VK_NUMLOCK (90)
NUM LOCK key

VK_SCROLL (91)
SCROLL LOCK key

 (92-96)
OEM specific

- (97-9F)
Unassigned

VK_LSHIFT (A0)
Left SHIFT key

VK_RSHIFT (A1)
Right SHIFT key

VK_LCONTROL (A2)
Left CONTROL key

VK_RCONTROL (A3)
Right CONTROL key

VK_LMENU (A4)
Left MENU key

VK_RMENU (A5)
Right MENU key

VK_BROWSER_BACK (A6)
Windows 2000/XP: Browser Back key

VK_BROWSER_FORWARD (A7)
Windows 2000/XP: Browser Forward key

VK_BROWSER_REFRESH (A8)
Windows 2000/XP: Browser Refresh key

VK_BROWSER_STOP (A9)
Windows 2000/XP: Browser Stop key

VK_BROWSER_SEARCH (AA)
Windows 2000/XP: Browser Search key 

VK_BROWSER_FAVORITES (AB)
Windows 2000/XP: Browser Favorites key

VK_BROWSER_HOME (AC)
Windows 2000/XP: Browser Start and Home key

VK_VOLUME_MUTE (AD)
Windows 2000/XP: Volume Mute key

VK_VOLUME_DOWN (AE)
Windows 2000/XP: Volume Down key

VK_VOLUME_UP (AF)
Windows 2000/XP: Volume Up key

VK_MEDIA_NEXT_TRACK (B0)
Windows 2000/XP: Next Track key

VK_MEDIA_PREV_TRACK (B1)
Windows 2000/XP: Previous Track key

VK_MEDIA_STOP (B2)
Windows 2000/XP: Stop Media key

VK_MEDIA_PLAY_PAUSE (B3)
Windows 2000/XP: Play/Pause Media key

VK_LAUNCH_MAIL (B4)
Windows 2000/XP: Start Mail key

VK_LAUNCH_MEDIA_SELECT (B5)
Windows 2000/XP: Select Media key

VK_LAUNCH_APP1 (B6)
Windows 2000/XP: Start Application 1 key

VK_LAUNCH_APP2 (B7)
Windows 2000/XP: Start Application 2 key

http://msdn.microsoft.com/library/de...alKeyCodes.asp

BH · 18.08.2006, 11:20

Всем спасибо!

>VVA
1. По моему искреннему заблуждению

недостатки применения реактора на двойной щелчок мыши :
- необходимо прописывать соответствия между обьектами и командами редактирования
- невозможность применения функции (command)

...переопределение нужной команды лишено этих недостатков.

>Елпанов Евгений и p_sh
Применив команду AutoCAD "vbastmt" я могу выполнить код на VBA в LISP:
(command "vbastmt" "keystate = GetKeyState(VK_CONTROL)")
как я понял переменная "keystate" будет нести информацию о состоянии клавиши....а вот как прочитать или передать значение этой переменной в lisp?...Можно использовать переменную ACAD (например USERR1 - цифра;USERS1- текст)...какой код нужен для этого на VBA?

p_sh · 18.08.2006, 11:55

Цитата:

Сообщение от BH

Всем спасибо!
Применив команду AutoCAD "vbastmt" я могу выполнить код на VBA в LISP:
(command "vbastmt" "keystate = GetKeyState(VK_CONTROL)")
как я понял переменная "keystate" будет нести информацию о состоянии клавиши....а вот как прочитать или передать значение этой переменной в lisp?...Можно использовать переменную ACAD (например USERR1 - цифра;USERS1- текст)...какой код нужен для этого на VBA?

прямо воспользоваться значением keystate (или в лиспе нет такого)

BH · 18.08.2006, 12:36

Я знаю только:
(getenv "keystate") ;;считывание системной переменной(реестр)
(getvar "переменная");;переменная Autocad(USERR1;USERS1...)
(setq keystate keystate);; значение свободной переменной в данном чертеже
...все возвращают: nil

BH · 22.08.2006, 22:23

При выполнении кода(в редакторе VBA, прилагаемом к ACAD):
keystate = GetKeyState(VK_CONTROL)
возникает сообщщение:
Sub or Function not defined

...да и в HELP по VBA эту функцию я ненашел

14.08.2006, 15:09		#1
Проверка нажатия CTRL в LISP в фоновом режиме(не grread) BH Регистрация: 02.06.2005 Сообщений: 19 Для чего это надо? Для расширения возможностей программы "Двойной клик+" в сборнике Dimka (http://dwg.ru/dwl/168) Как должна работать? При двойном клике на объекте, например на блоке с атрибутами запускается переопределенная команда eattedit, которая должна без ожидания определить нажата ли кнопка CTRL или нет и запустить соответствующий редактор. Думаю, что здесь надо использовать программу на другом языке программирования с передачей информации в LISP программу.
Просмотров: 7292