nov� hladiny : Pro upřesnění: lisp ze zasekne...

Tue, 10 Jun 2008 14:26:24 +0000

Autor: Ferdinand
P�edm�t: 6593
Zasl�no: 10.�er.2008 v 14:26

Pro up�esn�n�:

lisp ze zasekne a� po vytvo�en� nov� sady hladin p�i kreslen� ��ry v po�ad� 5. hladin� s n�zvem "PREDP_koty"

PREDP...zadan� p�edpona pro sadu hladin

SH0...seznam n�zv� nov� sady hladin

(setq ACTLT (getvar "ctab"))

nov� hladiny : Tvoří novou sadu 24 hladin -při...

Thu, 05 Jun 2008 15:50:13 +0000

Autor: Ferdinand
P�edm�t: 6593
Zasl�no: 05.�er.2008 v 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

Upravil Ferdinand - 10.�er.2008 v 14:27

CAD Fórum : nov� hladiny

nov� hladiny : Pro upřesnění: lisp ze zasekne...

nov� hladiny : Tvoří novou sadu 24 hladin -při...