---

Hallo!

Wir haben doch die beiden schönen Lisp´s mit denen man komplette Teile umfärben oder nur die unsichtbaren Linenen eines Teils umfärben kann.
Es hat nicht zufällig jemand schon ein Lisp mit dem man nur die Symmetrielinien eines Teils umfärben kann 
Vielleicht sucht ja jemand auch gerade eine neue Herausforderung und könnte den Lisp mit den Unsichtbaren umschreiben auf Symmetrielinien 
Ich selbst bin leider nicht so sehr mit der Gabe des Lisp-schreibens gesegnet.

Vielen Dank schonmal

Gruß Melanie

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

---

@Melanie

Geht vielleicht schon so:

Code:

---

(in-package :examples)
(use-package :oli)

(sd-defdialog 'am-sl-umfaerben
:dialog-title "SL umfaerben"
:toolbox-button t
:variables
'((ansicht
:selection *sd-anno-view-seltype*
:prompt-text "Ansicht angeben."
)
(farbe
:value-type :rgb-color
:title "Farbe"
:prompt-text "Farbe angeben."
)
)
:ok-action
'(progn
(am_aux_geo_modify_setting :aux_select :docu_sym_line :by_view_docu_geo ansicht :color farbe)
(docu_vp_redraw "Annotation")
)
)

---

HTH

Gruss
RainerH

[Diese Nachricht wurde von RainerH am 11. Jul. 2006 editiert.]

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

---

Hallo Rainer,

das funktioniert ja schon recht gut, aber ich hätte da gerne noch ein paar Änderungswünsche:
- es sollen nicht nur die Symmetrielinien sondern auch die Mittellinien umgefärbt werden
- es soll nicht die komplette Ansicht, sondern nur bestimmte Teile/Baugruppen in der Ansicht umgefärbt werden, ähnlich wie beim "unsichtbar umfärben"

Hintergrund meiner Wünsche ist, ich habe eine Montagezeichnung mit Randbaugruppen. In den Randbaugruppen würde ich die Symmetrie- und Mittellinien gerne unkenntlich machen, da sonst ziemlich viele Linienen zu sehen sind, und in der eigentlichen Baugruppe sollen sie noch sichtbar sein.

Gruß

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

---

Zitat:

---

Original erstellt von Melanie Schmidt:
...
Vielleicht sucht ja jemand auch gerade eine neue Herausforderung und könnte den Lisp mit den Unsichtbaren umschreiben auf Symmetrielinien 

---

@Melanie

Gesagt getan !

Hoffenlich ist der Walter Geppert aber nicht boese !!
(UI's dann auch an Ihn !!)

Probiers mal damit:

Code:

---

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

(sd-defdialog 'dc4-anno-zusatzgeo-umfaerben-dialog
:dialog-title "Zusatzgeo umfaerben"
:variables
'(
(owner)
(teil_bgr :selection
(*sd-object-seltype*)
:multiple-items t
:show-select-menu t
:incremental-selection t
:prompt-text "Teil oder Baugruppe angeben"
:title "Teil"
:before-input
(progn
(DOCU::SHOW-3DVP)
(fit_vp (oli::sd-inq-current-vp))
(update_screen)
)
)
(ansicht :selection *sd-anno-view-seltype*
:title "Ansicht"
:prompt-text "Ansicht angeben, in welcher die Symmetrie und Mittellinien umgefaerbt werden soll"
:multiple-items nil
:initial-optional nil
:after-input (ansicht-action)
:check-function
#'(lambda (ans)
(let ()
(if (sd-am-view-struct-view-3d (sd-am-inq-view ans))
:ok
(values :error "Diese Ansicht hat keine 3D-Repraesentation!")
);;if
);;let
);;lambda
)
(farbe :range (("BLACK" :label "Schwarz")
("WHITE" :label "Weiss")
("RED" :label "Rot")
("GREEN" :label "Gruen")
("BLUE" :label "Blau")
("YELLOW" :label "Gelb")
("CYAN" :label "Cyan")
("MAGENTA" :label "Magenta"))
:title "Farbe"
:initial-value "GREEN"
)
(linart :range (("SOLID" :label "Solid")
("DASHED" :label "Strichliert")
("LONG_DASHED" :label "Lang Strichl.")
("DOT_CENTER" :label "Strichpunkt")
("DASH_CENTER" :label "Lang Strichp.")
("PHANTOM" :label "___ _ _ __")
("CENTER_DASH_DASH" :label "__..__")
("DOTTED" :label "Punktiert"))
:title "Linienart"
:initial-value "DOT_CENTER"
)
(next
:push-action (sd-call-cmds (next-action))
)
)
:local-functions
'(
(ansicht-action ()
(let ()
(setf owner (sd-am-view-set-struct-owner
(sd-am-inq-view-set
(sd-am-view-struct-view-set
(sd-am-inq-view ansicht
))))
);;setf
);;let
)
(next-action ()
(sd-call-cmds (dc4-anno-faerbe-zusatzgeo-um teil_bgr ansicht farbe linart owner))
)
)
:ok-action
'(next-action)
:help-action '()
)

;;--------------------------------------------------------------------------*
;;--------------------------------------------------------------------------*
;; Faerbt alle Teile in der ausgewaehlten Baugruppe "teil_bgr"
;; um und aendert auch die Linienart (funktioniert nur mit Annotation)
;;--------------------------------------------------------------------------*
;;--------------------------------------------------------------------------*

(defun dc4-anno-faerbe-zusatzgeo-um (teil_bgr_list ansicht farbe linart owner)
(let (teil_bgr)
(docu::docu-enable-update-view-warning nil)
(dolist (teil_bgr teil_bgr_list)
(dc4-anno-faerbe-zusatzgeo-um-in-unterbgr teil_bgr ansicht farbe linart owner)
);;dolist
);;let
)

(defun dc4-anno-faerbe-zusatzgeo-um-in-unterbgr (teil_bgr ansicht farbe linart owner)
(let (kind kinder ppath opath olist ostr ansname shname me10path comstring)
(if (sd-inq-part-p teil_bgr)
(progn
(setf ppath (sd-inq-obj-pathname teil_bgr))
(setf opath (sd-inq-obj-pathname owner))
(setf olist (sd-string-split opath "/"))
(setf olist (butlast olist))
(setf opath "")
(dolist (ostr olist)
(setf opath (format nil "~a/~a" opath ostr))
);;dolist
(setf ppath (subseq ppath (- (length opath) 1)))
(setf ansname (sd-am-view-struct-name (sd-am-inq-view ansicht)))
(setf shname (sd-am-sheet-struct-name (sd-am-inq-sheet (sd-am-view-struct-sheet (sd-am-inq-view ansicht)))))
(setf me10path (format nil "/~a/~a~a" shname ansname ppath))
(setf comstring (format nil "~a '~a'~%~a ~a ~a~%~a ~a ~a~%~a ~a ~a~%~a ~a ~a~%~a~%~a"
"EDIT_PART" me10path
"CHANGE_COLOR" farbe "SELECT SYMLINES ALL CONFIRM END"
"CHANGE_COLOR" farbe "SELECT CENTERLINES ALL CONFIRM END"
"CHANGE_LINETYPE" linart "SELECT SYMLINES ALL CONFIRM END"
"CHANGE_LINETYPE" linart "SELECT CENTERLINES ALL CONFIRM END"
"ADD_ELEM_INFO 'GEOMETRY_ATTRIBUTES_CHANGED_IN_MEXX' SELECT GEO ALL CONFIRM END"
"EDIT_PART TOP"
))
(sd-execute-annotator-command :cmd comstring)
);;progn
(when (or (sd-inq-assembly-p teil_bgr) (sd-inq-container-p teil_bgr))
(progn
(setf kinder (sd-inq-obj-children teil_bgr))
(dolist (kind kinder)
(dc4-anno-faerbe-zusatzgeo-um-in-unterbgr kind ansicht farbe linart owner)
) ;; dolist
) ;; progn
) ;; when
);;if
);;let
)

---

Hoffe, dass es auch einigermassen funktioniert ...

HTH

Gruss
RainerH.

[Diese Nachricht wurde von RainerH am 12. Jul. 2006 editiert.]

[Diese Nachricht wurde von RainerH am 12. Jul. 2006 editiert.]

[Diese Nachricht wurde von RainerH am 12. Jul. 2006 editiert.]

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

---

Zitat:

---

Original erstellt von RainerH:
...
Hoffenlich ist der Walter Geppert aber nicht boese !!
;;

---

                 
               
                 

...und wie!  

Bin doch froh, wenn mal ein anderer ran muss 

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

@Walter

Ich hoffe, das nur die Icons so kochen ... 

Gruss
RainerH.

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

---

Hallo!

Ich weiß nicht genau ob bzw. was ich falsch mache. Hab´s als Lisp gespeichert und in Anno geladen - hat auch geklappt. Sobald ich dann alles ausgewählt habe und auf OK geh kommt folgende Fehlermeldung

Gruß

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

---

Zitat:

---

Original erstellt von RainerH:
@Walter

Ich hoffe, das nur die Icons so kochen ... 

Gruss
RainerH.

---

Na ja, das Thermometer auf meinem Schreibtisch zeigt auch immerhin 30° 

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

@Melanie

Kann deine Fehlermeldung nicht sehen !
(Es wird bei mir nur ein X angezeigt)

Bitte schreib sie doch als Text mal hin

Gruss
RainerH.

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

---

@RainerH
sie lautet:
LISP-Fehler:
|custom|: C4-ANNO-FAERBE-TEILE-UM requires only four arguments, but five were supplied.

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

---

Zitat:

---

Original erstellt von Melanie Schmidt:
@RainerH
sie lautet:
LISP-Fehler:
|custom|:  C4-ANNO-FAERBE-TEILE-UM requires only four arguments, but five were supplied.

---

@Melanie

Hier hat sich ein Fehler eingeschlichen !!

Ich hab die den Code im urspruenglichen Posting oben korrigiert !
Leider klapp es mit den Einrueckungen nicht mehr 

.. sollte aber keine Probleme bereiten

So sollte es nun fuktionieren ...

HTH

Gruss
RainerH.

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

---

@ RainerH

Jetzt wollt ich grade schreiben, dass der comstring noch erweitert gehört, hat sich aber schon erübrigt, das nennt man wohl Online-Debugging 

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

@Walter

Da staunst du aber !

Ist mir zuerst beim testen nicht aufgefallen.
Passiert halt, wenn man schnell mal was von einem anderen uebertippt ...

Funktioniert's denn nun bei euch ???

Gruss
RainerH.

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

---

Funktioniert Supie, genau so hatte ich mir das vorgestellt.  

Danke

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