---

Hallo Lisp-Gemeinde,
ich möchte ein kleines Lisp-Programm schreiben, welches mir ein zu wählendes Teil kopiert und nach Erstellen der Kopie das Original gleich löscht. Der neue Name kann einfach der des originals mit dem Index .1 sein, wie das ja auch in Standardfall ist.
Hintergrund ist, daß wir manchmal Normteile aus Cadenas laden, die dann noch verändert werden müssen. Das geht aber wegen des Schreibschutzes nur mit Kopien der Normteile.

Soweit bin ich, aber das klappt nicht. Kann mir mal jemand auf die Sprünge helfen?

Danke im Voraus, Michael

Code:

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

(sd-defdialog 'teil-kopieren-original-loeschen
:dialog-title "Kopie erstellen - Original loeschen"
:variables
'(
(teil :value-type  art
:title "Teile"
:modifies nil
rompt-text "Teil angeben" )
; :initial-value sd-inq-curr-part
)
:local-functions
'(
(progn
(sd-call-cmds (create_multiple_pa :copy  art teil) )
(sd-call-cmds (delete_3d teil ))
) ;end progn
        ) ;end local function
)

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

---

delete_3d verlangt nicht das {SEL_ITEM}, sondern den Pfad. Versuchs mit

Code:

---

(sd-call-cmds (delete_3d (sd-inq-obj-pathname teil )))

---

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

---

... und ausserdem das selbe beim Kopieren:

Code:

---

  (sd-call-cmds (create_multiple_pa :copy    nelevel    n    wner (sd-inq-obj-pathname (sd-inq-parent-obj teil)) :source (sd-inq-obj-pathname teil))

---

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

---

Die Smilies gehen mal wieder nicht zum Ausschalten 

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

---

Hallo Walter!
Vielen Dank schonmal vorab!
Ich habe es versucht zu korrigieren, allerdings tut sich wieder nichts, zumindest kann ich keine Kopie, die ja einen neuen Namen haben müßet, finden 

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

(sd-defdialog 'teil-kopieren-original-loeschen
:dialog-title "Kopie erstellen - Original loeschen"
:variables
'(
(teil :value-type  art
:title "Teile"
:modifies nil
rompt-text "Teil angeben" )
; :initial-value sd-inq-curr-part
)
:local-functions
'(
(progn
(sd-call-cmds (create_multiple_pa :copy  nelevel  n  wner (sd-inq-obj-pathname (sd-inq-parent-obj teil)) :source (sd-inq-obj-pathname teil)))
(sd-call-cmds (delete_3d (sd-inq-obj-pathname teil )))
) ;end progn
        ) ;end local function
)

leider wieder mit smilies...

Gruß, Michael

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

---

Hallo MIchael,
wenn das der vollständige Code gewesen ist, den du da gepostet hast, fehlt noch ne KLeinigkeit:

Code:

---

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

(sd-defdialog 'teil-kopieren-original-loeschen
:dialog-title "Kopie erstellen - Original loeschen"
:variables
'(
(teil :value-type  art
:title "Teile"
:modifies nil
  rompt-text "Teil angeben" )
; :initial-value sd-inq-curr-part
)
:local-functions
'(
(meine-kopierfunktion ()
(sd-call-cmds (create_multiple_pa :copy  nelevel  n  wner (sd-inq-obj-pathname (sd-inq-parent-obj teil)) :source (sd-inq-obj-pathname teil)))
(sd-call-cmds (delete_3d (sd-inq-obj-pathname teil )))
) ;end
        ) ;end local function
k-action
  '(meine-kopierfunktion)
)

---

Die lokale Funktion will nämlich auch noch irgendwo aufgerufen werden, oder du definierst gar keine und hängst den ursprünglichen (progn ...)-Block direkt in die ok-action. Bei komplexeren Codes aber sicher mässig elegant und besser mit lokalen Funktionen wie oben realisiert.

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

---

...und diesmal hab ich die Smilies garantiert ausgeschaltet 

------------------
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:
delete_3d verlangt nicht das {SEL_ITEM}, sondern den Pfad. Versuchs mit

Code:

---

(sd-call-cmds (delete_3d (sd-inq-obj-pathname teil )))

---

---

Das ist so nicht ganz richtig. Dialoge kommen sehr wohl mit sel_items als EIngabe aus. Man muss nur sicher stellen, dass sie zum Zeitpunkt des Aufrufes noch gueltig sind. Wenn man nun das sel_item in einen String von einem Pfad umwandelt, dann muss der Selektor hinher nur den String wieder in ein sel_item umwandeln. Wenn man aber ueber eine Dialogvariable bereits ein sel_item in die Hand bekommt, dann kann man es direkt als Parameter fuer Dialoge gerufen mit sd-call-cmds verwenden. Man kann ja auch sel_items von Flaechen direkt an andere Dialoge weiter reichen. Fuer solche sel_items gibt es keine Representation als (Pfad)String.
Das Ganze ist nicht falsch, verschlaechtert nur die Performance etwas.

Gruss Dorothea

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

---

Hallo Walter & Dorothea!

Es klappt jetzt so wie ich dachte. Das mit der Funktion ist natürlich peinlich, aber zeigt mir mal wieder wie wenig ich im Grunde von Lisp verstehe und wie dringend ich mal wieder ne Schulung bräuchte, die auch was taugt. Ich weiß bloß nicht wohin (bei Acadis in Wiesbaden war ich schonmal, wollte ich nicht unbedingt nochmal hin).

Grüße, Michael

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