---

parts_pd_multiple.lsp.txt

   
Damit der Arbeitsbeginn im Neuen Jahr nicht ganz so hart ausfällt, eine weitere Arbeitserleichterung von eurem Paten für die "One-Space-Cosa Nostra":
Als Ergänzung zu diesem Makro eine "Extended Edition", mit der jetzt mehrere Teile und/oder Baugruppen auf einmal und wiederholt vervielfältigt werden können, und zwar nicht nur rein translatorisch, sondern unter der Angabe jeweils eines Punktes und zweier Richtungen beliebig im Raum positioniert, ahnlich wie bei "Neue AE-Punkt und Richtung".

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

---

Weil jetzt womöglich wieder gerufen wird, warum hat CoCreate so was nicht schon standardmässig drin, sei zu deren Ehrenrettung gesagt, dass die Entwickler mit der Programmierumgebung, die ein solches Makro erst ermöglicht, ein wesentlich wertvolleres Werkzeug geschaffen haben!

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

---

teilepos-fehler.jpg

Guten Morgen und ein frohes neues Schaffensjahr Walter!
Vorab schonmal 10Uis für Dich, aber ich habe noch eine Frage:
Wenn ich die 2. Bezugsrichtung angeben möchte/muß, bekommen ich die angehängte Fehlermeldung.
Mache was falsch, oder liegt es evtl. daran, daß ich das ursprüngliche Makro auch geladen habe?

Vielen Dank schonmal vorab!

Gruß, Michael

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

---

Autsch, das liegt wohl daran, dass ich das neue Makro in der Version 14 geschrieben hab und da eine Menge neue Funktionen dazugekommen sind 

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

---

@Walter

Vorweg mal ein gutes Neues Jahr !

Dieses Lisp ist mal wieder eine Extraklasse     

Einen kleine Erweiterung waere noch, wenn du zusaetzlich zum Erstellen einer Kopie/Exemplar eine Vorauswahl zum reinen positionieren miteinbauen wuerdest 

P.S: Ui's sind unterwegs !!

Gruss
RainerH.

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

---

@ Walter:
Bedeutet das, daß ich das geniale Lisp mit meiner Version 13.01 nicht nutzen kann, oder kann ich es irgendwie kompatibel machen? Mir würde es im Prinzip ja auch schon reichen, wenn ich ggf. vor jeder neuen Positionierung die Position z.B. durch "Achse ausrichten" oder "auf Fläche" korrigieren kann.
Durch Dein Profi-Lisp steige ich mangels Wissen leider nicht mehr durch.

Gruß, Michael

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

---

Zitat:

---

Original erstellt von MC:
Bedeutet das, daß ich das geniale Lisp mit meiner Version 13.01 nicht nutzen kann, oder kann ich es irgendwie kompatibel machen?

---

Du koenntest eine Implementierung von sd-vec-colinear-p fuer 13.x schreiben; dazu braucht man das Kreuzprodukt der beiden normalisierten Eingangsvektoren.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Hallo Claus,
nachdem ich mal kurz meine "Mathe-Grundkurs-immer-gerade so-bestanden-Kenntnisse" etwas aufgefrischt habe, muß ich sagen, daß das ja doch recht aufwändig ist. Vom Normalisieren der Vektoren mal abgesehen ist das Kreuzprodukt zu bilden ja schon ein Lisp-Programm für sich....
Gibt es für die benötigten Operationen denn auch fertige Funktionen im Lisp, die OSD versteht?

Vielen Dank schonmal im Voraus,

Michael

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

---

Alles schon da, siehe IKIT-Dokumentation zu sd-vec-normalize und sd-vec-cross-product.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Ja, wenn ich mal genau hingeschaut hätte, hätte ich ja auch sehen können, daß Walter sd-vec-cross verwendet hat...

Jetzt bin ich ein Stück weiter, aber ich frage mich noch, wie ich die Abfrage:

Code:

---

(if (= 0 (sd-vec-cross-product (sd-vec-normalize (nth 0 zdirmain)) (sd-vec-normalize (nth 0 zdirsec))))

---

richtig mache, da ich ja einen Nullvektor abfragen muß und nicht die Zahl Null (wie in meinem Code jetzt steht).

Wenn das noch klappt, müßte das Makro auch für die OSDM-Generation <14 passen.

Gruß, Michael

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

---

Siehe IKIT-Doku, sd-vec-null-p.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Zitat:

---

Original erstellt von RainerH:
...zum reinen positionieren

---

Also nur zum Positionieren ist doch mein Makro nun nicht erforderlich, da kann die Standardpositionierung mit ihren vielen verschiedenen Optionen doch eigentlich mehr!

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

---

Teile-Baugr-verfvielfaeltigen_V2.0a_fuer_OSDM_bis_V13.xx.lsp.txt

Hallo allerseits!
Falls es also noch jemanden mit OSDM < V14 gibt, dann funktioniert das geniale Programm von Walter jetzt auch damit. Viel Spaß!

@ Claus: Vielen Dank nochmal für Deine Geduld und die Hinweise!

@ Walter: Ich hoffe, Du bist mit meiner Änderung einverstanden?

Grüße aus Braunschweig,

Michael

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

---

Zitat:

---

Original erstellt von Walter Geppert:
Also nur zum Positionieren ist doch mein Makro nun nicht erforderlich, da kann die Standardpositionierung mit ihren vielen verschiedenen Optionen doch eigentlich mehr!

---

@Walter

Du meinst wahrscheinlich [Pkt Rich Pkt] ?

Hier ist deine Art des Positionierens mit den angezeigten Feedbacks wesentlich einfacher und uebersichtlicher gestaltet.

Deshalb meinte ich, dass man diese akternative Funktion noch einbauen koennte 

Gruss
RainerH.

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

---

teilepos-fehler-2.jpg

@ Walter:
Ich muß nochmal nerven:
Ich habe gerade mal versucht eine Baugruppe mehrfach zu kopieren. Dabei kam dann die angehängte Fehlermeldung, mit der ich leider nichts anfangen kann. Liegt es an der Definition des Value-types der Variablen "teil", oder ist das wieder ein Problem mit meiner alten Version?

Gruß, Michael

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

---

Zitat:

---

Original erstellt von MC:
@ ...mit der ich leider nichts anfangen kann.

---

Ich leider auch nicht 
Hab alles mögliche probiert und erhalte die nie. Vielleicht liegts an deiner konkreten Baugruppe, wie sieht die denn aus?

------------------
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,
es ist eine Verschraubungsbaugruppe aus Cadenas (Schraube & Mutter). Es funktioniert mit selbst erstellten Baugruppen allerdings auch nicht.

Jetzt habe ich herausgefunden, woran es liegt: Es muß beim Kopieren von Baugruppen eine übergeordnete Baugruppe zu der zu kopierenden existieren, dann klappts.

Auch wenn ich als Besitzer "/" angebe geht es nicht.

Kann ich mir nicht erklären   

Gruß, Michael

p.s.: Warum muß denn eigentlich bei der Variable "teil" kein "value-type" angegeben werden? Wenn ich das mit angebe geht es zwar auch, aber ich dachte das gehört zur Deklaration dazu (ich weiß: RTFM mag helfen    )

Code:

---

(teil  :value-type    art-assembly
          :selection
              (*sd-object-seltype*)
          :multiple-items t
          :show-select-menu t
              rompt-text "Teil oder Baugruppe angeben"
          :title "Teil/Bgr"
          ;;:initial-value nil
          :next-variable (seq-input)
          :after-input (after-teil-action)
    )

---

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

---

Die Einschränkung, dass es eine "echte" Besitzerbaugruppe geben muss, war schon beim Vorgängermakro, drum hatte ich das nicht ausdrücklich erwähnt.
Bei der Variablen "Teil" ist deshalb keine weiter Typenangabe notwendig, weil mit :selection schon eine entsprechende Typenliste definiert wird. In der muss allerdings dann auch was Vernünftiges drinstehen.

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

---

So, mit etwas Verspätung ist das Makro jetzt auf der Hilfeseite gelandet.

Die Fassung für Versionen bis 13 hat mir Michael nochmal etwas verbessert zugeschickt, daher diese besser hier herunterladen:

http://osd.cad.de/lisp_3d.htm#39
 

------------------
Matthias                     SolidDesigner Hilfeseite

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

---

Bitte auch diesen Beitrag mal ansehen.

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

---

Muß hier mal kurz nachfragen:

Bei teilname_v4.lsp ist eine Zeile enthalten, die den Zähler definiert.

Kann man das bei dem Lisp da drunter parts_multiple_V14.lsp auch so einstellen, daß der Exemplar-Zähler mehrstellig wird ?

Also statt Teil.1 so:  Teil.001

------------------
                      CoCreate: Hilfeseite I FAQ I Forum

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

---

Zitat:

---

Original erstellt von highway45:
...
Bei teilname_v4.lsp ist eine Zeile enthalten, die den Zähler definiert...

---

Nicht bloss eine Zeile, sondern eine ganze Funktion dc4-gen-part-basename.
So was liesse sich natürlich auch ins andere Makro mit Abwandlungen implementieren, allerdings mit etwas Aufwand.
Das Command CREATE_MULTIPLE_PA erlaubt ja auch eine Option :NAME

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

---

Danke dir !
Mich hatte das per Mail jemand gefragt, ich geb das erstmal so weiter. Vielleicht reicht ihm ja schon die Info.

------------------
                      CoCreate: Hilfeseite I FAQ I Forum

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

---

Hallo,

ist es möglich das Makro nach folgenden Kriterien zu erweitern?

In einer Baugruppe befinden sich 3D-Punkte, nennen wir die BGR "Test" und die Punkte 1-x.
Nun habe ich eine kleine Kugel, Exemplare dieser Kugel sollen auf die Punkte aus der BGR Test gesetzt werden (Schwerpunkt soll mit Punkt übereinstimmen). Das ganze automatisiert: Kugel wählen, BGR wählen, OK und fertig.

Ist sowas überhaupt möglich (Anzahl und Bezeichnung der Punkte sind immer verschieden) ?

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

---

 

Zitat:

---

Original erstellt von noxx:

Ist sowas überhaupt möglich (Anzahl und Bezeichnung der Punkte sind immer verschieden) ?

---

Ja natuerlich ist das moeglich!

Es stellt sich nur die Frage, ob Du da einen unserer Software-Gurus
hier im Forum nicht eine Freude machen wuerdest, wenn Du Dir
eine solche speziell fuer Dich massgeschneiderte Loesung
fuer ein paar Euronen bestellst.

Oder vielleicht doch selbst programmieren lernen.

Gruss

WoHo

[Diese Nachricht wurde von woho am 03. Sep. 2008 editiert.]

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

---

Vielleicht kann einer mir ein paar Tipps geben, dann würde ich es vielleicht mal selber versuchen (auch wenn ich nicht viel Plan habe).
Wichtig war erstmal, geht´s überhaupt!

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

---

Zitat:

---

Wichtig war erstmal, geht´s überhaupt!

---

Nichts ist unmöglich!  .............    fast nix.

Eine Frage des Aufwandes (Zeit) und/oder des Aufwandes (Geld).

Code:

---

(dotimes (i 127)
  (display (format nil "NeuerName.~4,'0D" i)))

---

zur Generierung eines :NAMEns hilft dir schon mal weiter.
----------------------------------------

Noxx,

ich, wie wohl einige andere auch, wären dir verbunden wenn Du asbach uralte Threads (Gesprächsfäden) nicht aufwärmen würdest!      Das ist schlechter Forumsstil.

Einen Beitrag liest man von oben nach unten. Und wenn ich erst 15 Beiträge überfliegen muss die 1/2 Jahr oder älter sind, um dann irgendwo ein aktuelles Datum zu erspähen, ist dann sehr umständlich und uneffektiv. Ich denke der Hinweis, wie man das richtig macht, wurde schon mehrfach gegeben. <grummel>

----------------------------------------

Kann man eigentlich auch neg<$&%$§&!§/&°>s vergeben?

------------------
● Seamonkey Firefox Thunderbird  Seamonkey auf deutsch ● OSD Hilfeseite (de) / help page (en) ●

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

---

... und ein Hinweis, mit welcher Version Du arbeitest, kann auch sehr informativ sein.
Ansonsten koennten Tipps sinnlos sein, wenn man nachher erfahren muss,
dass man ja eine aeltere Version einsetzt.

Damit wuensche ich einen guten Morgen und viel Spass bei der Arbeit.

Gruss

WoHo

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

---

@Wolfgang: Danke. Werde beim nächsten mal was neues aufmachen

------------------
OSD 15.5
WinXP Pro.

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