about graphic button's "Clicked" and "MouseMove" events...

Started by khann · 2018-07-28 02:50 UTC · 6 replies · SMF topic #2615

khann 2018-07-28 02:50 UTC

Hi.
I have a graphic button with have two
"Clicked" and "MouseMove" events at same time.

"MouseMove" event is to show its related "BlockPreview"
and
"Clicked" event is to get a point and insert the "Block"

when I clicked the button
there are number of

"Can't reenter lisp"
"Invalid point."

prompted out at the command line before I get a point .
can these messages be prevented ?

but removed the "MouseMove" event
it shows nothings.

any reply would be appreciated.
Thannks

fred_tomke 2018-07-28 11:07 UTC

Hi, am I right, that the form is a modeless form/palette? Then you have to switch the button's property EventInvoke to AllowCommand.
If it is a modal form, have a look at the {2}.
Regards, Fred

khann 2018-07-29 05:42 UTC

Hi, Fred.
Thank you for your reply.

The form is modeless,
and the button is EvenInvoke of 1-Asynch..
???

ODCL 8.2.0.1

fred_tomke 2018-07-31 05:29 UTC

Hi, can you post a small sample for debugging? Regards, Fred

khann 2018-08-01 01:19 UTC

Hi. Fred.
thank you for your interest.

I attach samples of a DWG and lisp files.
Type "t33" to load the test Form.

It seems that the (getpoint) function cause the "Can't reenter lisp" messages

Attachments

01-Test btnClick and mouse move.LSP (2823 bytes)
01-Test for btn Click and Mouse Move.dwg (59299 bytes)
01-test.png (36188 bytes)
02-test.png (36784 bytes)

roy_043 2018-08-01 11:36 UTC

@khann:
You are almost there with your analysis. The problem is probably that the (getpoint) function receives input from the (c:CnMTest/Form/btnALMLT#OnMouseMove) function. Unlike BricsCAD, AutoCAD does not allow this.
See:
http://help.autodesk.com/view/OARX/2018/ENU/?guid=GUID-445F32F0-8A9D-4E1D-976F-DE87CC5267D0

One solution is to temporarily switch off OnMouseMove:

(defun c:CnMTest/Form/btnALMLT#OnClicked ( / *TP *Tmp_TBlock_Name func)

  (setq func (dcl-Control-GetProperty CnMTest/Form/btnALMLT "MouseMove"))

  (dcl-Control-SetProperty CnMTest/Form/btnALMLT "MouseMove" "") ; Switch of OnMouseMove.

  (setq *Tmp_TBlock_Name "TBlock")

  (setq *TP (getpoint "\n Block Point : ]"))

  (command "-insert" *Tmp_TBlock_Name *TP "1" "" "0")

  (dcl-Control-SetProperty CnMTest/Form/btnALMLT "MouseMove" func) ; Restore OnMouseMove.

  (princ)

)

khann 2018-08-02 02:43 UTC

Thank you roy_043 :D :D

I was thinking something similar like this..
but I did not know about the "dcl-Control-SetProperty" function.

I can use your sample codes.
Thank you so much . :)