Code Red > AutoLISP (Vanilla / Visual)

General coordinate parsing for commandline

(1/1)

SEANT:
I’m attempting a UI addition to make CAD work on a laptop less irritating.

The general hope is to reduce the need for a number pad (not available on my laptop) by utilizing the Screen Menus.  The “cumulative” approach I have works well enough for single inputs, i.e., Circle radius, Offset amount, etc. 

It is the coordinate input - 3.5,1.5 - for example,  that is giving me trouble.  Are there any suggestions for concatenating this info, like I’ve attempted in the lines labeled [Comma ] and [EnterXY]

This is what I currently have:


--- Code: ---**SUMPAD 3
[Comma  ](setvar 'USERR4 (getvar 'USERR5))(setvar 'USERR5 0.0)^Z
[EnterXY]eval(getvar 'USERR4),eval(getvar 'USERR5);


[1/32   ](setvar 'USERR5 (+(getvar 'USERR5) 0.03125))^Z
[1/16   ](setvar 'USERR5 (+(getvar 'USERR5) 0.0625))^Z
[1/8    ](setvar 'USERR5 (+(getvar 'USERR5) 0.125))^Z
[1/4    ](setvar 'USERR5 (+(getvar 'USERR5) 0.25))^Z
[1/2    ](setvar 'USERR5 (+(getvar 'USERR5) 0.5))^Z

[Submit ](getvar 'USERR5);

[1      ](setvar 'USERR5 (+(getvar 'USERR5) 1.0))^Z
[2      ](setvar 'USERR5 (+(getvar 'USERR5) 2.0))^Z
[4      ](setvar 'USERR5 (+(getvar 'USERR5) 4.0))^Z
[5      ](setvar 'USERR5 (+(getvar 'USERR5) 5.0))^Z

[Submit ](getvar 'USERR5);

[10     ](setvar 'USERR5 (+(getvar 'USERR5) 10.0))^Z
[20     ](setvar 'USERR5 (+(getvar 'USERR5) 20.0))^Z
[40     ](setvar 'USERR5 (+(getvar 'USERR5) 40.0))^Z
[50     ](setvar 'USERR5 (+(getvar 'USERR5) 50.0))^Z

[Submit ](getvar 'USERR5);

[100    ](setvar 'USERR5 (+(getvar 'USERR5) 100.0))^Z
[200    ](setvar 'USERR5 (+(getvar 'USERR5) 200.0))^Z
[400    ](setvar 'USERR5 (+(getvar 'USERR5) 400.0))^Z
[500    ](setvar 'USERR5 (+(getvar 'USERR5) 500.0))^Z
--- End code ---

A call line for the screen menu pane would look like:


--- Code: ---[SumPad ](setvar 'USERR5 0.0)(setvar 'USERR4 0.0)$S=Sumpad
--- End code ---

Navigation

[0] Message Index