CAD Fórum : tečkové argumenty https://www.cadforum.cz/forum/ Wed, 10 Jun 2026 08:39:54 +0000 Mon, 19 Feb 2007 09:50:53 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3995 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[tečkové argumenty : (aha, nevšiml jsem si (to...)...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19123&title=teckove-argumenty#19123 Autor: Ferdinand
Předmět: 3995
Zasláno: 19.úno.2007 v 09:50

Shocked (aha, nevšiml jsem si (to...)Embarrassed děkuji.)Smile]]> Mon, 19 Feb 2007 09:50:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19123&title=teckove-argumenty#19123 <![CDATA[tečkové argumenty : Rozepisovat to nemusíte a ani...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19072&title=teckove-argumenty#19072 Autor: Vladimír Michl
Předmět: 3995
Zasláno: 16.úno.2007 v 14:19

Rozepisovat to nemusíte a ani nejde o to podtržítko (to je tam pro sichr) - ale neměl jste dobře počet závorek.]]> Fri, 16 Feb 2007 14:19:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19072&title=teckove-argumenty#19072 <![CDATA[tečkové argumenty : Pomohla &#034;rozepsaná&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19067&title=teckove-argumenty#19067 Autor: Ferdinand
Předmět: 3995
Zasláno: 16.úno.2007 v 14:05

Pomohla "rozepsaná" forma syntaxu
(setq QVYBER1 (ssget "X" (list (cons 8 "OEZ_*OBV"))))


Upravil Ferdinand - 16.úno.2007 v 14:06]]> Fri, 16 Feb 2007 14:05:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19067&title=teckove-argumenty#19067 <![CDATA[tečkové argumenty : Zajímavé na tom je, že formulaci...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19055&title=teckove-argumenty#19055 Autor: Ferdinand
Předmět: 3995
Zasláno: 16.úno.2007 v 09:46

Zajímavé na tom je, že formulaci bez toho podtržítka používám v jiných lispech a tam je to bez problémů... Každopádně děkuji, vyzkouším.

Command: (setq QVYBER1 (ssget "_X" '(8 . "OEZ_OBV")))
; error: bad point argument

Pozn.: Hladina OEZ_OBV ve výkrese existuje


Upravil Ferdinand - 16.úno.2007 v 09:58]]> Fri, 16 Feb 2007 09:46:08 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=19055&title=teckove-argumenty#19055 <![CDATA[tečkové argumenty : aniž bych to zkoumal do detailů: (ssget...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=18997&title=teckove-argumenty#18997 Autor: Vladimír Michl
Předmět: 3995
Zasláno: 14.úno.2007 v 17:15

aniž bych to zkoumal do detailů:
(ssget "_X" '((8 . "OEZ_OBV")))
]]> Wed, 14 Feb 2007 17:15:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=18997&title=teckove-argumenty#18997 <![CDATA[tečkové argumenty : Záměr: Chci vytvořit lispem blok...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=18995&title=teckove-argumenty#18995 Autor: Ferdinand
Předmět: 3995
Zasláno: 14.úno.2007 v 16:41

Záměr: Chci vytvořit lispem blok v hl. 0 z entit nacházejících se původně v hl. OEZ_OBV a/nebo OEZ_1OBV a/nebo OEZ_2OBV a uložit ho do samostatného výkresu.
...
(setq DWG (getvar "dwgname"))
(setq LL (strlen DWG))
(setq NPF (substr DWG 1 (- LL 4)))
(setq NPF_C (strcat NPF "_C"))
(if (tblobjname "layer" "OEZ_*OBV")
    (progn
      (setvar "expert" 1)
      (setq QVYBER5 (ssget "X" '(8 . "OEZ_*OBV")))
      (command "_chprop" QVYBER5 "" "_C" 6 "_LT" "center" "_LA"    0 "")
                    ;obrys Ltype=Center, LAyer=0
      (command "_-block" NPF_C "0,0" QVYBER5 "")
                    ;vytvori blok obrysu-v hl. 0
      (command "_-wblock" NPF_C "=")
      (setvar "expert" 0)
    )
  )

Hlásí, že
; error: bad point argument
a nic se neprovede...
Pokud to zkusím bez filtru
(setq QVYBER5 (ssget "X" '(8 . "OEZ_OBV")))
tak to stejné...nevybere nic...nil
]]> Wed, 14 Feb 2007 16:41:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3995&PID=18995&title=teckove-argumenty#18995