CAD Fórum : default

default : Tak jsem po nějaké době prolistoval...

Mon, 30 Oct 2006 12:58:26 +0000

Autor: Ferdinand
P�edm�t: 2870
Zasl�no: 30.��j.2006 v 12:58

Tak jsem po n�jak� dob� prolistoval sta�i�kou p��ru�ku U�ebnice Autolispu, a:
(setq MY (default MX "\Zadejte m��tko bloku pro sm�r Y : " "int"))
co� se na p��k. ��dku zobraz� jako
Zadejte m��tko bloku pro sm�r Y : <hodnota MX>
A o to mi �lo

default : Ano, tak to udělat jde, ale neřeší...

Thu, 27 Jul 2006 15:28:05 +0000

Autor: Ferdinand
P�edm�t: 2870
Zasl�no: 27.�vc.2006 v 15:28

Ano, tak to ud�lat jde, ale ne�e�� to m�j p�vodn� z�m�r: Univerz�ln� pou�it� lispu default.lsp v r�zn�ch aplikac�ch...

default : samozřejmě by to šlo řešit taky: (cond...

Thu, 27 Jul 2006 11:54:17 +0000

Autor: Seiner
P�edm�t: 2870
Zasl�no: 27.�vc.2006 v 11:54

samoz�ejm� by to �lo �e�it taky:

(cond ((OR(= keypart "H")(= keypart nil))...

default : Dyť povídám (initget "H...

Thu, 27 Jul 2006 11:52:31 +0000

Autor: Seiner
P�edm�t: 2870
Zasl�no: 27.�vc.2006 v 11:52

Dy� pov�d�m

(initget "H V")

(SETQ keypart (getkword "\nOrientace polo�ky bude [Horizont�ln�/Vertik�ln�]:"))
(If (= keypart nil)(setq keypart "H"))
(cond    ((= keypart "H")
     (SETQ DG HO)
     (setq part 1)
    )
    ((= keypart "V")
     (SETQ DG VE)
     (setq part 2)
    )
)

default : To ano, ale jak tam dostanu tu...

Thu, 27 Jul 2006 11:37:27 +0000

Autor: Ferdinand
P�edm�t: 2870
Zasl�no: 27.�vc.2006 v 11:37

To ano, ale jak tam dostanu tu p�ednastavenou hodnotu?
Konkr�tn� m�m:
...
(initget "H V")

(SETQ keypart (getkword "\nOrientace polo�ky bude [Horizont�ln�/Vertik�ln�]:"))

(cond    ((= keypart "H")
    (SETQ DG HO)
    (setq part 1)
    )
    ((= keypart "V")
    (SETQ DG VE)
    (setq part 2)
    )
)
...

default : Jestli se orientuji ve Vašem košatém...

Tue, 25 Jul 2006 14:05:48 +0000

Autor: Seiner
P�edm�t: 2870
Zasl�no: 25.�vc.2006 v 14:05

Jestli se orientuji ve Va�em ko�at�m dotazu, pom��e V�m funkce GetKWord.
P��klad:

(Initget "N P V K J")
(setq jak (GetKWord "Nad/Pod/Vodorovn�/Jinde/ "))
(If (= jak nil)(setq jak "K" konec T))

Upravil Seiner - 25.�vc.2006 v 14:06

default : V aplikaci BLEADER.LSP mám bezprostředně...

Tue, 25 Jul 2006 13:56:44 +0000

Autor: Ferdinand
P�edm�t: 2870
Zasl�no: 25.�vc.2006 v 13:56

V aplikaci BLEADER.LSP m�m bezprostředně za sebou 2 dvojice v�běru (prvn�=[O/K], druh�=[H/V] ). Chtěl bych tam dostat implicitn� (tj. předem danou, Enterem potvrzovatelnou) hodnotu (prvn�=<K>, druhou=<H>) pomoc� t�to utilitky:
;default.lsp
;B...implicitni hodnota
;C...vyzva uzivateli (to, co bude v zavorkach tj. )
;D...typ promenne (real, int, str)
(defun default (B C D / TEMP)
(cond    ((= D "real")
    (if (= B nil)
       (setq B 1)
    )
    (prompt (strcat C " <" (rtos B 2 2) "> "))
    (setq TEMP (getreal))
    (if (= TEMP nil)
       B
       TEMP
    )
    )
    ((= D "int")
    (if (= B nil)
       (setq B 1)
    )
    (prompt (strcat C " <" (rtos B 2 0) "> "))
    (setq TEMP (getint))
    (if (= TEMP nil)
       B
       TEMP
    )
    )
    ((= D "str")
    (if (= B nil)
       (setq B "")
    )
    (prompt (strcat C " <" B "> "))
    (setq TEMP (getstring t))
    (if (= TEMP "")
       B
       TEMP
    )
    )
)
(prinC)
)

Jak to volat v bleader.lsp?
=prvn� volba: default m� b�t K
(setq NECO1 (default B "1.V�ZVA NA PŘ�KAZOV�M Ř�DKU" "str"))
...
Co m� b�t NECO1 ?
Jak to bude pokračovat pro př�pad volby O ?
=druh� volba: default m� b�t H
(setq NECO2 (default B "2.V�ZVA NA PŘ�KAZOV�M Ř�DKU" "str"))
Co m� b�t NECO2 ?
Jak to bude pokračovat pro př�pad volby V ?