CAD Fórum : @ v lispu? https://www.cadforum.cz/forum/ Tue, 12 May 2026 21:13:40 +0000 Tue, 15 Mar 2005 11:51:52 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=442 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[@ v lispu? : Jdete na to ze špatného konce...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=2119&title=v-lispu#2119 Autor: Vladimír Michl
Předmět: 442
Zasláno: 15.bře.2005 v 11:51

Jdete na to ze špatného konce - jak vám již radili, chcete-li relativní souřadnice, je třeba je spočíst ze zadaného bodu, chcete-li poslední bod, dotažte se na LASTPOINT.
Nic takového jako konstanta "@" neexistuje.]]> Tue, 15 Mar 2005 11:51:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=2119&title=v-lispu#2119 <![CDATA[@ v lispu? : OPAKUJI SVŮJ DOTAZ: Jak se nadefinuje...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=2113&title=v-lispu#2113 Autor: Ferdinand
Předmět: 442
Zasláno: 15.bře.2005 v 11:41

OPAKUJI SVŮJ DOTAZ:  Jak se nadefinuje v lispu @ (zavináč), aby ho nebral jako proměnnou ale symbol (konstantu?)

Ví to někdo, prosím?

 

]]> Tue, 15 Mar 2005 11:41:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=2113&title=v-lispu#2113 <![CDATA[@ v lispu? : Dobrý den, pokud potřebujete...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1516&title=v-lispu#1516 Autor: Jan Liska
Předmět: 442
Zasláno: 09.úno.2005 v 08:31

Dobrý den,

pokud potřebujete získat souřadnice posledního zadaného bodu, můžete použít funkci getvar "LASTPOINT". S takto získanými souřadnicemi můžete samozřejmě dále pracovat - je to seznam jako každý jiný.

S pozdravem

]]> Wed, 09 Feb 2005 08:31:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1516&title=v-lispu#1516 <![CDATA[@ v lispu? : To je zřejmý pokus o zadání relativních...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1515&title=v-lispu#1515 Autor: Mrázek
Předmět: 442
Zasláno: 09.úno.2005 v 08:19

To je zřejmý pokus o zadání relativních souřadnic.]]> Wed, 09 Feb 2005 08:19:14 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1515&title=v-lispu#1515 <![CDATA[@ v lispu? : Přiznám se, že studovat kód jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1512&title=v-lispu#1512 Autor: Seiner
Předmět: 442
Zasláno: 08.úno.2005 v 20:34

Přiznám se, že studovat kód jsem nějak neměl čas. Nechápu ale, co vlastně chcete dosáhnout příkazem

(SETQ ZAV (GETSTRING ( "@")))

Setq - to je přiřazení, jasně. Getstring je pauza pro vstup stringu z klávesnice a první volitelný parametr určuje, jestli se ukončuje Enter nebo i mezerník a druhý volitelný je výzva na příkazovém řádku. ( "@") podle mne musí vyvolat jen chybu - neznámá funkce.

 

]]> Tue, 08 Feb 2005 20:34:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1512&title=v-lispu#1512 <![CDATA[@ v lispu? : Vkládám tentýž blok MKS (=kab....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1509&title=v-lispu#1509 Autor: Ferdinand
Předmět: 442
Zasláno: 08.úno.2005 v 15:19

Vkládám tentýž blok MKS (=kab. lávka o výšce 60 a o min. šíři 100). Chci ho v X-ové ose Stretchnout o délku SP, který je odstupňován po 100. Jak se nadefinuje @ (zavináč), aby ho nebral jako proměnnou ale symbol (konstantu?)

Zkoušel jsem, aby @->ZAV:

 (SETQ ZAV (GETSTRING ( "@")))

ale bere @ furt jako proměnnou.

Mohu ho nadefinovat snad přímo na řádku

(DEFUN C:MKS (/ MM ZB SP B2 LL AA @) ? Ale co dál?

Celé znění LISPu:

;;;Vložení kabelové lávky typu MKS (výška=60)
(DEFUN C:MKS (/ MM ZB SP B2 LL AA ZAV)

  (SETVAR "cmdecho" 0)
  (SETVAR "attdia" 1)
  (SETVAR "osmode" 0)


  (SETQ MM (GETINT "\nŠířka lávky bude[100-200-300-400-500-600]<100>:"))

 (PROMPT "\nZadejte bod :")
  (COMMAND "_insert" "MKS" pause ^c^c)
  (SETQ ZB (GETVAR "lastpoint"))

  (SETQ SP (- MM 100))
  (SETQ B2 (LIST (+ (CAR ZB) 50) (+ (CADR ZB) 60)))
  (SETQ ZAV (GETSTRING ( "@")))
  (SETQ AA (GETstring ( ZAV SP)))
  (SETQ LL (LIST ( AA 0)))

  (COMMAND "_-insert" "MKS" PAUSE 1 1 0)
  (COMMAND "_explode" _L "")
  (COMMAND "_stretch" _C ZB B2 "" ZB LL)

  (setvar "cmdecho" 1)
  (SETVAR "osmode" 39)

  (PRINC)
)

 

]]> Tue, 08 Feb 2005 15:19:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=442&PID=1509&title=v-lispu#1509