---

Symbole_Annotation_V19_Forum.lsp

Hallo CAD Gemeinde,

besteht die Möglichkeit bei Dialogaufruf eine Variable mit zu
übergeben? Hintergrund ich möchte über ein Ribbon-Menü im Annotation
verschiede Mi-Datei laden.

Hier der Dialog (Energiefeld.mi wäre immer variabel)

(sd-defdialog 'sas_load_Energiefeld
  :dialog-title "Energiefeld laden"
  :dialog-type :terminate

  :variables
  '(
    (zpnt  :value-type :docupntcnp
            :title "Zielpunkt"
            :PROMPT-TEXT "Zielpunkt fuer Skizze angeben"
    )
  )
  :local-functions
  '(
      (sas_load_Energiefeld ()
       
  (let (p0)
      (setf p0 (make-gpnt2d :x (oli::gpntdocu_x zpnt)
                            :y (oli::gpntdocu_y zpnt)))
  (oli::sd-am-set-default-owner :sketch :current-sheet)
      (sd-call-cmds
      (am_load_sketch :filename (format nil "~a/Energiefeld.mi" Anno_symbol_Pad):cursor_adjustment  :ON :lower_left p0))
  );; Ende let
    )
)
  k-action'(sas_load_Energiefeld)
  ) ;; Ende Dialog

Ribbon Button

  (oli::sd-fluentui-add-ribbon-button
  arent '("Symbole" "Symbole-Gruppe1")
  :name "Energiefeld"
  :annotationRibbon t
  :splitButton t 
  :largeImage t 
  :image  (format nil "~a/Energiefeld.bmp" Icon_symbol_Pad)
  :description "Energiefeld Deutsch/Englisch laden"
  :label "Energiefeld"
  ushaction "sas_load_Energiefeld Varriable"
  )
Im Anhang das ganze Makro

Gruß Steffen

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

---

Wenn Dein Ribbon menu X Eintrage fuer X Dateien haben wird, bist Du gar nicht so weit entfernt...

In der Ribbon Definition veraenderst Du die "Pushaction"

Code:

---

:Pushaction "sas_load_Energiefeld :fileToLoad \"NiedrigEnergieFeld\""

---

Also: der Name einer (neuen) Dialog Variable gefolgt vom Wert dazu.  In jedem Ribbon Eintrag steht dann nur ein jeweils anderer Wert drin.

Dem Dialog spendierst du noch eine variable

Code:

---

  (fileToLoad
    :Prompt-text (sd-multi-lang-string "Filename" :german "Dateiname")
    :value-type        :filename
    :Direction        :input
    :add-suffix t
    :initialPattern "*.mi"
    )

---

und passt den Aufruf am_load_sketch in der local-function entsprechend an (ich weiss nicht wo 'Anno_symbol_Pad' herkommt  )

Was in die Pushaction hinein kommt kannst Du auch auf der Kommandozeile austesten. Musst dann nur mit den """ aufpassen beim uebernehmen.

statt :value-type :filename kannst Du evlt. auch einfach "string" nehmen. Das haengt davon ab wo/wie du diese Anno_symbol_Pad variable handhabst. Das ist in dem code schnipsel den du gepostet hast nicht ersichtlich.

- - - - - - - - - - - - - - - - - - - - - - - - - -
PS: fuer Sourcecode gibt es den UBB-Code : [ code ] ... [/ code ]

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Code:

---

(setf Anno_symbol_Pad "P:/Tools/V19/3D/Annotation/Symbole")

---

habe ich noch in der LSP datei gefunden, die Du angehaengt hattest. Ich hatte nur in den Text deiner Anfrage gesehen.

Alternativ koennest Du auch die Pushaction anpassen:

Code:

---

:Pushaction "sas_load_Energiefeld :fileToLoad (format nil \"~a/NiedrigEnergieFeld.mi\" custom::Anno_symbol_Pad)"

---

Ich wuerde es aber eher IM Dialog lassen, dann hast du nur eine Stelle zu pflegen.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Symbole_Annotation_V19_Test.lsp

Hallo Wolfgang,

vielen Dank für Deine Hilfe hat Top funktioniert.
Im Anhang habe ich die geändert LSP angehängt.

Vielleicht kannst jemand gebrauchen.

Gruß Steffen

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

---

Zitat:

---

Original erstellt von sas-m2n:
vielen Dank für Deine Hilfe hat Top funktioniert.

---

Prima. Freut mich.

__________________________________________________

Ergaenzend:

ALTERNATIV...

...haette man den Vorlagen Browser im Annotation nehmen koennen und die Skizzen dort registrieren.

Der haette dir dann auch die Pushaction gezeigt.  dort haettest Du nur ein :Owner :current-sheet spendieren muessen. Zudem zeigt er beim Platzieren auch eine Box in der Groesse der zu platzierenden Skizze als Feedback an. Das ist dann doch von Vorteil wenn man viele unterscheidlich grosse Vorlagen im Zugriff haben moechte.

Aber ich wollte dich von deinem eingeschlagenen Weg nicht direkt abbringen.

Wenn ich mich recht entsinne hat der Vorlagen Browser im Kontext menu auch ein "export 2 html" .. da sieht man dann die push action. Ansonsten muss man die Stelle kennen wo die LISP dateien im customize verzeichnis rumschwirren.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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