Vytisknout stránku | Zavřít okno

nové hladiny

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=6593
Datum vytištění: 14.kvě.2026 v 06:58


Téma: nové hladiny
Odeslal: Ferdinand
Předmět: nové hladiny
Datum odeslání: 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
 


-------------
-FerTh-


Odpovědi:
Odeslal: Ferdinand
Datum odeslání: 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"))
 


-------------
-FerTh-


Vytisknout stránku | Zavřít okno