I got the loop working, but the timing is very inconsintent. I just can't get it to run in a smooth predictable pace, so i'm giving up on the idea to make such a game in AutoCAD, but i found a few useful things, while tinkering with this.
I searched the internet for a way to move a lwpolyline with entmod, but i wasn't able to find anything on the topic, so i wrote my own function.
Move a lwpolyline using entmod:
Usage:
(entmod (MassMod (entget ename) (list 0 X Y)))
(defun MassMod (lst mod / pair return)
(while (setq pair (car lst) lst (cdr lst))
(setq return (cons (if (= (car pair) 10) (mapcar '+ pair mod) pair) return))
)
(reverse return)
);defun
Another useful thing i found is a way to capture user input inside a loop, without halting the loop, with the help of a relatively simple .NET dll. I made a LispFunction that listens for user input, within a given timeout and if there is input, it is stored in the "keyPress" variable. If the timeout is reached, the function exits, without assigning any value to the "keyPress" variable.
This function was inspired by Kean Walmsley, so all credit goes here: https://www.keanw.com/2007/02/allowing_users_.html
Intercept user input inside a loop, withing a given timeout:
Argument: "timeout" - timeout in milliseconds /INTEGER/
The function does not return anything, but if a key is pressed, it sets the key /as a string/ in a variable named "keyPress". You can exit the function with the "ESC" key, if you set a long timeout and want to abort.
Usage:
(setq keyPress nil)
(GetInput timeout)
(cond
((= keypress "Q") (DoSomething));q Q
((= keypress "S") (DoSomething));S
((= keypress "A") (DoSomething));A
((= keypress "D") (DoSomething));D
((= keypress "W") (DoSomething));W
(T (DoSomethingElse))
);cond
using System;
using System.Diagnostics;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using WinForms = System.Windows.Forms;
namespace ACAD_Test
{
public class MyCommands
{
[LispFunction("GetInput")]
static public void GetInput(ResultBuffer resbuf)
{
MyMessageFilter filter = new MyMessageFilter();
WinForms.Application.AddMessageFilter(filter);
try
{
Stopwatch sw = new Stopwatch();
sw.Start();
Document doc = Application.DocumentManager.MdiActiveDocument;
Editor ed = doc.Editor;
TypedValue[] args = resbuf.AsArray();
int timeout = (int)args[0].Value;
while (sw.ElapsedMilliseconds < timeout)
{
System.Windows.Forms.Application.DoEvents();
if (filter.bCanceled == true)
{
ed.WriteMessage("\nGetInput function cancelled:");
break;
}
switch (filter.key)
{
case "A":
doc.SetLispSymbol("keyPress", new TypedValue((int)LispDataType.Text, "A"));
break;
case "D":
doc.SetLispSymbol("keyPress", new TypedValue((int)LispDataType.Text, "D"));
break;
case "S":
doc.SetLispSymbol("keyPress", new TypedValue((int)LispDataType.Text, "S"));
break;
case "W":
doc.SetLispSymbol("keyPress", new TypedValue((int)LispDataType.Text, "W"));
break;
case "Q":
doc.SetLispSymbol("keyPress", new TypedValue((int)LispDataType.Text, "Q"));
break;
}
}
System.Windows.Forms.Application.RemoveMessageFilter(filter);
}
catch (System.Exception Ex)
{
System.Windows.Forms.Application.RemoveMessageFilter(filter);
Application.ShowAlertDialog("System exception:\n" + Ex.Message + "\n" + Ex.Source + "\n" + Ex.StackTrace);
}
}
}//Class
public class MyMessageFilter : WinForms.IMessageFilter
{
public const int WM_KEYDOWN = 0x0100;
public bool bCanceled = false;
public string key = "";
public bool PreFilterMessage(ref WinForms.Message m)
{
if (m.Msg == WM_KEYDOWN)
{
// Check for the Escape keypress
WinForms.Keys kc = (WinForms.Keys)(int)m.WParam & WinForms.Keys.KeyCode;
if (kc == WinForms.Keys.Escape)
{
bCanceled = true;
}
key = kc.ToString();
// Return true to filter all keypresses
return true;
}
key = "";
// Return false to let other messages through
return false;
}//Method
}//Class
}//Namespace
I Hope you find these functions useful, so that at least i won't have wasted my time in vain.
