---

3D_Behaelter.lsp.txt 3D_Bogen_Rechteckkanal.lsp.txt

Hallo Autocadler,

habe mir mal zwei ganz primitive Codes geschrieben zum schnellen
erstellen von 3D Behältern und 3D Bogen Rechteckkanal.
Wollte es einfach hier mal zur Verfügung stellen, vieleicht spart es
dem ein oder anderen Zeit und Nerven.
Bin für solche kleinen Helferlein auch immer dankbar.
Wie gesagt sind ganz einfache und primitive Codes und natürlich nicht perfekt, aber sie laufen.
Wer verbesserungsvorschläge hat kann sie natürlich gerne einarbeiten.
Na dann hoffentlich einen entspannteren Arbeitstag.

Gruß Jürgen

[Diese Nachricht wurde von Jürgen Scheeren am 14. Mrz. 2008 editiert.]

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

---

Hallo Jürgen,

könntest Du bitte mal den Link prüfen, ich kann die LISP für die 3D-Behälter nicht laden ...

Danke
Lutz

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...

---

http://ww3.cad.de/foren/ubb/uploads/Jurgen+Scheeren/3D_Beh%e4lter.lsp.txt 

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Ja ja .. der IE hat Probleme mit den Umlauten in den Uploads .. der FF wohl nicht.
hier nochmal die Links:
Behälter.lsp
und
Kanal.lsp

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

3dbe.PNG

Hallo Jürgen!

Erstmal danke dass du deine "Helferlein" zur Verfügung stellst!

Leider funktionieren sie bei mir noch nicht ganz, es wird immer irgendwo beim Erstellen der pline abgebrochen (siehe Bild)

------------------
Gruß
Thorus

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

---

Hallo Thorus,

bei mir funzen sie in Autocad 2005 und 2008.
Sind ja eigentlich nur Autocad Befehle die ich
hintereinander aufgelistet habe.
Ist ja alles sehr grob, aber ich schaue es mir
noch mal an.
Um jede Fehlfunktion auszuschließen müßte sich das
mal einer von den Lisp-Spezialisten hier im Forum anschauen.
Wie gesagt ich bin auch nur der Gelegenheitslispler.

Gruß Jürgen

[Diese Nachricht wurde von Jürgen Scheeren am 12. Mrz. 2008 editiert.]

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

---

@Thorus:

Bei welchem Tool bricht AC ab?
Und was steht in deinem TExtfenster oberhalb? (das wäre der interessantere Teil)

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Nachtrag (habs schon gefunden):
http://ww3.cad.de/foren/ubb/uploads/Jurgen+Scheeren/3D_Beh%E4lter.lsp.txt

Bei Abschnitt:

Code:

---

; in Polyline umwandeln und Voloumenkörper erstellen

  (command "pedit" e1 "" "v" e2 e3 e4 e5 e6 "" "") (setq e7 (entlast))
  (command "_revolve" e7 "" PT3 PT4 "") (setq e8 (entlast))

---

ersetzen durch:

Code:

---

; in Polyline umwandeln und Voloumenkörper erstellen

  (command "_pedit" e1 "" "_j" e2 e3 e4 e5 e6 "" "") (setq e7 (entlast))
  (command "_revolve" e7 "" PT3 PT4 "") (setq e8 (entlast))

---

Beim Anderen Tool:

Code:

---

; zeichnen

  ...

  (command "_fillet" "radius" MA "" "")
  (command "_fillet" e3 e4 )  (setq e9 (entlast))
  (command "_fillet" "radius" MC "" "")
  (command "_fillet" e7 e8 )  (setq e10 (entlast))

  (command "pedit" e1 "" "v" e2 e9 e5 e6 e10 "" "") (setq e11 (entlast))

---

durch:

Code:

---

; zeichnen

  ...

  (command "_fillet" "radius" MA "" "")
  (command "_fillet" e3 e4 )  (setq e9 (entlast))
  (command "_fillet" "radius" MC "" "")
  (command "_fillet" e7 e8 )  (setq e10 (entlast))

  (command "_pedit" e1 "" "_j" e2 e9 e5 e6 e10 "" "") (setq e11 (entlast))

---

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

3dbe2.PNG

Erstmal Danke Thomas!

Sehe ich das richtig, dass der "Fehler" beim deutschen Befehl lag??

Egal, bei mir funktioniert es immer noch nicht, es kommt nämlich dann gleich die nächste Fehlermeldung....

------------------
Gruß
Thorus

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

---

Na klar liegt der Fehler am deutschen Befehl - du hast doch kein deutsches AutoCAD...

(wenn du nur deutsch kannst, kann dir doch auch keiner auf englisch was erklären...)

Zur weiteren Fehlermeldung - keine Ahnung; lass mal das CMDECHO ausschalten weg (also kommentiere es aus) - so ist es eher Rätselraten...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

3dbe3.PNG

ok, CMDECHO ausschalten ist weg, hier nochmal die Fehlermeldung...

------------------
Gruß
Thorus

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

---

3D_Behaelter.lsp.txt

Hallo Thorus,

habe noch mal den Code geprüft, weil die Behälterfüße
nicht richtig kopiert wurden.
Einige der commands sind ja schon in Englisch, brauchst
die Deutschen nur gegen Englische auszutauchen in dem
Du die Befehlskette aus deinem engl. Acad abschreibtst.
Habe die engl. commands nicht alle present, sonst hätte
ich das schon gemacht.

Gruß Jürgen

[Diese Nachricht wurde von Jürgen Scheeren am 13. Mrz. 2008 editiert.]

[Diese Nachricht wurde von Jürgen Scheeren am 13. Mrz. 2008 editiert.]

[Diese Nachricht wurde von Jürgen Scheeren am 13. Mrz. 2008 editiert.]

[Diese Nachricht wurde von Jürgen Scheeren am 14. Mrz. 2008 editiert.]

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

---

3D_Behaelter.lsp.txt

Hallo Acadler,

habe nochmal den Code für die 3D-Behälterroutiene
überarbeitet.
Läuft jetzt ziemlich rund.
Der Code kann und darf natürlich weiterbearbeitet werden.
Für Ideen und Verbesserungen bin ich immer dankbar.

Gruß Jürgen

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