hallo,
ich habe angefangen ein programm zu schraiben das mir folgendes tut: wenn ich es starte macht es ein dalogfeld auf (dcl) in dem ich anklicken kann was für einen rahmen ich einfügen will, also a3-a2-a1 oder a0,
die rahmen sind in einem ordner abgespeichert, das lispprogramm soll mir dann die rahmen einfügen,
ich habe mir das dcl file aus
www.afraliso.com kopiert und angepasst,
schaut folgendermassen aus:
lisp48w : dialog {
label = "Zeichnungsrahmen" ;
: boxed_column {
label = "Rahmen wählen : ";
: toggle {
key = "tog1";
label = "Rahmen A3";
value = "1";
}
: toggle {
key = "tog2";
label = "Rahmen A2";
value = "0";
}
: toggle {
key = "tog3";
label = "Rahmen A1";
value = "0";
}
: toggle {
key = "tog4";
label = "Rahmen A0";
value = "0";
}
}
ok_cancel ;
das ding kann ich mittels einem lisp programm laden (unten),
meine frage hierzu, ich kann mehrere rahmen ankreuzen, wie mache ich dass dass ich nur ein feld ankreuzen kann?
das lisp programm schaut so aus, ebenfalls aus www.afralisp.com
(defun C:rahmen()
;define function
(setq dcl_id (load_dialog "rahmen.dcl"))
;load dialog
(if (not (new_dialog "lisp48w" dcl_id)
;teqt for dialog
);not
(exit)
;exit if no dialog
);if
(action_tile
"accept"
;if O.K. pressed
"(done_dialog) (setq userclick T)"
;close dialog, set flag
);action tile
(action_tile
"cancel"
;if cancel button pressed
"(done_dialog) (setq userclick nil)"
;close dialog, lower flag
);action_tile
(start_dialog)
;start dialog
(unload_dialog dcl_id)
;unload
(if userclick
;if OK selected
(command "einfüge" "k:/zeichnungsvorlagen/rahmen-a2.dwg" "0,0,0" "1" "1" "0")
;(alert "passt")
;inform the user
(alert "Dann halt nicht !")
;inform the user
);if
(princ)
);defun
(princ)
hierzu hab ich auch noch ne frage: wie mache ich dass dass ich die verschiedenen rahmen hereinhole, bei a4 angewählt den a4 rahmen bei a3 angewählt den a3 rahmen, irgendwie mit einer if anweisung,
aber ich muss ja irgendwie auf die eingabe von dem dcl dialogfeld zurückgreifen??
gruss ee_gabriel
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP