---

Hallo Leute,

ich brauch mal wieder einen Tip. Ich möchte mit AutoCAd 2002 eine Rohrleitung im Raum erstellen. Dazu wollte ich einen Kreis als Grundfläche über einem Pfad (Polylinie) extrudieren. Nun ist das Problem, das eine 2D-Polylinie nun mal nur über 1 Z-Achse laufen kann.
Eine 3D-Polylinie kann wiederum keine Bögen darstellen, d.h. das Rohr knickt bei Richtungsänderungen stumpf ab.
Gibt es einen Trick, ein Rohr dass in alle Richtungen verlaufen soll, in einem Stück darzustellen? Oder ist die Sache ausgereizt? Ich wollte den Pfad als Leitungsschema darstellen und die Extrusion nur bei Bedarf durchführen. So hätte ich die Möglichkeit, diese Leitungen an andere "anzuschließen" und bei Bedarf auf die richtige Länge zu kappen und erst dann durch die Extrusion richtig darzustellen.
Ich wollte dabei nicht auf irgendwelche Zusatzapplikationen zur Planung von Rohrleitungen zurückgreifen, sondern ausprobieren wie gut das mit AutoCAd selbst geht.
Wäre schön wenn wir zu einem eindeutigen Ergebnis kämen.
Schöne Grüße
Harm

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

---

PIPE3D.ZIP

Hi,
probier das mal aus, habe ich selbst noch nicht getestet.
Gruß

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

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

---

hai,

>>>Gibt es einen Trick, ein Rohr dass in alle Richtungen verlaufen soll, in einem Stück darzustellen? Oder ist die Sache ausgereizt? Ich wollte den Pfad als Leitungsschema darstellen und die Extrusion nur bei Bedarf durchführen. So hätte ich die Möglichkeit, diese Leitungen an andere "anzuschließen" und bei Bedarf auf die richtige Länge zu kappen und erst dann durch die Extrusion richtig darzustellen.<<<

nein. im nackten acad hast du nur die möglichkeit, die extrusion entlang eines pfades mit dem aktuellen bks zu machen. damit ist, wie du schon sagst, die z-richtung fest. einzige möglichkeit doch "rohrbögen" in verschiedenen raumverläufen zu erzeugen ist, das du das bks jedesmal anpaßt - was über bks 3-punkte und dem entsprechend vorher erzeugten mittellinienpfad nicht so schwer ist. allerdings mußt du natürlich an jedem pfadbeginn einen entsprechenden kreis haben... also umständlich, aber in mehreren stücken durchaus machbar. für größere anwendungen empfiehlt sich auf jeden fall eine zusatzapplikation für den anlagenbau (z.B. 3D-PIPE von Cadison), macht sich schnell bezahlt (auch wegen anderer funktionen wie stücklisten etc.).

------------------
hopethishelps

Yeti

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

---

Hallo Assi,

das ist 'ne ganz feine Sache, mit dem Pipe3d. Ich kann dort den Rohrdurchmesser, den Biegeradius und die Anzahl der Rohrbögen vorher angeben und dann zum Beispiel auf meiner 3D-Polylinie die entsprechenden Punkte anklicken. Dabei wird dann ein Rohr aus einem Polygonnetz generiert. Nachteil ist nur, das dann die Kollisionskontrolle nicht mehr möglich ist, weil es kein Volumenkörper ist. Ausserdem besteht das Rohr aus einzelnen Teilen die sich nicht zu einem einzigen umändern lassen (glaub'ich).
Ich hab' ja keine Ahnung vom lispeln, aber ich hab mir das mal angeguckt, es scheint 'ne relativ simple Sache zu sein. Die Version ist von '96, ich denke dafür ziemlich gut. Leider gibt es aber auch nichts neueres mehr davon.

Aber trotzdem vielen Dank!
Harm

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

---

Hallo Yeti,

es hilft auf jedem Fall, weißt du etwas darüber, ob das in Mechanical Desktop anders ist?
Gruß Harm

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

---

hi harm,

leider kann ich dir da auch nichts positives berichten, die extrusion verhält sich genauso. allerdings kannst du dir 3D-normteilbibliotheken integrieren. viel mehr kann ich dir mit meinen geringen MDT-kenntnissen nicht sagen ,vielleicht gibt es hier oder im MDT/inventor-forum andere spezies, die mehr wissen.
aber wenn du nur routen willst mit bestimmten biegeradien (meine vermutung), wirst du nicht um eine anlagenbau-applikation herumkommen. der neue inventor6 soll in grundzügen routingfähigkeiten haben (aber keine anlagenbaufunktionalität!).

------------------
hopethishelps

Yeti

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

---

Hy Harm
Schau dir doch mal TurboTube an. Gibt auch ein kostenloses Demo zum downloaden. Wir arbeiten viel damit denn ne preiswertere Software wirst du kaum finden - außerdem kannst mit der Demo schon alles machen - nur bis 100 Teile pro Zeichnung.
http://www.turbotube.de/

Schaus dir einfach mal an - vielleicht kannst damit was anfangen.

------------------
mfg Siegfried Schachinger

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

---

hallo zusammen
in ACAD2002 kann man auch mit einem Spline extrudieren. Vieleicht hilfts.
CU

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

grüße
Hendrichs

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

---

Ähm? Entlang einer Spline extrudieren? Sorry - aber ich glaub das geht nicht so einfach. Zumindest wär mir das neu..... Geht zumindest nicht ohne was lispeln zu müssn...

------------------
mfg Siegfried Schachinger

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

---

sorry das stimmt. mein fehler. das geht nur solange man keine kontrollpunkte in z ebene verändert.
bye

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

grüße
Hendrichs

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

---

Hallo zusammen,

ich zeichne jedesmal die Linien für den Verlauf, geh auf Polyline bearbeiten, verbinde alle Linien zu einer, und dann klappt das auch mit extrudieren an dieser Linie.

Gruss

Dieter

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

---

Hy Dieter...
Das funktionert aber immer nur für eine Polyline die in einer Ebene liegt ----> für komplexere Rohrleitungen mehrere Polylinien - was doch gleich ziemlich aufwendig wird

------------------
mfg Siegfried Schachinger

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

---

Versuchts mal mit meinem PEDIT3D (download von www.black-cad.de).
Damit entstehen aus den verschiedensten Linien (Kreisbögen Ellipsenbögen, Linien und Polylinien) linear segmentierte 3d-Polylinien und damit sollte man extrudieren können.
Viel Erfolg
Jochen

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

---

Hy Leute.....
Ich poste mal was ich mir mal gelispelt hab....

Beschreibung des Befehls "pipe_l2s" :

Man muss ein Objekt auswählen - dann einen Durchmesser des Rohres angeben. Dann werden alle Linien und Bögen die auf dem Layer des geklicken Objekts liegen mit einem Rohrstück bzw. Bogen versehen.
Ist noch das erste Stadium - daher noch etwas unausgereift und ohne Fehlerroutine etc... aber vielleicht kanns ja außer mir noch jemand brauchen...

(defun c ipe_l2s ()
  (command "_ucs" "_world")
  (setvar "pickstyle" 0)
  (while (not (setq obj (entsel))))
  (setq lrohr (cdr (assoc 8 (entget (car obj)))))
  (setq DN (getreal "\nRohrdurchmesser: "))
  (setq en (entnext))
  (while en
    (setq en_0entity (cdr (assoc 0 (entget en))))
    (setq en_8entity (cdr (assoc 8 (entget en))))
    (if (= en_8entity lrohr)
      (progn
      (if (= en_0entity "LINE")
        (progn
  (command "_ucs" "_world")
  (setq en_ap (cdr (assoc 10 (entget en))))
  (setq en_ep (cdr (assoc 11 (entget en))))
  (setq en_apx (car en_ap))
  (setq en_apy (cadr en_ap))
  (setq en_apz (caddr en_ap))
  (setq en_epx (car en_ep))
  (setq en_epy (cadr en_ep))
  (setq en_epz (caddr en_ep))
  (setq en_x (- en_epx en_apx))
  (setq en_y (- en_epy en_apy))
  (setq en_z (- en_epz en_apz))
  (setq en_xy (sqrt (+ (expt en_x 2) (expt en_y 2))))
  (setq angle_z (/ (* (angle (list en_apx en_apy 0.0) (list en_epx en_epy 0.0)) 180) PI))
  (setq angle_y (/ (* (angle (list 0.0 0.0 0.0) (list en_xy en_z 0.0)) 180) PI))
  (command "_ucs" "_m" en_ap "_ucs" "z" angle_z "_ucs" "y" (- 90 angle_y))
  (setvar "clayer" en_8entity)
  (command "_circle" (list 0.0 0.0 0.0) (/ DN 2.0))
  (command "_extrude" (entlast) "" "_p" en)
  )
) ;end if
      (if (= en_0entity "ARC")
(progn
  (command "_ucs" "_obj" en)
  (setq en_rad (cdr (assoc 40 (entget en))))
  (command "_ucs" "_m" (list en_rad 0.0 0.0) "_ucs" "x" 90)
  (setvar "clayer" en_8entity)
  (command "_circle" (list 0.0 0.0 0.0) (/ DN 2.0))
  (command "_extrude" (entlast) "" "_p" en)
  )
);end if
      );end progn
      ) ;end if
    (setq en (entnext en))
    ) ;end while
  ) ;end defun

Hoffe jemanden geholfen zu haben

------------------
mfg Siegfried Schachinger

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

---

ups... die erste zeile hat das forum verwurschtelt *G*

das  soll heißen ein ":" und ein "p"

------------------
mfg Siegfried Schachinger

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

---

So jetzt gibts ne überarbeitete Version...
2 Befehle
layer2pipe ---->Linien, Bögen und Polylinien eines Layers mit Rohr überzogen
ss2pipe ---->Objekte eines Auswahlsatzes werden mit Rohr überzogen

CODE:

(defun c:layer2pipe ()
(setq pickmode (getvar "pickstyle"))
(setvar "pickstyle" 0)
(command "_ucs" "_world")
(while (not (setq obj (entsel "\nObjekt mit dem Rohr-Layer wählen: "))))
(setq lrohr (cdr (assoc 8 (entget (car obj)))))
(setq DN (getreal "\nRohrdurchmesser: "))
(setq en (entnext))
(while en
(setq en_0entity (cdr (assoc 0 (entget en))))
(setq en_8entity (cdr (assoc 8 (entget en))))
(if (= en_8entity lrohr)
(progn
(if (= en_0entity "LINE")
(progn
(command "_ucs" "_world")
(setq en_ap (cdr (assoc 10 (entget en))))
(setq en_ep (cdr (assoc 11 (entget en))))
(setq en_apx (car en_ap))
(setq en_apy (cadr en_ap))
(setq en_apz (caddr en_ap))
(setq en_epx (car en_ep))
(setq en_epy (cadr en_ep))
(setq en_epz (caddr en_ep))
(setq en_x (- en_epx en_apx))
(setq en_y (- en_epy en_apy))
(setq en_z (- en_epz en_apz))
(setq en_xy (sqrt (+ (expt en_x 2) (expt en_y 2))))
(setq angle_z (/ (* (angle (list en_apx en_apy 0.0) (list en_epx en_epy 0.0)) 180) PI))
(setq angle_y (/ (* (angle (list 0.0 0.0 0.0) (list en_xy en_z 0.0)) 180) PI))
(command "_ucs" "_m" en_ap "_ucs" "z" angle_z "_ucs" "y" (- 90 angle_y))
(setvar "clayer" en_8entity)
(command "_circle" (list 0.0 0.0 0.0) DN)
(command "_extrude" (entlast) "" "p" en)
)
) ;end if
(if (= en_0entity "ARC")
(progn
(command "_ucs" "_obj" en)
(setq en_rad (cdr (assoc 40 (entget en))))
(command "_ucs" "_m" (list en_rad 0.0 0.0) "_ucs" "x" 90)
(setvar "clayer" en_8entity)
(command "_circle" (list 0.0 0.0 0.0) DN)
(command "_extrude" (entlast) "" "_p" en)
)
);end if
(if (= en_0entity "POLYLINE")
(progn
(command "_copy" en "" (list 0.0 0.0 0.0) (list 0.0 0.0 0.0))
(command "_explode" (entlast) "")
)
);end if
);end progn
) ;end if
(setq en (entnext en))
) ;end while
(setvar "pickstyle" pickmode)
(princ)
) ;end defun

(defun c:ss2pipe ()
(setq pickmode (getvar "pickstyle"))
(setvar "pickstyle" 0)
(command "_ucs" "_world")
(princ "\nObjekte wählen: ")
(setq ss (ssget))
(setq DN (getreal "\nRohrdurchmesser: "))
(setq indx -1)
(repeat (sslength ss)
(setq indx (1+ indx))
(setq en (ssname ss indx))
(setq en_0entity (cdr (assoc 0 (entget en))))
(setq en_8entity (cdr (assoc 8 (entget en))))
(if (= en_0entity "LINE")
(progn
(command "_ucs" "_world")
(setq en_ap (cdr (assoc 10 (entget en))))
(setq en_ep (cdr (assoc 11 (entget en))))
(setq en_apx (car en_ap))
(setq en_apy (cadr en_ap))
(setq en_apz (caddr en_ap))
(setq en_epx (car en_ep))
(setq en_epy (cadr en_ep))
(setq en_epz (caddr en_ep))
(setq en_x (- en_epx en_apx))
(setq en_y (- en_epy en_apy))
(setq en_z (- en_epz en_apz))
(setq en_xy (sqrt (+ (expt en_x 2) (expt en_y 2))))
(setq angle_z (/ (* (angle (list en_apx en_apy 0.0) (list en_epx en_epy 0.0)) 180) PI))
(setq angle_y (/ (* (angle (list 0.0 0.0 0.0) (list en_xy en_z 0.0)) 180) PI))
(command "_ucs" "_m" en_ap "_ucs" "z" angle_z "_ucs" "y" (- 90 angle_y))
(setvar "clayer" en_8entity)
(command "_circle" (list 0.0 0.0 0.0) DN)
(command "_extrude" (entlast) "" "p" en)
)
) ;end if
(if (= en_0entity "ARC")
(progn
(command "_ucs" "_obj" en)
(setq en_rad (cdr (assoc 40 (entget en))))
(command "_ucs" "_m" (list en_rad 0.0 0.0) "_ucs" "x" 90)
(setvar "clayer" en_8entity)
(command "_circle" (list 0.0 0.0 0.0) DN)
(command "_extrude" (entlast) "" "_p" en)
)
);end if
);end repeat
(setvar "pickstyle" pickmode)
(princ)
)

Jezt ne Frage an alle Lispler:
Entlang einer Polyline kann ich ja nicht extrudieren - hab das jetzt so gelöst das die Polyline kopiert wird - aufgelöst und dann entlang der Linien und Bögen extrudiert. Das funktionier weil die neuen Objekte dann ja ans Ende angestellt werden und mit (entnext en) am Schluss an die Reihe kommen. Muss mir aber noch was überlegen wie ich das bei nem Auswahlsatz hinbekomme etc.... Daher meine Frage:

Wie kann ich die Objekte die entstehen wenn ich eine Polyline, Block etc. auflöse in einen Auswahlsatz bringen???

Ach ja die 2 Lispbefehle werd ich noch erweitern wenn ich mal Zeit hab (eventuell auch Spline-extrudieren mit "Teilen" oder so - schwebt mir vor). Wer interesse hat soll mir ne Nachricht schicken - maile es dann wenn ich fertig bin.

------------------
mfg Siegfried Schachinger

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

---

pipe.zip

*schäm*.... war ein Fehler drin.... Rohraußendurchmesser wurde als Radius genommen...
Anbei richtiggestellt

------------------
mfg Siegfried Schachinger

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

---

Vielen Dank!!

das ding funktioniert sogar mit 3D-Polylinien.
you made my day! 

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

viele grüße
carambita

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

---

hallo,

kann mann es so umbauen das man die wandstärke auch eingeben kann.
gefragt von einem lispanfänger.

gruß
ZEC

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

---

Hallo ZEC, erstmal Glückwunsch für einen so alten Beitrag. Warum extrudierst Du nicht zwei Kreise? Einen mit dem Innenradius und einen mit dem Außenradius.

Grüße Lutz

------------------
Glück Auf!

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

---

hallo lutz,

ist ok, aber ich möchte auch bögen in wandstärke zeichnen

gruß
ZEC

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