---

Hilfsbolzen.lsp

Hallo,

ich benutze das Tool Hilfsbolzen sehr oft in meiner täglichen Arbeit.
Mir fehlten allerdings noch ein paar Punkte, die ich hinzugefügt habe.

- Achsausrichtung im Ursprung
- Einstellung der Größe
- Aktive Teile/Arbeitsebene bleiben aktiv
- die Ursprungsfläch wird Blau eingefärbt

Beim letzten Punkt habe ich allerdings ein Problem zu dem ich keine Lösung finde. 
Beim Erstellen des ersten Hilfbolzen funzt alles wie gewollt  .
Wenn ich den nächsten erstelle, benennt er diesen in Hilfsbolzen.1 um, ohne diesen
AKTIV zu setzen.
Und jetzt sage ich über get_selection :curr_part_only , die Fläche blau einfärben.
Hierbei nimmt er aber den aktiven Hilfsbolzen und nicht den neu erstellen Hilfsbolzen.1
und es folgt die Fehlermeldung - Sie haben einen unerwarteten Wert eingegeben.

Wenn ich :curr_part_only weg lasse kann es passieren, dass ich Flächen von Teilen ungewollt
einfärbe, was ja auch nicht darf.

Habe schon ein paar Sachen versucht, bin aber kläglich gescheitert.
Vielleicht fällt Euch ja was ein, ansonsten kann das erweiterte Tool ja evtl. noch jemand
gebrauchen, dann Viel Spaß damit!

Michael

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

---

Hinweis

Lieber so:

Code:

---

:local-functions '(
  (hilfsbolzen ()
    (let ((Default_Part (sd-inq-curr-part)) ;Aktives Teil sichern
          (Default_WP (sd-inq-curr-wp)) ;Aktive Arbeitsebene sichern
          )
    ......
    ) ; end let

---

damit sind dieses beiden variable lokale Hilfsvariablen inner halb der local function Hilfsbolzen.

So wie du es eingebaut hast, erzeugst du zwei global galaktische Variablen im custom lisp-package. Das ist nicht so schoen. Prinzipiell begreusse    ich es aber sehr when active part / WP / whatever nach der eigentlich Aktion wieder hergestellt werden.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Hallo Michael, ...

Dein Code funktioniert nicht, weil er das extrudierte Teil am ersten Hilfsbolzen anfügen will (es existiert ja schon) und deswegen automatisch die Datei "Hilfsbolzen.01" erzeugt.
Alle folgenden Befehle sollen dann aber wieder an "Hilfsbolzen" ausgeführt werden, was natürlich nicht stimmen kann, weil die Fläche ja am "Hilfsbolzen.01" hängt.

Du solltest den Teilenamen vorher abfragen (sd-inq-part-p Teil) ob er schon existiert und wenn ja selbst den Namen verändern, so das Du die Bearbeitungen dann auf dem richtigen Namen ausführst.

Gruß Wolfgang

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

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

---

Zitat:

---

Original erstellt von MiBr:
Wenn ich den nächsten erstelle, benennt er diesen in Hilfsbolzen.1 um, ohne diesen AKTIV zu setzen.

---

Es ist halt etwas haarig einen FIXEN part name zu nehmen fuer den Bolzen, bzw. MEHRERERE Bolzen.

hier:

Code:

---

(sd-call-cmds (extrude :Part "/Hilfsbolzen" ...

---

entsteht dann ein 2. Koerper. Das part "/Hilfsbolzen" kann aber nicht aus 2 (oder) mehr nicht miteinander verbundenen Koerpern (bodies) bestehen. Und daher faengt OSD an die Dinger durchzunummerieren. Es ist nicht definiert welcher body dann das current part sein moege.

---einschub-----------------------
Habe auf einer Workplane 3 Kreise nebeneinander, nicht mit einander verbunden / ueberschneidend. Fuehre den (extrude :Part "/bolzen" ..) aus. --> du erhaelts 3 solid bodies und damit auch 3 neue Parts, von dem nur eines dem von dir definierten part name erhaelt (falls ueberhaupt).
---ausschub-----------------------

Es waere also zu empfehlen, explizt ein neues part zu erzeugen (dessen Basisname 'Hilfsbolzen' ist, dessen echter Name aber dann ggf. 'Hilfsbozen.42' ist) und mit dem SEL-ITEM (also names unabhaengig) dann die nachfolgenden Befehle auszufuehren  ( den select dann mit ca. ":in-part new-hilfsbolzen-item")

HTH

naja.  2008 war der Matthias (aka highway) halt auch noch kein LISP Spezie!  

========================================
[edit]da habe ich mal wieder zu lange an meinen Posting gefeilt und unerwartete Smilies entfernt... und so ist mir der Seelig's Wolfgang kurz zuvor gekommen. 

Die Fuzzelei mit 'gucke nach existierenden' Namen wuerde ich aber nicht (selber machen). Das macht der OSD besser fuer uns. [/edit]
------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

[Diese Nachricht wurde von der_Wolfgang am 20. Nov. 2017 editiert.]

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

---

Hilfsbolzen.lsp

Hallo ihr beiden,

erstmal Danke für das schnell Feedback. 

An Der_Wolfgang

Zitat:

---

So wie du es eingebaut hast, erzeugst du zwei global galaktische Variablen im custom lisp-package.

---

Das war mir nicht bewußt, werde jetzt mal eben alle von mir gepuzzelten Lisp überarbeiten. Danke für die Arbeit :)

Dann bin ich auf SeeleŽs Vorschlag eingegangen.
Hatte, dass noch nicht gelesen 

Zitat:

---

Die Fuzzelei mit 'gucke nach existierenden' Namen wuerde ich aber nicht (selber machen)

---

So habe nach vorhandenem Hilfsbolzen gesucht. Habe dazu allerdings den Code aus SW-Teile_suchen.lsp genommen.
Und rausgekommen ist die Lisp im Anhang.
Für mich funktioniert diese, aber der ein oder andere Wolfgang wird wahrscheinlich beide Hände über dem ....

Ich bin halt kein Programmierer und deshalb sage ich nochmals Danke für die toole Hilfestellung!!!

Michael

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

---

Zitat:

---

Original erstellt von MiBr:
Für mich funktioniert diese, aber der ein oder andere Wolfgang wird wahrscheinlich beide Hände über dem ....

---

Beide? Alle verfuegbaren! 
Ohhh  HOaahhh.  - das funktioniert dann wieder nur bis zum 10./11. Bolzen.

awww.  jetzt waren wir so schoen voran gekommen.. 

also:

Code:

---

(sd-call-cmds (create_part :name "HilfsBolzen" :Owner "/")
(setq derBolzen (sd-inq-curr-part))  ;; a sel-item
(sd-call-cmds (extrude :Part derBolzen :Distance Bolzen_laen......
(sd-call-cmds (part_prop derBolzen :base_density 0.0001 :bas......

---

Haende langsam wieder runter nehm...

code untested

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Hallo Wolfgang,

habe es mit deinem Code versucht.Leider bekomme ich das so nicht zum laufen.

Beim erstellen des ersten Hilfsbolzen läuft alles durch. Beim erstellen des zweiten
Hilfsbolzen kommt dann die Fehlermeldung 'Name bereits vorhanden'. Diese ist ja auch
nicht verwunderlich. Bestätige ich diese kommt die Fehlermeldung 'Sie haben einen
unerwarteten Wert eingegeben.'
Das Ergebniss ist dann ein neuer Hilfsbolzen mit der Benennung des aktiven
Teils + .1.
Für mich sieht das so aus als würde mir der Befehl:

Code:

---

(sd-call-cmds (create_part :name "Hilfsbolzen" :Owner "/"))

---

nicht den gewünschten Hilfsbolzen.1 erstellen.

Gruß Michael

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

---

Hilfsbolzen.lsp

Hallo,

habe jetzt eine Version erstellt, die meiner Meinung nach funktioniert und
sogar eine Vorschau bietet. 

Ich wage es diese hier zur Verfügung zu stellen. Hoffe, dass ich nicht
ganz so viel Kritik ernte, wie bei der letzten Ausführung! 

Allerdings hilft mir die Kritik, will noch was lernen!!!
Also, Danke Wolfgang und Bitte nicht gleich die Hände... 

Gruß
Michael

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

---

hilfsbolzen.lsp

Hallo Michael,

mit  art (format nil "/~a" (sd-gen-obj-basename  art  refix "Hilfsbolzen.")) wird ein eindeutiger Name erzeugt.

Gruß Peter

------------------
Gruß,
Peter

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

---

Zitat:

---

Original erstellt von PeterO:
mit ...(sd-gen-obj-basename .... wird ein eindeutiger Name erzeugt.

---

Jooooo.  die gibz ja auch noch

aber dann waere es einfacher das Parent mit anzugeben:

Code:

---

(setq nameBolzen (sd-gen-obj-basename :Part :Parent "/" :Prefix "HilfsBolzen"))
(sd-call-cmds (create_part :name nameBolzen :Owner "/")
(setq derBolzen (sd-inq-curr-part))  ;; a sel-item

---

Also direkt mit Angabe des Parents!

Ich war davon ausgegangen das create_part das selber macht mit dem Durchnummerieren des Basenames. Sorry - lag ich flash. :-\

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

Hilfsbolzen.lsp

Danke, jetzt läuft die Lisp perfekt!!! 

Gruß Michael

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

---

Und gehört deshalb auch auf die Hilfeseite:

http://osd.cad.de/lisp_3d_13.htm

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

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

---

Zitat:

---

Original erstellt von highway45:
Und gehört deshalb auch auf die Hilfeseite:

http://osd.cad.de/lisp_3d_13.htm

---

B O L Z g u t ! 

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

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

---

This might also give you some inspiration to your bolt codes

http://forum.cad.de/foren/ubb/Forum29/HTML/004614.shtml

------------------
The sword alone does not give you the courage and strength you will need on your journey

-------
link repaired

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

---

Hello,
I had looked at, very nice work and great inspiration!!!

Thx Michael

[Diese Nachricht wurde von MiBr am 05. Dez. 2017 editiert.]

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