CAD Fórum : Uprava Lispu https://www.cadforum.cz/forum/ Wed, 13 May 2026 11:59:47 +0000 Tue, 08 Jan 2008 17:16:15 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=5100 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Uprava Lispu : Augur napsal(a):... (SETQ...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=27987&title=uprava-lispu#27987 Autor: Ferdinand
Předmět: 5100
Zasláno: 08.led.2008 v 17:16

Původně odeslal(a) Augur Augur napsal(a):

...
(SETQ NSTRING (GETSTRING T "\nSTRING TO REPLACE WITH: "))
(if (= "") (SETQ "x") (GETSTRING T "\nSTRING TO BE REPLACED: ")))
(REPSTRING OSTRING NSTRING))
Pro tuto formu zápisu bych to spíše napsal:
 
;;predvolena hodnota:
(setq DFT (strcat "<ABC>"))
 
(setq OSTRING (getstring "\nSTRING TO BE REPLACED: "))
(setq NSTRING (getstring (strcat "\nSTRING TO REPLACE WITH: " DFT)))
(if (= NSTRING nil) (setq NSTRING DFT))
 
;;zamena OSTRING na NSTRING: (nevim jak)
(???? ???? ????)

Co to je "T" ?
 
Jinak je to řešeno - např. chgtext.lsp
http://www.cadinfo.net/scripts/LISPlib-software.cfm?StartRow=11&areano=331
http://www.design-drawing.com/lisp/LSP-chgtxt.htm
http://www.cadcorner.ca/lisp.php
http://www.itcad.net/ChangeText.htm


Upravil Ferdinand - 08.led.2008 v 17:17]]> Tue, 08 Jan 2008 17:16:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=27987&title=uprava-lispu#27987 <![CDATA[Uprava Lispu : To byl jen fragment kódu - definice...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=27983&title=uprava-lispu#27983 Autor: Vladimír Michl
Předmět: 5100
Zasláno: 08.led.2008 v 16:50

To byl jen fragment kódu - definice funkce (repstring) tam není.]]> Tue, 08 Jan 2008 16:50:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=27983&title=uprava-lispu#27983 <![CDATA[Uprava Lispu : Vladimír Michl napsal(a):(defun...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=27982&title=uprava-lispu#27982 Autor: Ferdinand
Předmět: 5100
Zasláno: 08.led.2008 v 16:30

Původně odeslal(a) Vladimír Michl Vladimír Michl napsal(a):

(defun c:repstring ()
...
Mně to nefunguje:
Command: _appload repstring.lsp successfully loaded.
Command: repstring
STRING TO BE REPLACED: ABCDE
STRING TO REPLACE WITH <něco>: Enter
; error: no function definition: REPSTRING
 
]]> Tue, 08 Jan 2008 16:30:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=27982&title=uprava-lispu#27982 <![CDATA[Uprava Lispu : Ve stařičkéUčebnici Autolispu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24567&title=uprava-lispu#24567 Autor: Ferdinand
Předmět: 5100
Zasláno: 03.zář.2007 v 16:47

Ve stařičké Učebnici Autolispu je následující řešení:
 
;B...implicitni hodnota
;C...vyzva uzivateli (to, co bude v zavorkach tj. <C>)
;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)
)
;;
;;Priklady volani implicitni hodnoty:
;;
;;  (setq PROM (default BB CC DD)) ;obecny tvar - v prikazovem radku se objevi:
;;[retezec CC:] <hodnota BB>
;;kde format BB bude DD
;;  (setq A1 (default 10 "\nZadejte cele cislo: " "int")) ;<default> pro promennou A1 bude hodnota <10> tj. Integer
;;  (setq A2 (default A1 "\nZadejte realne cislo: " "real")) ;<default> pro promennou A2 bude promenna <A1> a to Real
;;  (setq A3 (default "doleva" "\nSmer bude: " "str")) ;<default> pro promennou A3 bude retezec <doleva> tj. String
;;
]]> Mon, 03 Sep 2007 16:47:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24567&title=uprava-lispu#24567 <![CDATA[Uprava Lispu : Dakujem, funguje. ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24560&title=uprava-lispu#24560 Autor: Augur
Předmět: 5100
Zasláno: 03.zář.2007 v 11:34

Dakujem, funguje. ]]> Mon, 03 Sep 2007 11:34:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24560&title=uprava-lispu#24560 <![CDATA[Uprava Lispu : (defun c:repstring () (SETQ OSTRING...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24559&title=uprava-lispu#24559 Autor: Vladimír Michl
Předmět: 5100
Zasláno: 03.zář.2007 v 11:10

(defun c:repstring ()
(SETQ OSTRING (GETSTRING T "\nSTRING TO BE REPLACED: "))
(SETQ NSTRING (GETSTRING T "\nSTRING TO REPLACE WITH <něco>: "))
(if (= NSTRING "")(setq NSTRING "něco"))
(REPSTRING OSTRING NSTRING)
)
]]> Mon, 03 Sep 2007 11:10:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24559&title=uprava-lispu#24559 <![CDATA[Uprava Lispu : Chcel by som poziadat o radu,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24558&title=uprava-lispu#24558 Autor: Augur
Předmět: 5100
Zasláno: 03.zář.2007 v 10:40

Chcel by som poziadat o radu, pri modifikacii tohoto lispu.
Vysledok by mal byt taky, ze pri nezadani hodnoty na prepisanie sa pouzije predvolena hodnota napr. "X"

(defun c:repstring ()
(SETQ OSTRING (GETSTRING T "\nSTRING TO BE REPLACED: "))
(SETQ NSTRING (GETSTRING T "\nSTRING TO REPLACE WITH: "))
(REPSTRING OSTRING NSTRING)
)

Snazil som sa to zapisat nejako takto, ale nech robim, co robim, stale to nejde.

(defun c:repstring ()
(SETQ OSTRING (GETSTRING T "\nSTRING TO BE REPLACED: "))
(if (= "") (SETQ "x") (GETSTRING T "\nSTRING TO BE REPLACED: ")))
(REPSTRING OSTRING NSTRING))]]> Mon, 03 Sep 2007 10:40:43 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5100&PID=24558&title=uprava-lispu#24558