Moje úvaha:
Jestliže nezadám název (jediná viditelná entita bloku), tak po vložení bloku nic nevidím. Divné je, že nic nevidím ani po zapnutí QTEXTu. ale jestliže zadám příkaz _EXPLODE _ALL, tak se ten blok rozbije. Tudíž tam musí být.

Jako řešení mě napadá jedině doplnit ten blok třeba nějakou čárou, aby vždycky bylo něco viditené.

Asi to nějak souvisí s problémy typu výběr mimo obrazovku,  není nalezen průsečík čárkovaných čar protínajících se v díře, šrafovaná plocha musí být na obrazovce apod. Ale to je jenom můj odhad.

Pavel Štyl

Dejte sem váš aktuální zdroják a přesný popis toho, co na jakou výzvu zmáčknete za klávesu. Pokusím se to nasimulovat.

A co máte za AutoCAD?

Pavel Štyl

Mě to funguje tak, že pokud na výzvu "Nazev mistnosti" zadám ENTER (tzn. nezadám název místnosti), tak se blok normálně vloží. Pokud bych dal ESC, tak se program samozřejmě ukončí a blok se nevloží.

Pokud vám to nefunguje ani přes ten ENTER, zkuste opravit řádek

(if (= (cdr (assoc 2 eg)) "NAZEV")

takto

(if (and (= (cdr (assoc 2 eg)) "NAZEV") naz)

Pavel Štyl

Aha, možná jsem udělal chybku. Zkuste to entupd opravit takto:

(entupd (entlast))

Pavel Štyl

Já jsem původně chtěl co nejvíce zachovat vašeho kódu a řešil jsem jenom to naplnění atributů hodnotami. Teď jsem to musel trošku přepsat (snad to bude pochopitelné).

Pavel Štyl

;=========================================================== ============== ; Mistnost.lsp    Popis místnosti ; (c) Copyright 2006 PepaR ; from: www.? ? ?.com ;----------------------------------------------------------- -------------- ; Description: ; ; Zjistí plochu a obvod místnosti a zapíše jej jako atributy do bloku ; ; Command options: ;  "MISTNOST" Výšková kóta ;  "VKO" Oprava hodnoty výškové kóty ;=========================================================== ================= (defun mistnost_zjisti (/ celk_obvod celk_plocha plocha obvod i ss)   (setq celk_obvod 0.0)   (setq celk_plocha 0.0)   (prompt "\nVyberte křivku(y) místnosti: ")   (setq ss (ssget (list (cons -4 "<OR") (cons 0 "POLYLINE") (cons 0 "LWPOLYLINE") (cons -4 "OR>")   )) i 0)   (while (< i (sslength ss))     (command "_area" "_e" (ssname ss i))     (setq celk_obvod (+ celk_obvod (getvar "perimeter")))     (setq celk_plocha (+ celk_plocha (getvar "area")))     (setq i (1+ i))   )     (setq plocha (vl-string-subst "," "."  (rtos (/ celk_plocha (* 1000.0 1000.0)) 2 2)))   ;;; Prevod na mm^2 -> m^2   (setq obvod (vl-string-subst "," "."  (rtos (/ celk_obvod 1000.0) 2 2)))         &n bsp;    ;;; Prevod na mm -> m     (list plocha obvod) ) (defun mistnost_zapis (entl naz pl obv / e eg)  (setq e (entnext entl))  (while e   (setq eg (entget e))   (if (= (cdr (assoc 0 eg)) "ATTRIB")    (progn     (if (= (cdr (assoc 2 eg)) "PLOCHA")      (progn        (setq eg (subst (cons 1 pl) (assoc 1 eg) eg))        (entmod eg)      )     )           (if (= (cdr (assoc 2 eg)) "OBVOD")      (progn        (setq eg (subst (cons 1 obv) (assoc 1 eg) eg))        (entmod eg)      )     )           (if (= (cdr (assoc 2 eg)) "NAZEV")      (progn        (setq eg (subst (cons 1 naz) (assoc 1 eg) eg))        (entmod eg)      )     )          )   )   (setq e (entnext e))  ) (princ) ) ;;; Pozor, entlast za urcitych okolnosti nevraci posledni entitu (je-li jako posledni entita napr. blok s atributy nebo polyline) (defun entlast1 (/ e en)  (setq en (entlast))  (while en   (setq e en)   (setq en (entnext en))  )  e ) (defun C:MISTNOST (/ entl entl1 attrq naz param)   (setq attrq (getvar "ATTREQ"))   (setvar "ATTREQ" 0)     (setq entl1 (entlast1))   (setq entl (entlast))     (setq param (mistnost_zjisti))   (setq naz (getstring "\nNazev mistnosti: "))   (prompt "\nUrčete bod vložení označení místnosti :")   (command "_-INSERT" "c_mistnosti" pause (getvar "dimscale")(getvar "dimscale") pause)   (mistnost_zapis entl1 naz (car param) (cadr param))   (entupd entl)   (setvar "ATTREQ" attrq)   (princ) )