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 argumenta nic se neprovede...Pokud to zkusím bez filtru(setq QVYBER5 (ssget "X" '(8 . "OEZ_OBV")))tak to stejné...nevybere nic...nil

aniž bych to zkoumal do detailů:
[CODE](ssget "_X" '((8 . "OEZ_OBV")))[/CODE]

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 argumentPozn.: Hladina OEZ_OBV ve výkrese existuje
Ferdinand2007-02-16 09:58:19

Pomohla "rozepsaná" forma syntaxu(setq QVYBER1 (ssget "X" (list (cons 8 "OEZ_*OBV"))))
Ferdinand2007-02-16 14:06:22

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.

(aha, nevšiml jsem si (to...) děkuji.)