---

Guten Morgen Forumler,

ich möchte folgendes bewerkstelligen:

in Zusammenstellungen brauchen wir (wie wahrscheinlich viele von euch) Behälter, um angrenzende Teile darzustellen.
Anschliessend brauchen wir immer Walter Geppert's Makro zum Teile umfärben in Annotation.
Könnte man es einrichten, dass bei der Aktualisierung der Ansichten dieses Makro auch gleich mitläuft und die Behälter in einer vordefinierten Farbe darstellt?

Danke für jeden Tipp

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Hallo Rolf

Auch wir wären begeistert, wenn sich CoCreate dieser Problematik endlich annehmen würde  !

Gruss Stefan

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

---

Hallo Stefan 

Na, das reicht mir in dem Fall schon als Antwort 

lg
Rolf

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Zitat:

---

Original erstellt von Allenbach Rolf:
...Könnte man es einrichten, dass bei der Aktualisierung der Ansichten dieses Makro auch gleich mitläuft und die Behälter in einer vordefinierten Farbe darstellt?

---

Ja 

------------------
meine LISP-Makros sind auf osd.cad.de
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Zitat:

---

Original erstellt von Walter Geppert:

Ja  

---

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer

"Es hängt alles irgendwo zusammen. Sie können sich am Hintern ein Haar ausreißen, dann tränt das Auge." Dettmar Cramer

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

---

Zitat:

---

Original erstellt von Walter Geppert:

Ja  

---

Erlaube mir die scheue Frage: wie mach ich das? 

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Zitat:

---

Original erstellt von Allenbach Rolf:
   

Erlaube mir die scheue Frage: wie mach ich das?  

---

Hallo Rolf,
nur so...

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer

"Es hängt alles irgendwo zusammen. Sie können sich am Hintern ein Haar ausreißen, dann tränt das Auge." Dettmar Cramer

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

---

Scherz beiseite, mit dem im IKit verfügbaren Eventhandling sollte es möglich sein, jedesmal nach Aktualisierung einer Ansicht auch noch ein passendes Makro anzustossen. Ich werds mir mal ansehen, versprechen tu ich aber noch nix! 

------------------
meine LISP-Makros sind auf osd.cad.de
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Wieder mal verneigen wir uns vor dir, Walter!

   

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Und so kann man sich dann auch ein passendes Event (von vielen) aussuchen:

(do-external-symbols (s (find-package 'EVENT)) (display s))

Wahrscheinlich eines dieser:

DOCU-POST-UPDATE-ALL-EVENT
DOCU-POST-UPDATE-VIEW-EVENT
DOCU-AFTER-UPDATE-EVENT

HTH

Gruss
RainerH.

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

---

@RainerH: Das klingt super, auch äusserst professionell!

Leider hab ich keine Ahnung, was du damit meinst und was ich damit soll   

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

@Rolf

Soll heissen: Nach dem Event kann man eine eigene Funktion hinterherjagen, die dann die gewuenschten Behaelter dementsprechend umfaerbt.

Da haben die von CC ja richtig gut fuer uns Lisp-Bastler vorgesorgt 

... und der Walter wird das schon machen, da bin ueberzeugt davon !!

Gruss
und ein schoenes WE ...

RainerH.

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

---

Wow, ihr zwei seid aber gut bewandert...
Da staunt der Laie 
Warte mal ab, was Walter zusammenklauben kann.
Man reiche mir eine Lisp-Datei, zum Einfügen derselbigen reichen meine Kenntnisse!   

Dir auch ein schönes Wochenende, danke 

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Wenn dies funktioniert (was ich sicher nicht bezweifle)  , werde ich bei CoCreate eine Suggestion eingeben, dann kommt die Anforderung hoffentlich einmal in den Standard!

Gruss Stefan

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

---

Zitat:

---

Original erstellt von SReinbold:
Wenn dies funktioniert (was ich sicher nicht bezweifle)     , werde ich bei CoCreate eine Suggestion eingeben, dann kommt die Anforderung hoffentlich einmal in den Standard!

---

Glaube ich ehr nicht das sowas so schnell in den Standart übernommen wird.
Das Makro von Walter zum Teile umfärben gibts hier schon ein paar Jahre (glaube ich).
Wer die Funktion braucht hat es sicher auch schon lange integriert. Deshalb fragt keiner mehr bei CC nach. Damit passiert auf der Schiene auch nichts.
Und überhaupt ein gewisser Unterschied zwischen CAD.de-Nutzern und den ahnungslosen Rest der Welt muss ja auch sein...  

------------------
Grüße
Hartmuth

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

---

@Behaelterumfaerber

Hinweise dazu:

1.) Muss das LISP: "am_part_color.lsp" von Walter Geppert zuvor geladen sein
2.) Wir nach dem Aktualisieren diese Funktion automatisch aufgerufen
3.) Kommt am Ende manchmal eine Meldung: "Widerrufen nicht möglich. Zustand nicht vorhanden."
    Habe aber keine Ahnung warum ...
4.) Hoffe ich, dass es einigermassen funktioniert ...

Probiert es einfach mal aus !

Code:

---

(in-package  :custom)
(use-package    li)

;;----------------------------------------------------------------------------------------------*
;; Vorgaben setzen:                     ;; Moeglicher Vorgabewerte:
;;----------------------------------------------------------------------------------------------*
(setf sk-farbe "RED")                   ;; "BLACK" "WHITE" "RED" "GREEN" "BLUE" "YELLOW"
                                        ;; "CYAN" "MAGENTA"
(setf sk-linientyp "CENTER_DASH_DASH")  ;; "SOLID" "DOTTED" "DASHED" "LONG_DASHED" "DOT_CENTER"
                                        ;; "DASH_CENTER" "CENTER_DASH_DASH" "PHANTOM"
;;----------------------------------------------------------------------------------------------*

;;----------------------------------------------------------------------------------------------*
;; EVENT zum Umfaerben der Behaelterobjekte nach dem Aktualisieren der Zeichnung
;;----------------------------------------------------------------------------------------------*
;; Deaktivieren
(oli::sd-put-buffer "(oli::sd-unsubscribe-event 'EVENT:   OCU-POST-UPDATE-ALL-EVENT 'am-behaelter-umfaerben)")
;; Aktivieren
(oli::sd-put-buffer "(oli::sd-subscribe-event   'EVENT:   OCU-POST-UPDATE-ALL-EVENT 'am-behaelter-umfaerben)")
;;----------------------------------------------------------------------------------------------*

#|
;;----------------------------------------------------------------------------------------------*
;; Hinweis zur Deaktivierung:
;;----------------------------------------------------------------------------------------------*
Mit manueller Eingabe von:
(oli::sd-put-buffer "(oli::sd-unsubscribe-event 'EVENT:   OCU-POST-UPDATE-ALL-EVENT 'am-behaelter-umfaerben)")
in die Befehlszeile kann man die Umfaerbung wieder deaktivieren !!
;;----------------------------------------------------------------------------------------------*
|#

(sd-defdialog 'am-behaelter-umfaerben
  :toolbox-button nil
  :dialog-control :sequential
  :local-functions
  '((objektliste-erstellen ()
      (let (object)
        (progn
          (setf behaelterobjekte nil)
          (setf behaelterobjekte
            (sd-call-cmds
              (get_selection
                :focus_type *sd-part-seltype*
                :check_function #'(lambda (object)
                                    (if (sd-inq-container-p (sd-inq-parent-obj object))
                                        k
                                      :filter
                                    )
                                  )
                :select :recursive :all_at_top
              )
              :failure (sd-display-error (format nil "~a => Beim Schreiben der Liste: behaelterobjekte" (sd-inq-error-obj :message)))
            )
          )
        )
      )
    )
    (ansichtsliste-erstellen ()
      (let ()
        (progn
          (setf ansichten nil)
          (setf ansichten
            (sd-call-cmds
              (get_selection
                :focus_type *sd-anno-view-seltype*
                :select :by_drawing_docu_rest
              )
              :failure (sd-display-error (format nil "~a => Beim Schreiben der Liste: ansichten" (sd-inq-error-obj :message)))
            )
          )
        )
      )
    )
    (teile-umfaerben ()
      (let ()
        (progn
          (dolist (ansicht ansichten)
            (progn
              (dolist (behaelterobjekt behaelterobjekte)
                (progn
                  (dc4-anno-teile-umfaerben-dialog
                    :teil_bgr behaelterobjekte
                    :ansicht ansicht
                    :farbe sk-farbe               
                    :linart sk-linientyp
                  )
                )
              )
              (sd-execute-annotator-command :cmd "REDRAW")
            )
          )
        )
      )
    )
  )
    k-action
  '(progn
     (objektliste-erstellen)
     (ansichtsliste-erstellen)
     (if (and behaelterobjekte
              ansichten
         )
       (progn
         (sd-call-cmds
           (teile-umfaerben)
           :failure (sd-display-error (format nil "~a ~%=> Bei Umfaerben der Behaelterteile !" (sd-inq-error-obj :message)))
         )
       )
       (progn
         (sd-execute-annotator-command :cmd "REDRAW")
       )
     )
  )
)

---

HTH

Gruss
RainerH.

[Diese Nachricht wurde von RainerH am 02. Okt. 2006 editiert.]

[Diese Nachricht wurde von RainerH am 02. Okt. 2006 editiert.]

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

---

@RainerH: 

Nun wieder die Laienfrage: wo muss ich das einbinden? am_part_color.lsp wird automatisch geladen, das klappt. Aber wie muss ich vorgehen, um das Makro automatisch beim Aktualisieren anzustossen?

Vielen Dank erstmal!

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

@Rolf

Erstens musst du diese bloeden Smilis wie folgt austauschen:
Der rote Kopf bedeutet : o (ohne die Leerstelle dazwischen)
Der Grinser bedeutet : D   (ebenfalls ohne die Leerstelle dazwischen)

Irgendwie funktioniert das "Smilis in diesem Beitrag deaktivieren" nicht mehr !     

Dann fuegst du den Code in einen Texteditor ein und speicherst diesen als *.lsp ab.
Dann ladest du diesen manuell oder in der "am_customize" ins Modeling mittels: (LOAD "<Laufwerk>/<Pfad>/<dateiname.lsp>")

Auf Claus seiner Homepage ist das beschrieben, glaube ich zumindest ...

Dann sollte es laufen ...

P.S. Irgendwie funktioniert die Mail-Benachrichtigung bei Antworten zum Thread auch nicht mehr ...        
Hat da noch wer Probleme ???

HTH

Gruss
RainerH.

[Diese Nachricht wurde von RainerH am 02. Okt. 2006 editiert.]

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

---

@RainerH: genau so bin ich vorgegangen. Hab deinen Beitrag editiert und dort den Text rauskopiert --> Smilies weg (Ausschalten geht nicht, haben Heiko und ich kürzlich getestet).
Eine .lsp daraus erstellt.

-->Beim Laden über die Befehlszeile kommt eine Fehlermeldung:

LISP-Fehler:
Cannot open the file C:/bla/bla/blablabla/am-behaelter-umfaerben.lsp

Beim ersten Versuch hat er irgendwas mit "Event nicht finden" oder so gemeckert. Ab dann nur noch die oben genannte Meldung.

Liegt das an meiner alten Kiste (11.65)?

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Liegt bestimmt nicht an alter Version !

Der genaue String muß lauten:
(load "C:/bla/bla/blablabla/am-behaelter-umfaerben.lsp")
Vielleicht hast du dich nur vertippt, was nimmst du auch so einen langen Namen. Versuch mal was ohne Bindestriche. Manchmal müssen auch die / statt so / so \ sein.

Viel Glück  (morgen ist kaum einer hier, wir feiern doch den 17.Juni) !

------------------
               OSDM-Hilfeseite

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

---

  

Zitat:

---

Original erstellt von Allenbach Rolf:
...Liegt das an meiner alten Kiste (11.65)?

---

@Rolf

Das kann vielleicht sein !

Schreib mal:
(do-external-symbols (s (find-package 'EVENT)) (display s))
in die Befehlszeile und schau dann nach, ob es das
Event: DOCU-POST-UPDATE-ALL-EVENT gibt.

Wenn nicht, dann wird es nicht automatisch in V11.65 funktionieren.

Du kannst aber das LISP auch manuell auf ein Icon mit:
am-behaelter-umfaerben belegen.

Du musst dann aber "oli::sd-unsubscribe-event ..." und "oli::sd-subscribe-event ..." weglassen !

HTH

Gruss
RainerH.

[Diese Nachricht wurde von RainerH am 03. Okt. 2006 editiert.]

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

---

LISP-Fehler.jpg

@highway45: Danke für den Tipp, aber der Pfad ist genau richtig. Hab auch mit \ und / probiert, klappt nicht.

@RainerH: Jetzt hab ich diese Fehlermeldung beim Versuch, das .lsp zu laden (geändert hab ich nichts darin):

Die 4 möglichen Ursachen kann ich eigentlich alle ausschliessen...
Hab alle Makros am selben Ort liegen. Wenn ich jetzt mit PageUp den letzten Befehl in die Eingabezeile hole und bloss den Namen des Makros ändere auf ein schon länger bestehendes, dann funktionierts.

Ich versuche heute mal, das Makro auf einen Toolbox-Knopf zu legen.

Danke.

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

@Rolf

... komische Fehlermeldung !!

Du kannst das LISP auch so laden, dass du die Datei per Drag&Drop vom Explorer direkt in das Modeling-Fenster ziehst.

Um das LISP aus der Toolbox heraus zu starten geht, brauchst du nur :toolbox-button t anstelle von nil zu aendern.

HTH

Gruss
RainerH.

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

---

Zitat:

---

Original erstellt von Allenbach Rolf:
@RainerH: Jetzt hab ich diese Fehlermeldung beim Versuch, das .lsp zu laden (geändert hab ich nichts darin):

Danke.
[/B]

---

Auch wenn ich nicht Rainer heisse...

Rolf, Du hast (in diesem Fall) mit Sicherheit keinen guten Editor genommen um den LISP code per Copy und Paste in eine Datei zu verpflanzen. Das sieht nach Write, Word oder schlimmeren Programmen aus, die da eine XX.lsp Datei erzeugt haben. Verwende einen echten Ascii Editor!

TIP: http://www.clausbrod.de/cgi-bin/view.pl/Osdm/OsdmFaqLisp#Wie_schreibt_man_am_besten_Lisp

--------------
habs' gerade selber überprueft: du hast das lsp file als RTF document abgespeichert, dann kommt das raus, was in der Fehlermeldung sichtbar ist.

Wolfgang

------------------
SM 1.x/1.5/1.8(nightlies)

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

---

Zitat:

---

Original erstellt von der_Wolfgang:
Auch wenn ich nicht Rainer heisse...

---

  darfst natürlich auch mitmachen 

Du hast recht, Wolfgang! Ich habs mit WordPad erstellt. Wusste gar nicht, dass das einen Einfluss haben kann 
Hab bis jetzt fast alles mit dem WordPad gemacht und noch nie Probleme gehabt.

Ich werd das mal testen, vielen Dank!

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Zitat:

---

Original erstellt von Allenbach Rolf:

Du hast recht, Wolfgang! Ich habs mit WordPad erstellt. Wusste gar nicht, dass das einen Einfluss haben kann
Hab bis jetzt fast alles mit dem WordPad gemacht und noch nie Probleme gehabt.

---

Hab ein aehnliches Problem mal mit der Parameterliste gehabt, die
ich mit dem Parametrik-Modul vewenden wollte.
Mit WordPad sollte man unbedingt als Textdokument speichern.
Dann bleibt man verschont von allerlei zusaetzlichen Zeichen.

Gruss

WoHo

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

---

LISP-Fehler.jpg

So, jetzt hab ich das Ganze mit ConText nochmals gemacht. Dort als .txt gespeichert, und dann umbenannt in .lsp.

Jetzt kommt     

Stehe ich jetzt völlig aufm Schlauch? Wurd ja gerne aufhören euch zu nerven, aber das verflixte Ding... 

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

@Rolf

Hast du denn auch die Klammern dabei ??

P.S. Ich verwende uebrigens den UltraEdit zum Programmieren 

HTH

Gruss
RainerH.

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

---

Lisp-Fehler_3.jpg

...    ...

ach, ich lass den Mist 
Machen eh ein Versions-Update in absehbarer Zeit, da frag ich dann den Hirsch, der hier vorbeikommt...

Falls du jetzt an dieser Fehlermeldung gleich erkennen kannst wo es klemmt, mach ich noch nen letzten Versuch. Dann bin ich reif für die Insel...   

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

@Rolf

Nur nicht verzweifeln !!

Hast du das schon probiert:
Schreib mal:
(do-external-symbols (s (find-package 'EVENT)) (display s))
in die Befehlszeile und schau dann nach, ob es das
Event: DOCU-POST-UPDATE-ALL-EVENT gibt.

Oder kommt diese Meldung: "NIL is not of type PACKAGE."

Habe ich zwar schon vorher mal gefragt, aber was solls ...

P.S. Deinen Antwort darf dieser H..... wohl nicht lesen 

Gruss
RainerH.

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

---

DOCU-POST-UPDATE-ALL-EVENT ist definitiv vorhanden, habs nochmals geprüft.

P.S. Hirsch ist in meiner Phase der Verzweiflung definitiv ehrend gemeint   
In der Schweiz bedeutet Hirsch soviel wie Hecht, also echt was positives 

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

AM_Behaelter_umfaerben_V1.zip

@Rolf

Speziell fuer dich dann das LISP als Datei !

Es muss doch funktionieren ...

Gruss
RainerH.

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

---

Jetzt funktionierts... das glaub ich jetzt aber nicht... ich beiss gleich in die Tischkante...

Na, ich mach mich dann mal auf zur Fehleranalyse 

BTW: du kennst das ja: kein Produkt ohne Kinderkrankheiten 
-Baugruppen im Behälter werden nicht eingefärbt, bzw. aufgelöst.

So, und jetzt erstmal eine Welle, nur für RainerH:

   

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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