Ferdinand
05.06.2008, 15:50
Tvoří novou sadu 24 hladin - při 5. hladině se mi to zasekne... a nelíbí se mu, že chci nastavit ctab na pův. další hodnotu. Je to součást dalšího lispu, ve kterém jsou nadef. další věci.
;;subrutina pro nakresleni car v nove sade hladin - v novem rozvrzeni;;(aby se hladiny nesmazaly pri automatickem cisteni)(defun nsh_e (/ DX DY1 DY2)
(command "_layout" "_N" "nsh" "_layout" "_S" "nsh") (command "_erase" "_All" "" "_delay" 500) (if (not (tblsearch "LAYER" "0-ROZVRZENI")) (command "_-layer" "_N" "0-ROZVRZENI" "_C" 5 "0-ROZVRZENI" "_P" "_N" "0-ROZVRZENI" "" ) ) (command "_rectang" "0,0" "4500,2000") (command "_change" "_L" "" "_P" "LA" "0-ROZVRZENI" "") (command "_zoom" "_E")
(setq DX 150) (setq DY1 250) (setq DY2 1750)
(setq i 0) (while (< i (length SH0)) (setvar "clayer" (nth i SH0)) (setq B1 (list DX DY1)) (setq B2 (list DX DY2)) (command "_line" B1 B2 "") (setq i (1+ i)) (setq DX (+ 150 DX)) ) (setvar "ctab" ACTLT) (princ) (nsh_e))
ED: Přesné znění hlášky je:
Command: ; error: AutoCAD variable setting rejected: "clayer" nil
Ferdinand2008-06-10 14:27:17
;;subrutina pro nakresleni car v nove sade hladin - v novem rozvrzeni;;(aby se hladiny nesmazaly pri automatickem cisteni)(defun nsh_e (/ DX DY1 DY2)
(command "_layout" "_N" "nsh" "_layout" "_S" "nsh") (command "_erase" "_All" "" "_delay" 500) (if (not (tblsearch "LAYER" "0-ROZVRZENI")) (command "_-layer" "_N" "0-ROZVRZENI" "_C" 5 "0-ROZVRZENI" "_P" "_N" "0-ROZVRZENI" "" ) ) (command "_rectang" "0,0" "4500,2000") (command "_change" "_L" "" "_P" "LA" "0-ROZVRZENI" "") (command "_zoom" "_E")
(setq DX 150) (setq DY1 250) (setq DY2 1750)
(setq i 0) (while (< i (length SH0)) (setvar "clayer" (nth i SH0)) (setq B1 (list DX DY1)) (setq B2 (list DX DY2)) (command "_line" B1 B2 "") (setq i (1+ i)) (setq DX (+ 150 DX)) ) (setvar "ctab" ACTLT) (princ) (nsh_e))
ED: Přesné znění hlášky je:
Command: ; error: AutoCAD variable setting rejected: "clayer" nil
Ferdinand2008-06-10 14:27:17