Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  dcl is_enabled

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  dcl is_enabled (877 mal gelesen)
gmk
Mitglied
Dipl.-Ing.(FH) Vermessung


Sehen Sie sich das Profil von gmk an!   Senden Sie eine Private Message an gmk  Schreiben Sie einen Gästebucheintrag für gmk

Beiträge: 667
Registriert: 23.10.2002

Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM

erstellt am: 01. Mrz. 2005 12:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hi!

ich möchte in einer dcl-datei in abhängigkeit eines toggle ("Plotten ja/nein") die plottereinstellungen bei "nein" grau und damit nicht wählbar darstellen (is_enabled). brauche ich dafür verschiedene dialoge oder kann ich es mit einer begingung (if etc.) lösen?

ciao georg

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

Peter2
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Peter2 an!   Senden Sie eine Private Message an Peter2  Schreiben Sie einen Gästebucheintrag für Peter2

Beiträge: 3701
Registriert: 15.10.2003

Win 10/64 Pro
AutoCAD MAP 3D 2018
BricsCAD 22

erstellt am: 01. Mrz. 2005 12:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für gmk 10 Unities + Antwort hilfreich

Ich steuere die Aktivierbarkeit von Elementen im DCL nur dann über "is_enabled", wenn ich das Ding gezielt (noch) nicht verwende, ich aber im Bild sehen möchte, wie es aussieht.

Das laufende Aktivieren und Deaktivieren mache ich nicht im DCL, sondern im LSP mit der Zeile

Code:
(mode_tile "mein_element" 0)

-> Details siehe Online-Hilfe

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

gmk
Mitglied
Dipl.-Ing.(FH) Vermessung


Sehen Sie sich das Profil von gmk an!   Senden Sie eine Private Message an gmk  Schreiben Sie einen Gästebucheintrag für gmk

Beiträge: 667
Registriert: 23.10.2002

Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM

erstellt am: 02. Mrz. 2005 09:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hallo peter,

danke für den tipp.
wo muss ich die zeile unterbringen?
(mit der if-konstruktion funkts offensichtlich nicht)
bei plotten mit haken sollen plotter und ctb wählbar sein , ohne haken alles grau.

menu1
: dialog {          
          label = "Ploteinstellungen" ;
      : toggle {
        key="tog1";
        label="Plotten";
        value="1";
        }
      : boxed_radio_column {
        label="Plotter";
      : radio_button {
        key="rb1";
        label="Plotter 1" ;
        value="1";
        }
      : radio_button {
        key="rb2";
        label="Plotter 2" ;
        }
      : radio_button {
        key="rb3";
        label="Plotter 3" ;
        }
        } //column

      : boxed_radio_column {
        label="CTB";
      : radio_button {
        key="rb4";
        label="CTB-1" ;
     
        }
      : radio_button {
        key="rb5";
        label="CTB-2" ;
        value="1";
        }
        } //column

        ok_cancel ;

        }

--------------
(DEFUN c:menu (
/             
plotter
ctb-datei
dcl_id
userclick             
)

(SETQ plotter "Plotter1")
(SETQ ctb-datei "CTB-1")
(SETQ plotten 1) 
(SETQ dcl_id (LOAD_DIALOG "menu.dcl"))
(IF (NOT (NEW_DIALOG "menu1" dcl_id)) (EXIT))
(ACTION_TILE "tog1" "(SETQ plotten $value)")
(IF (= plotten 0)
              (PROGN
                  (mode_tile "rb1" 0)
                  (mode_tile "rb2" 0)
                  (mode_tile "rb3" 0)
                  (mode_tile "rb4" 0)
                  (mode_tile "rb5" 0)
              ) 
)
(ACTION_TILE "rb1" "(SETQ plotter \"Plotter1\")")
(ACTION_TILE "rb2" "(SETQ plotter \"Plotter2\")")
(ACTION_TILE "rb3" "(SETQ plotter \"Plotter3\")")
(ACTION_TILE "rb4" "(SETQ ctb-datei \"CTB-1\")")
(ACTION_TILE "rb5" "(SETQ ctb-datei \"CTB-2\")")
(ACTION_TILE "accept" "(DONE_DIALOG) (SETQ userclick T)")
(ACTION_TILE "cancel" "(DONE_DIALOG) (SETQ userclick nil)")
(START_DIALOG)
(UNLOAD_DIALOG dcl_id)
(IF userclick (LIST plotter ctb-datei)
              NIL
)
)

ciao georg

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

Peter2
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Peter2 an!   Senden Sie eine Private Message an Peter2  Schreiben Sie einen Gästebucheintrag für Peter2

Beiträge: 3701
Registriert: 15.10.2003

Win 10/64 Pro
AutoCAD MAP 3D 2018
BricsCAD 22

erstellt am: 02. Mrz. 2005 09:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für gmk 10 Unities + Antwort hilfreich

Du hast deinen Fensteraufruf "linear" in die Lisp eingebaut, und genauso linear wird es abgearbeitet. Die Änderung von "plotten" wird in die Darstellung eines schon stillstehenden Fensters nicht übernommen (der Wert plotten wird schon gesetzt).

Ich baue meine Fenster immer so, daß ich das Fenster in einer while-Schleife abarbeite und dann wiederholt aufrufe - und damit die Änderungen auch sichbar machen kann.

also
- setze X auf 2
- lade das Fenster mit (while X >= 2..)
- verwende alle action_tiles etc.:
  (action_tile "Knopf1" (machwas_1) (done_dialog 2)) ; bleibt in der Schleife
  (action_tile "Knopf2" (machwas_2) (done_dialog 3))
  (action_tile "Ende" (done_dialog 1)) ; geht aus Schleife

- Abschluss mit (setq X (start_dialog)) - wertet deine Knöpfe aus
- baue das Fenster entweder neu auf und beende alles

Ist vielleicht etwas derb erklärt und vielleicht gibt es auch besseres, aber bei mir läuft es.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 02. Mrz. 2005 10:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für gmk 10 Unities + Antwort hilfreich

hallo georg,
ich würde es folgendermaßen machen: in der ACTION_TILE-Anweisung wird die Fünktion "rb_mode_tile" aufgerufen, entsprechend der übergebenen Variable $value  werden dann die mode_tile's für die Radio-Buttons geändert.

(DEFUN c:menu (
/           
plotter
ctb-datei
dcl_id
userclick           
)

(SETQ plotter "Plotter1")
(SETQ ctb-datei "CTB-1")
(SETQ plotten 1)
(SETQ dcl_id (LOAD_DIALOG "menu.dcl"))
(IF (NOT (NEW_DIALOG "menu1" dcl_id)) (EXIT))
;;;(ACTION_TILE "tog1" "(SETQ plotten $value)")
;;;(IF (= plotten 0)
;;;              (PROGN
;;;                  (mode_tile "rb1" 0)
;;;                  (mode_tile "rb2" 0)
;;;                  (mode_tile "rb3" 0)
;;;                  (mode_tile "rb4" 0)
;;;                  (mode_tile "rb5" 0)
;;;              )
;;
(ACTION_TILE "tog1""(rb_mode_tile $value)") 
(ACTION_TILE "rb1" "(SETQ plotter \"Plotter1\")")
(ACTION_TILE "rb2" "(SETQ plotter \"Plotter2\")")
(ACTION_TILE "rb3" "(SETQ plotter \"Plotter3\")")
(ACTION_TILE "rb4" "(SETQ ctb-datei \"CTB-1\")")
(ACTION_TILE "rb5" "(SETQ ctb-datei \"CTB-2\")")
(ACTION_TILE "accept" "(DONE_DIALOG) (SETQ userclick T)")
(ACTION_TILE "cancel" "(DONE_DIALOG) (SETQ userclick nil)")
(START_DIALOG)
(UNLOAD_DIALOG dcl_id)
(IF userclick (LIST plotter ctb-datei)
              NIL
)
)
(defun rb_mode_tile (value / )
  (mode_tile "rb1" (- 1(atoi value)))
  (mode_tile "rb2" (- 1(atoi value)))
  (mode_tile "rb3" (- 1(atoi value)))
  (mode_tile "rb4" (- 1(atoi value)))
  (mode_tile "rb5" (- 1(atoi value)))
  )

Vielleicht hilft es ja.

------------------
viele Grüße

Jörn

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

gmk
Mitglied
Dipl.-Ing.(FH) Vermessung


Sehen Sie sich das Profil von gmk an!   Senden Sie eine Private Message an gmk  Schreiben Sie einen Gästebucheintrag für gmk

Beiträge: 667
Registriert: 23.10.2002

Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM

erstellt am: 02. Mrz. 2005 13:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hi jörn!

funkt 1a.
gefühlsmäßig hätte ich wie peter auch an eine schleife gedacht.
dass es anders auch geht zeigt mir dein code, jetzt geht's nur noch ans verstehen ... werd' mich mal durchdebuggen.

danke euch beiden noch mal für die hilfe!

ciao georg

[Diese Nachricht wurde von gmk am 02. Mrz. 2005 editiert.]

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz