tečkové argumenty
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=3995
Datum vytištění: 12.kvě.2026 v 08:28
Téma: tečkové argumenty
Odeslal: Ferdinand
Předmět: tečkové argumenty
Datum odeslání: 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 ------------- -FerTh- |
Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 14.úno.2007 v 17:15
aniž bych to zkoumal do detailů:
------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz helpdesk.arkance-systems.cz) |
Odeslal: Ferdinand
Datum odeslání: 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 ------------- -FerTh- |
Odeslal: Ferdinand
Datum odeslání: 16.úno.2007 v 14:05
|
Pomohla "rozepsaná" forma syntaxu (setq QVYBER1 (ssget "X" (list (cons 8 "OEZ_*OBV")))) ------------- -FerTh- |
Odeslal: Vladimír Michl
Datum odeslání: 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. ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz helpdesk.arkance-systems.cz) |
Odeslal: Ferdinand
Datum odeslání: 19.úno.2007 v 09:50
 (aha, nevšiml jsem si (to...) děkuji.)
------------- -FerTh- |