---

Hallo,

ich suche eine Möglichkeit " ush-action" Button hervorzuheben, z.B. Farblich.

Gibt es da was?

Gruß Michael

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

---

ColorButton.JPG

Innerhalb einer Dialog-Shell geht das mit einem COLOR-BUTTON:

Den Parameter :title gibt es leider nicht, aber farbig geht.

Innerhalb eines sd-defdialog fällt mir auch nix ein...

------------------
...viele Grüße
Stephan

[Diese Nachricht wurde von StephanWörz am 12. Apr. 2017 editiert.]

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

---

Hallo Stefan,

dank deiner hilfe habe ich jetzt das Beispiel zum Dialog-Shell im IKit gefunden.
Sieht gut aus, ist mir aber viel zu kompliziert. Ich bleibe da lieber bei
dem sd-defdialog!

Besten Dank für die Antwort!!! 
Michael

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

---

color-button-test.lsp

Hi,

man könnte das ganze auch mischen. Siehe Dokumentation zu sd-defdialog (Embedded UICT Controls).
Ein simples Beispiel ist angehangen. Ist meiner Meinung nach aber auch nicht unbedingt so schön.

Gruß,

  Alex

------------------
Computer sind unbrauchbar. Sie können nur Fragen beantworten.
Pablo Picasso, Maler

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

---

Button.JPG

Hallo,

danke für deine Arbeit, werde das mal ausprobieren, simpel sieht das für mich
allerdings nicht aus. 

Anbei mal ein Bild, wofür ichŽs nutzen wollte. Ich habe mir vier Lisp gebastelt,
die die Eigenschaften der Teile/Flächen ändern. Damit ich von einer LispŽs schnell
in die andere wechseln kann habe ich in jeder 4 Button eingebaut (Jeweils mit
einen Dummy).

Jetzt war halt der Gedanke den Button der geöffneten Lisp farblich zu hinterlegen.
Habe dies jetzt mit den Zeichen > < gelöst.

Grundsätzlich ginge es ja auch mit
mutual-exclusion - sd-set-variable-status visible nil
Allerdings bekommen ich das mit der Optik in den Menüs und mit der prompt-variable
nich wirklich schön hin!

Wäre optisch halt schön gewesen!

Gruß Michael

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

---

my-button-test.lsp

Hmmmm... wie wäre es denn mit folgendem Lösungsansatz: zwar nicht in Farbe aber vielleicht passt er ja? 

Gruß,

  Alex

------------------
Computer sind unbrauchbar. Sie können nur Fragen beantworten.
Pablo Picasso, Maler

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

---

Hallo Alex,

wenn man mehrere :mutual-exclusion in einem 'sd-defdialog machen kann,
hört sich das hierfür nach einer guten Lösung an.

Da gibt es aber auch Fälle wie z.B. Übernehmen-Button bei den es schön
wäre, wenn man diese etwas hervorheben könnte!

Leider bin ich erst am Dienstag wieder im Büro. Gibt es eigentlich nee Möglichkeit
dies zu Hause zu testen?

Danke für die Lösung, bin schon gespannt
und Frohe Ostern!

Michael

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

---

Zitat:

---

Original erstellt von MiBr:
Gibt es eigentlich nee Möglichkeit dies zu Hause zu testen?

---

Na klar, hier:
http://www.ptc.com/cad/elements-direct/modeling/express

------------------

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

---

Hallo,

@Alex Danke, sieht super aus! 

@Matthias Danke, da hätte ich auch selber drauf kommen können! 

Gruß
Michael

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

---

my-button-test-v2.lsp

Nabend,

freut mich wenn es passt. Übrigens sind mehrere mutual-exculsions kein Problem. Habe noch einmal ein Beispiel angehängt.

Gruß und frohe Osterfeiertage,

    Alex

------------------
Computer sind unbrauchbar. Sie können nur Fragen beantworten.
Pablo Picasso, Maler

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

---

Hallo Michael
Dieses Lisp könnte ich auch gebrauchen.
Könntest Du es hier mit reinstellen oder mir zukommen lassen.
Mit freundlichen Grüßen aus München
Joachim

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

---

Hallo Joachim,

die Tools funzen noch nicht so wie ichŽs mir vorstelle. Denke aber das ichŽs Dir anschließend
hier zur Verfügung stellen kann.

Mal nee Frage an die Moderatoren, wenn ich Lisp aus dem Forum und von Osd.Cad.de nehme, ändere
usw. und diese wieder hier bereit stelle, ist das i.O..
Ich möchte niemanden auf den Schlips treten!

Gruß Michael

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

---

Hallo Michael
Dann sag ich mal im Voraus Danke.
Joachim

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

---

Zitat:

---

Original erstellt von MiBr:
Mal nee Frage an die Moderatoren, wenn ich Lisp aus dem Forum und von Osd.Cad.de nehme, ändere
usw. und diese wieder hier bereit stelle, ist das i.O..
Ich möchte niemanden auf den Schlips treten!

---

Ganz im Gegenteil, dafür ist das Forum doch da !

Kommerziell programmierte Lisps landen weder hier noch auf der Hilfeseite, zumindest nicht öffentlich.

------------------

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

---

Eigenschaften-setzen.zip

Hallo,

anbei das Tool. Dieses besteht aus 6 LispŽs die sich gegenseitig aufrufen.
Diese Tool habe ich aus mehreren ToolŽs, aus dem Forum, an meine Bedürfnisse
angepasst! Also nochmal Danke ans Forum!!!

Leider habe ich noch ein Problem mit den LispŽs Flächenfarbe/Teilefarbe.

Vielleicht kann mir da ja noch jemand helfen!
Hier funzt die folgenden Variable leider nicht, wenn ich die Flächen auswähle
und anschließend die Lisp starte. Dabei wird die Fläche nach der initial-value
eingefärbt, obwohl in der Auswahl die Farbe aus der persistent-data-storage
angezeigt wird. Auch das entfernen der initial-value hilft da nicht.

Code:

---

(farbe_Se  :value-type :RGB-color
:title "Farbe"
:initial-value 10066329
: persistent-data-storage t
:initial-enable t

---

Ansonsten habe ich keine größeren Böcke mehr gefunden. Falls ihr Verbesserugen, Fehler
oder unsinnige Sachen im Code findet, dann wäre ich sehr Dankbar für ein Rückmeldung.

Würde gern noch mehr über Lisp lernen!!! 

Gruß Michael

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

---

Hallo Michael!

Ich bin in der Vergangenheit schon öfters auf das Problem gestoßen, dass sich Dialoge im Punkte

Code:

---

z.B. after-initialization oder persistent-data

---

anders Verhalten je nachdem ob manuell geöffnet werden oder aus einem anderen Programm aufgerufen werden.

Ich vermute das bei deinem Problem die Ursache dieselbe ist.

Ich habe mir damit geholfen die persistent-data nicht im Kontext der Variable zu setzen sondern die Standard-Funktion (siehe I-Kit sd-set-persistent-data)
Das ist zwar etwas umständlicher, funktionierte aber in meinem Fall dann ohne Probleme.

------------------
Viele Grüße
Felix

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

---

Hallo Felix,

danke für den Hinweis. Auch nach Tagen des probierens bin ich leider nicht
in der Lage die Befehle einzusetzen. 

Hättest Du evtl. ein Beispiel dafür, oder könntest Du diese zu meiner Lisp hinzufügen?

Ich sag schon mal Dank 
Michael

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

---

Hallo Michael!

Dir ist aber schon bewusst, dass nach der Auswahl der Fläche die Farbe derselbigen ja ermittelt wird und die Variable farbe_SE überschreibt.

Code:

---

         :after-input (progn     
(let ()
(setf farbe_Se (sd-inq-face-color fvholen))
(if farbe_Se
(progn
(setf farbe_Se (sd-rgb-to-color farbe_Se))
);;progn
(progn
(setf farbe_Se (sd-inq-part-color (sd-inq-parent-obj fvholen)))
(setf farbe_Se (sd-rgb-to-color farbe_Se))
);;progn
);;if
(setf fvholen nil)
);;let
)

---

===================================================================================

Hab gerade gesehen, dass es 2 Variablen für Flächen gibt, also somit schon richtig so wie es gemacht wurde.

Folgende Änderungen sollten dein Problem lösen:

Code:

---

(farbe_Se  :value-type :RGB-color
:title "Farbe"
                :initial-value nil
; ersistent-data-storage t
:initial-enable t
:after-input (sd-set-persistent-data "ALL" "Flaechenfarbe" (list farbe_Se) :subkey :farbe_Se :store-flag t)
    )

---

Code:

---

(Flaechen
  :value-type :face
  ;:toggle-type :invisible
  :title "FlÌche"
            rompt-text "FlÌche auswaehlen"
  :initial-value nil
  :multiple-items t
  :modifies nil
  :before-input (when (sd-get-persistent-data "ALL" "Flaechenfarbe" :subkey :farbe_Se)
(setf farbe_Se (first (sd-get-persistent-data "ALL" "Flaechenfarbe" :subkey :farbe_Se))))
  :after-input

---

------------------
Viele Grüße
Felix

[Diese Nachricht wurde von lix b am 27. Apr. 2017 editiert.]

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

---

Ok, das sieht gut aus!
Werde es bei nächster Gelegenheit ausprobieren, habe leider gerade etwas Stress!

So, hab es ausprobiert, funktioniert super!

Danke
Michael

[Diese Nachricht wurde von MiBr am 27. Apr. 2017 editiert.]

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