---

Hey Leute!
ich hätte da eine Frage: Ich habe in AutoCAD Linien gezeichnet. Jetzt würde ich gerne entlang der Linien Zylinder machen(entlang der Rotationsachse). Gibt es dafür einen Befehl oder muss ich jetzt entlang jeder einzelnen Linie jetzt einen Zylinder zeichnen?

MfG
Bonobert

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

---

Extrudieren am Pfad
http://www.mycadsite.com/tutorials/level_3/3-7a.htm

Lothar

[Diese Nachricht wurde von Kramer24 am 20. Mrz. 2015 editiert.]

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

---

Hallo,
was ist das Ziel des Ganzen? HIER hatte ich mal ein Programm gepostet, das Linien in Polylinien mit Breite und Höhe umwandelt (also lange Quader macht). Vielleicht reicht Dir das schon...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Zitat:

---

Original erstellt von Kramer24:
Extrudieren am Pfad

---

Hmm 
Bevor entlang des Pfades extrudiert werden kann, braucht's einen Kreis, der senkrecht auf der Linie steht, dazu wiederum erst ein BKS, dessen Z-Achse entlang der Linie verläuft, ...
Einfacher dürfte sein, doch Zylinder zu erstellen: den ersten Mittelpunkt auf ein Linienende setzen, Radius oder Durchmesser angeben, dann die Option Achsenendpunkt wählen und das gegenüberliegende Linienende picken - fertig. Was ist daran kompliziert (bezogen auf die Frage "muss ich jetzt entlang jeder einzelnen Linie jetzt einen Zylinder zeichnen"?).

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Zitat:

---

Original erstellt von jupa:

...Was ist daran kompliziert (bezogen auf die Frage "muss ich jetzt entlang jeder einzelnen Linie jetzt einen Zylinder zeichnen"?)....

Jürgen

---

Ja, das geht auch. Jetzt kommt es auf die Anzahl an. Vielleicht sind die Linien auch in einer Reihe. Wer weiß das schon? Oder jemand klöppelt Hennings Lisp um.

Lothar

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

---

Zitat:

---

Original erstellt von Kramer24:

Oder jemand klöppelt Hennings Lisp um.

---

weil die Sonnenfinsternis so schön war :)

Code:

---

(defun c:line2cylinder ( / r as l p1 p2 eig)
  (setq r 1)
  (setq as (ssget '((0 . "LINE"))) z -1)
  (while (setq l (ssname as (setq z (1+ z))))
    (setq p1 (cdr (assoc 10 (setq eig (entget l))))
          p2 (cdr (assoc 11 eig))
    )
    (command "_cylinder" p1 r "_a" p2)
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

1. mit _join die Einzellinien zu einer 3D-Polylinie umwandeln
2. _circle am Ende der 3D-Polylinie zeichnen dabei spielt es keine Rolle ob der Kreis auf das Anfangssegment der Linie senkrecht ausgerichtet ist
3. _extrude entlang Pfad

------------------
mfg Roman

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

---

Zitat:

---

Original erstellt von wronzky:

weil die Sonnenfinsternis so schön war

Code ...

---

Verdammt, jetzt warst Du schneller  . Bei mir kam Mutti mit dem Mittagessen dazwischen 

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Zitat:

---

Original erstellt von RL13:
1. mit _join die Einzellinien zu einer 3D-Polylinie umwandeln
2. _circle am Ende der 3D-Polylinie zeichnen dabei spielt es keine Rolle ob der Kreis auf das Anfangssegment der Linie senkrecht ausgerichtet ist
3. _extrude entlang Pfad

---

Nur falls später mal wer hier reinguckt, folgende Richtigstellung:
Das (s. o.) wirde nur bei SWEEP funktionieren (da könnte, unter bestimmten Bedingungen, der Kreis liegen wo und wie er will). Mit EXTRUSION wird das nichts.
Möglicherweise führt aber Sweep sogar zu genau dem Ergebnis, das Bonobert anstrebt - so richtig wissen wir das nicht. (Ich bin auch zunächst von der Annahme ausgegangen, daß es sich um einzelne, irgendwo rumliegende Linien handelt). Wer weiß ...

 
Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 20. Mrz. 2015 editiert.]

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

---

Fachwerk.jpg

Zitat:

---

Original erstellt von jupa:

Hmm  
Bevor entlang des Pfades extrudiert werden kann, braucht's einen Kreis, der senkrecht auf der Linie steht, dazu wiederum erst ein BKS, dessen Z-Achse entlang der Linie verläuft, ...
Einfacher dürfte sein, doch Zylinder zu erstellen: den ersten Mittelpunkt auf ein Linienende setzen, Radius oder Durchmesser angeben, dann die Option Achsenendpunkt wählen und das gegenüberliegende Linienende picken - fertig. Was ist daran kompliziert (bezogen auf die Frage "muss ich jetzt entlang jeder einzelnen Linie jetzt einen Zylinder zeichnen"?).

Jürgen

---

Ich habe jetzt einen Screenshot hineingestellt.
Es ist ein Fachwerk. Ich habe es erst mit Linien Konstruiert und würde es gerne jetzt den ganzen Stäben ein Volumen geben. Ich finde es ist mühsam, wenn ich jetzt 100 Linien nach fahren muss um ein Volumen daraus zu machen. Ich habe gedacht es gebe vielleicht eine Funktion wo ich ein offset der linien erstellen kann.

MfG
Bonobert

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

---

Hallo Bonobert,
schau mal weiter oben...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo Jürgen,

dann nimm lieber das Lisp von Henning.

ich hatte eher an Leitungen gedacht, die zusammmenhängen

@Jürgen
ich habs mit _extrude gemacht und hat auch funktioniert

------------------
mfg Roman

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

---

Ja aber unter AutoCAD funktioniert das nicht?

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

---

Zitat:

---

Original erstellt von RL13:

ich habs mit _extrude gemacht und hat auch funktioniert

---

Ich wage noch immer zu zweifeln. Guck Dir das Ergebnis mal entlang der Ausdehnungsrichtung (der Linie) an. Ist der Querschnitt noch ein Kreis? Oder teste es mal an einer Linie, die sehr flach gegenüber der Kreisebene geneigt ist ... Oder noch besser - mach's mal und lade die Datei hier hoch. Vllt. gibt's da in Civil ja wirklich einen mir unbekannten Trick?

@bonobert: Ich würde auch Hennings LISP favorisieren. Aber wundere Dich nicht, wenn dann noch viel "Putzarbeit"  an den Stoßstellen auf Dich zukommt.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 20. Mrz. 2015 editiert.]

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

---

Zitat:

---

Original erstellt von jupa:

Aber wundere Dich nicht, wenn dann noch viel "Putzarbeit"  an den Stoßstellen auf Dich zukommt.
Jürgen

---

Soviel Putzarbeit wirds nicht: einfach noch eine Kugel mit dem selben Radius an die Schnittstellen kopieren und das Ganze dann vereinigen.

So. Nun aber ein schönes Wochenende.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Will mir jetzt nicht wirklich wegen dem ein neues programm herunterladen

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

---

@Jürgen: habs mit noch einem größeren Kreis versucht und festgestellt du hattest Recht es wird ne Ellipse  die Ausrichtung spielt also doch eine Rolle.

@Bonobert: das Lisp funktioniert Einfach in Editor kopieren und mit Dateiendung lsp abspeichern -> ins AutoCAD-Fenster ziehen und den Befehl line2cylinder aufrufen

------------------
mfg Roman

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

---

Irgendwie funktioniert das nicht mit dem lsp

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

---

Also Bonobert mit solchen Pauschalaussagen können wir nix anfangen!
Was geht konkret nicht bzw. welcher Fehler wird angezeigt

------------------
mfg Roman

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

---

Hat doch funktioniert, bei einer Linie macht er das volumen irgendwo hin, aber da kann ich es selber machen.
Wie kann ich den Durchmesser festlegen?

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

---

im Lisp 2. Zeile die 1 ersetzen durch beliebigen anderen Radius
hab hier noch fix die Kugeln mit eingefügt.

(defun c:line2cylinder ( / r as l p1 p2 eig)
  (setq r 1)
  (setq as (ssget '((0 . "LINE"))) z -1)
  (while (setq l (ssname as (setq z (1+ z))))
    (setq p1 (cdr (assoc 10 (setq eig (entget l))))
          p2 (cdr (assoc 11 eig))
    )
    (command "_cylinder" p1 r "_a" p2)
(command "_sphere" p1 r)
(command "_sphere" p2 r)
  )
)

------------------
mfg Roman

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

---

Losung.jpg

OK hab es jetzt geschafft, hab auch mit dem Durchmesser selber herausgefunden.
Ich habe ein Lösungsbild hochgelanden, wie gesagt bei einer linie hat es nicht geklappt, aber danke das mit dem LSP-Code hat echt gut geklappt. DANKE! Hab mir echt viel zeit erspart!!!

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