---

Ich habe mir mal eine einfache DCL erstellt und würde gern wissen, wo genau ich die Funktion (getlayer) aufrufen muss, damit die Layer auch tatsächlich in der Listbox "Zeichnung" angezeigt werden.

Die DCL schaut so aus

Code:

---

no_name : dialog {
    label="TestProgram";
        : text {
            key        = "DCLLabel1" ;
            label      = "Zeichnung" ;
            is_bold    = "DCLLabel1" ;
            width      = 94 ;
            height    =  1 ;
            alignment    = top ;
        }
        :list_box {
            key        = "DCLListLabel1" ;
            alignment    = top ;
            width      = 94 ;
            height    = 12 ;
            is_tab_stop = false ;
            list    =  "" ;
        }
        : text {
            key        = "DCLLabel2" ;
            label      = "Standard" ;
            is_bold    = "DCLLabel2" ;
            width      = 94 ;
            height    =  1 ;
            alignment    = top ;
        }
        :list_box {
            key        = "DCLListLabel2" ;
            alignment    = top ;
            width      = 94 ;
            height    = 12 ;
            is_tab_stop = false ;
            list    = "" ;
        }
        : button {
            key        = "DCLButton1" ;
            label      = "Move" ;
            width      =  5 ;
            height    =  2 ;
            alignment    = top ;
            fixed_width=true;
        }
    : text { label= "Eine neue Möglichkeit DCLŽs zu schreiben" ;}
    : text { label= "http://dclgenerator.co.nr" ;}
ok_cancel_help;
}

---

Die Lisp schaut so aus

Code:

---

(defun getLayer (/ laynam lay laylist)
  (setq laynam (tblnext "layer" T))
  (while laynam
    (setq lay (cdr (assoc 2 laynam)))
    (setq laylist (vl-sort (append laylist (list lay)) '<:nozwinker
    (setq laynam (tblnext "layer"))
    )
  laylist
  )

(defun LoadDialog_no_name( /
;;;   dcl_id
  )
  (defun init_handler()  ;Initialation_Code
      (princ)
  );End of Initial Function
  (defun set_data() ;Start Set function
      (princ)
  );End of Set function
  (defun get_data() ;Start Get function
      (princ)
  );End of Get function
  (if (setq dcl_id (load_dialog "TEST.DCL"))
      (if (new_dialog "no_name" dcl_id)
          (progn
;;;     (alert "Menu did not load!")
              (setq result nil)
              (init_handler)
              (set_data)
              (action_tile "accept" "(get_data)(done_dialog)(setq result T)")
              (start_dialog)
              (unload_dialog dcl_id)
              result
            )
        )
    )
)
(LoadDialog_no_name)

---

------------------
Gruss Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo dirk,
auf jeden fall vor (start_dialog).

nochwas zu (getlayer):
verwende statt 'append' lieber 'cons' (gerade bei grossen listen) und nimm die sortierung aus der 'while'-schleife (du willst ja sicher nicht, dass nach jedem layer neu soriert wird, sondern erst am ende).

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP