---

Hallo,
wenn ich mit
(create_part :name (sd-gen-obj-basename  :part  :prefix n_part)  :owner bgr)
ein neues Teil anlege, funktioniert das, ich weiss dann aber nicht welcher Teilename generiert wurde. Hier würde ein INQ für den letzten Teilenamen helfen, habe ich aber nicht gefunden. Gibt es das?

Wenn ich folgendermaßen vorgehe:
(setf n_part (sd-gen-obj-basename  :part  :prefix n_part))
(create_part :name n_part  :owner bgr)
funktioniert das nur unter / , weil sd-gen-obj-basename nur die Teile direkt unter / prüft. Oder geht das auch anders?

Schöne Grüße
Bernd

[Diese Nachricht wurde von rmcc1980 am 14. Jul. 2005 editiert.]

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

---

Siehe IKIT-Doku: sd-gen-obj-basename kennt ein Keyword :parent, das genau dafuer gedacht ist, dass man die Baugruppe angeben kann, in der der neue Name eindeutig sein soll. Also:

Code:

---

(setf newname (sd-gen-obj-basename :part :parent bgr :prefix prefix))
(create_part ....)

---

Claus

------------------
OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/

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

---

Hallo Claus,
danke für die superschnelle Antwort. Wer lesen kann und dann noch versteht was er liest, ist klar im Vorteil. 
Ich war so fixiert auf die Suche nach einem Parameter 'owner', dass ich das einfach nicht richtig gelesen habe.
Völlig zerknirscht,
Bernd

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

---

Hallo Bernd,

Eine Sache solltest du noch beachten:
Der Dialog zum Erzeugen von Teilen ist naemlich auch "schlau". Und angenommen, unter "/" gibt es bereits ein Teil mit dem Namen n_part, dann benennt er das Teil um. Ist ja auch korrekt. Deshalb musst du aufpassen, das du die Parameter in der richtigen Reihenfolge uebergibst

Wenn der Dialog zuerst den owner bekommt, dann wird der Namenscheck auch fuer die richtige Baugruppe durchgefuehrt.

Dein Code sollte also so aussehen:

Code:

---

(create_part :owner bgr :name n_part)

---

Die Parameter :owner und :name sind vertauscht.

Gruss Dorothea

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

---

Nur so als Alternative, fuer die denen der Name des Teils egal ist (aus welchen Gruenden auch immer).

a)
ruft man create_part via sd-call-cmds auf, ist der return-value das sel-item des gerade erzeugten parts.

b)
ruft man nach create_part direkt sd-inq-curr-part auf hat man das selbe sel-item in der Hand.

das 'INQ für den letzten Teilename' ist einfach sd-inq-curr-part. Man muss es nur 'schnell' genug erfragen.

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

---

Hallo,

ich möchte ein Exemplar einer Baugruppe unter root erstellen, wenn die Baugruppe nicht unter root ist.

Mit sd-gen-obj-basename funktioniert das auch mit einem Schönheitsfehler. Auch wenn der Name "nicht" existiert wird eine 1 an den gewünschten Namen gehängt. So steht es auch in der Doku. Das kann anscheinend nicht abgeschaltet werden.

Gibt es eine andere Möglichkeit zu prüfen, ob ein Objekt mit dem Namen unter root existiert ?

Unten findet Ihr den Code.

Tschuess
Martin

(setf exemplar-name (sd-inq-obj-basename A_ASSEM))

(when (sd-inq-parent-obj A_ASSEM)
(setf exemplar-name (sd-gen-obj-basename :assembly :parent "/" :prefix (sd-inq-obj-basename A_ASSEM)))
(create_multiple_pa :share :source A_ASSEM :name exemplar-name :owner "/")
)

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

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

---

Zitat:

---

Original erstellt von Martin.M:

Gibt es eine andere Möglichkeit zu prüfen, ob ein Objekt mit dem Namen unter root existiert ?

---

(sd-pathname-to-obj "Pfadname") gibt NIL zurück, wenn der Name nicht existiert

------------------
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

---

Hallo Walter,

danke für Deine schnelle Hilfe. Ich habe es eingebaut.

Zusaetzlich habe ich noch ein Punkt vor der Nummerierung des Namens eingebaut.

Tschuess
Martin

      (setf exemplar-name (sd-inq-obj-basename A_ASSEM))

      (when (sd-inq-parent-obj A_ASSEM)
          (when (sd-pathname-to-obj (format NIL "/~A" (sd-inq-obj-basename A_ASSEM)))
              (setf exemplar-name (sd-gen-obj-basename :assembly  :parent "/"  :prefix (format NIL "~A."(sd-inq-obj-basename A_ASSEM)))))
          (create_multiple_pa :share :source A_ASSEM :name exemplar-name  :owner "/")
      )

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

[Diese Nachricht wurde von Martin.M am 07. Nov. 2005 editiert.]

[Diese Nachricht wurde von Martin.M am 07. Nov. 2005 editiert.]

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