Potřebuji vyloučit nulový výběr, tj.
...
(setq QVYBER6 (ssget "X" (list (cons 8 "OEZ_*VYK"))))
(setq QVYBER3 (ssget "X" (list (cons 8 "OEZ_*OSY"))))
(setq QVYBER4 (ssget "X" (list (cons 8 "OEZ_*NEH"))))
(command "_-block" NPF "0,0" QVYBER6 QVYBER3 QVYBER4 "")
...
pokud ve výkresu není jeden z hl. OEZ_*VYK anebo OEZ_*OSY anebo OEZ_*NEH, tak se blok nevytvoří. Jak neex. hl. vyloučit?

Takovou formulaci jsem ještě neviděl... To může fungovat? Pokud teda tomu dobře rozumím: pokud existuje výběr QVYBERx tak proveď příkaz "_-block".
To platí pro všechny kombinace? Tj.
a./ QVYBER6 existuje + QVYBER3 existuje + QVYBER4 existuje
b./ QVYBER6 existuje + QVYBER3 existuje + QVYBER4 neexistuje
c./ QVYBER6 existuje + QVYBER3 neexistuje + QVYBER4 existuje
d./ QVYBER6 neexistuje + QVYBER3 existuje + QVYBER4 existuje
e./ QVYBER6 existuje + QVYBER3 neexistuje + QVYBER4 neexistuje
f./ QVYBER6 neexistuje + QVYBER3 neexistuje + QVYBER4 existuje
g./ QVYBER6 neexistuje + QVYBER3 neexistuje + QVYBER4 neexistuje

To bych ještě podmínil výběr existencí hladiny daného názvu:

  (if (tblobjname "layer" "OEZ_*VYK")
    (progn
      (setq QVYBER6 (ssget "X" (list (cons 8 "OEZ_*VYK"))))
      (command "_chprop" QVYBER6 "" "_C" "_Byblock" "_LA" 0 "")
      (command "_-block" NPF "0,0")
      (if QVYBER6 (command QVYBER6))
      (if QVYBER3 (command QVYBER3))
      (if QVYBER4 (command QVYBER4))
      (command "")
      (command "_-wblock" NPF NPF) ;potrebuju vytvoreny blok ulozit do samost.vykresu
    )
  )

Děkuji za vysvětlení. Když to napíšu do těla příkazu:
(command "_-block" NPF "0,0" (if QVYBER6 (command QVYBER6 "")) (if QVYBER3 (command QVYBER3 "")) (if QVYBER4 (command QVYBER4 "")))
tak to bude taky fungovat?
... funguje to jenom pro jeden výběr
(command "_-block" NPF "0,0" (if QVYBER4 (command QVYBER4 "")))


Upravil Ferdinand - 20.úno.2007 v 11:48