topic Re: Getstring with var to .... in Visual LISP, AutoLISP and General Customization Forum

Getstring with var to ....

Anonymous — Mon, 11 Nov 2019 09:22:40 GMT

Hello everyone,
I have these lines in a Lisp

(setq eh (getstring "\nText Einheit [Meter = m; Zentimeter = cm; Millimeter = mm]: ")

and I would like to say that if someone enter m the value have to be 1 at cm 100 at mm 1000 is possible this?

Thanks

Re: Getstring with var to ....

hak_vz — Mon, 11 Nov 2019 09:40:45 GMT

We have worked on this this in https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-can-not-find-a-mistake/m-p/9132491#M392210 Don't open new posts if not necesary.

after (setq eh (getstring "\nText Einheit [Meter = m; Zentimeter = cm; Millimeter = mm]: "))

put this and you will have value r set to asked value

(setq eh (strcase eh T))
(cond ((= eh "m") (setq r 1))((= eh "m") (setq r 1))((= eh "cm") (setq r 100))((= eh "mm") (setq r 1000)))

Re: Getstring with var to ....

Anonymous — Mon, 11 Nov 2019 09:50:10 GMT

thanks

Next time I make no new post, sorry.

Re: Getstring with var to ....

hak_vz — Mon, 11 Nov 2019 10:01:12 GMT

It's not a problem but it's easyer to follow.

Re: Getstring with var to ....

hak_vz — Mon, 11 Nov 2019 10:27:36 GMT

To be correct

(setq eh (strcase eh T))
(cond
	((= eh "m") (setq r 1))
	((= eh "cm") (setq r 100))
	((= eh "mm") (setq r 1000))
)

Re: Getstring with var to ....

Anonymous — Tue, 12 Nov 2019 06:24:23 GMT

I have a new problem I want to read the Untis to remember and later reset.

(defun c: test ()
Conversion units and note
(setq lu (getvar "Lunits"))
(setq lp (getvar "luprec"))
(setq au (getvar "aunits"))
(setq ap (getvar "auprec"))
(command "units" "2" 0 "1" 0 "0.00" "no")
(command "_GRAPHSCR")
(command "units" lu lp au ap "0.00" "no")
)

The problem is auntis with getvar you get 0-4 but you can only set 1-5?

Re: Getstring with var to ....

hak_vz — Tue, 12 Nov 2019 06:59:23 GMT

https://knowledge.autodesk.com/support/autocad-lt/learn-explore/caas/CloudHelp/cloudhelp/2019/ENU/AutoCAD-LT/files/GUID-C7C0F6A5-7982-43DB-97F9-5B9B0044E9FA-htm.html

There are functions "getvar" and "setvar".

Variable aunits can have value 0 - 4 (5 values).

When you want to change all this variables by using "command" that invokes "units" autocad command then those values expected in units command are 1 - 5.

So, if you use units command add 1 to value received by getvar.

I hope it's clear.

Digression. Counting in autolisp starts with 0. If you have (setq a (list 1 2 3 4)) abd want to take first element in a list by using nth aulolisp command you write (nth 0 a) and receive 1.

If let say getvar receive value 2 and you don't want to change it then (setvar "variable" 2) or don't even bother with it.

Re: Getstring with var to ....

Anonymous — Tue, 12 Nov 2019 08:28:44 GMT

Sorry, I don't get it real. Iunderstand what You mean with setvar and getvar. Can i say (setq au (getvar "aunits")) and (setvar "aunits" au) ?

I have read about (nth) but how can I get it in my command?
Exampel (setq farben'("rot" "grün" "blau" "gelb"))
(nth 2 farben) = blau

Re: Getstring with var to ....

cadffm — Tue, 12 Nov 2019 08:44:13 GMT

@Anonymous schrieb:

Can i say (setq au (getvar "aunits")) and (setvar "aunits" au) ?

For usual yes, why not? You get the variable-value, you set the variable-value

The problem vefore was: You habdle with two different things: One Command and one Systemvariables.

I have read about (nth) but how can I get it in my command?
Exampel (setq farben'("rot" "grün" "blau" "gelb"))
(nth 2 farben) = blau

The Question is WHY??

(nth au farben)

Re: Getstring with var to ....

Sea-Haven — Wed, 13 Nov 2019 03:44:45 GMT

Like this change snaps and angles it can be easier if using lisp and point variables to do angles in radians.

(defun c:xxx ..........
(setq oldsnap (getvar 'osmode))
(setvar 'osmode 512)
(setq oldaunits (getvar 'aunits))
(setvar 'aunit 3) ; radians
…
….
(setvar 'osmode oldnsap) ; reset back
(setvar 'aunits oldaunits)
(princ)
)

Re: Getstring with var to ....

Sea-Haven — Wed, 13 Nov 2019 03:55:23 GMT

This is a can only pick dcl, its a library routine can be used in any code just save Multi radio buttons.lsp to a search path location or add path.

(if (not AH:Butts)(load "Multi Radio buttons.lsp"))
(if (= but nil)(setq but 1))
(setq eh (ah:butts but "v"  '("m or mm or cm" "m" "cm" "mm")))

(cond
	((= eh "m") (setq r 1))
	((= eh "cm") (setq r 100))
	((= eh "mm") (setq r 1000))
)

See screenshot

Re: Getstring with var to ....

Anonymous — Wed, 13 Nov 2019 06:14:07 GMT

Thanks. Regarding Units that was exactly what I was looking for. The input is very ingenious. Can I extend this?

;Query
   (initget (+ 1 2 4))
(setq ma (getreal "\ nscale [1:50 = 50]:"))
   (initget (+ 1 2 4))
(setq th (getreal "\ nText height [2.5 = 25]:"))
   (initget (+ 1 4))
(setq ks (getreal "\ nText Komastellen [0-8]:"))