Hallo Fred!
Ich hab mir ein LISP geschrieben, welches zuerst die Baugruppe
ermittelt in welcher sich das aktuelle Teil befindet.
;; LISP - Anfang
(in-package :ego)
(use-package :oli)
(sd-defdialog 'ego-baugruppenvorgabe
:toolbox-button nil
:dialog-control :sequential
:ok-action
'(progn
(if (oli::sd-inq-curr-part)
(setf ego-baugruppe (subseq (oli::sd-inq-obj-pathname (oli::sd-inq-curr-part)) 0 (-(length (oli::sd-inq-obj-pathname (oli::sd-inq-curr-part))) (length (oli::sd-inq-obj-basename (oli::sd-inq-curr-part))))))
(setf ego-baugruppe "/")
)
)
)
;; LISP - Ende
Geht aber nur, wenn man sich den Befehl so auf ein Icon belegt:
ego-baugruppenvorgabe <Originalbefehl> :owner ego::ego-baugruppe
Es gibt aber sicherlich noch bessere Loesungen...
Gruss
RainerH.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP