---

Hallo !

Ich habe in einer Zeichnung mehrere Linien die zusammenhängen und
eine leichte Kurve bilden (gesprengte Polylinie).

Gibt es eine Möglichkeit alle diese Linien gleichzeitig zu verdrehen bzw.
auszurichten, dass alle z.B. den Winkel "0" haben?
Dass die Linien dann nicht mehr zusammenhängen ist nicht schlimm...

Ich dachte man kann alle markieren und im Eigenschaftenfenster einfach den Winkel
für alle eingeben, funktioniert aber nicht...

Vielen Dank!
Matthias

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

---

Dann ist ein Beispil sehr hilfreich für uns.

------------------
Gruß Stefan

Nur Feiglinge speichern zwischen.

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

---

Linien_ausrichten.jpg

OK, hier das Beispiel...

Matthias

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

---

Quick und Dirty Fingerübung :

(defun C:LINEW0(/ AWS OBJ  P1 P2 Y)
  (if(setq AWS(ssget '((0 . "LINE"))))
    (mapcar
      '(lambda(X / OBJ)
        (if(and(=(type (setq OBJ(cadr X)))'ENAME)
                (setq OBJ (entget OBJ))
                (setq P1(cdr(assoc 10 OBJ)))
                (setq P2(cdr(assoc 11 OBJ)))
                (setq Y(/(+ (cadr P1) (cadr P2))2.0))
                (setq P1(list (car P1) Y (caddr P1)))
                (setq P2(list (car P2) Y (caddr P2)))
                (setq OBJ(subst(cons 10 P1)(assoc 10 OBJ) OBJ))
                (setq OBJ(subst(cons 11 P2)(assoc 11 OBJ) OBJ))
            )
          (entmod OBJ)                       
        )           
      ) 
      (ssnamex AWS)
    )
  )
) 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Nur so aus reiner Neugier: Was macht dieses Vorgehen für einen Sinn? Oder anders gefragt: Was passiert im weiteren mit diesen Linien?

------------------
Gruß

Michi

"Es ist schon alles gesagt, nur noch nicht von allen." (Karl Valentin)

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

---

Danke CADmium, die LISP funktioniert.
Allerdings wird die Länge der Linien leicht verändert, d.h. es sind
nicht mehr die Originallängen der einzelnen Linien..!
Woran liegt das...?

Wofür ich das brauche? Also:

Für einen Öltank mit ovalen Aussenflächen (eiförmig) soll eine Inhaltsskala erstellt werden.
Das heißt: Man will den Inhalt in Abhängigkeit des Ölstandes wissen, und zwar alle
Zentimeter (Höhe).

Ich habe also zunächst den Öltank genau vermessen und mit meinen geringen
Kenntnissen in diesem Bereich ein 3-D-Modell erstellt.
Dann habe ich das Modell alle 1 Zentimeter in der Höhe abgeschnitten und mir das jeweilige Volumen
anzeigen lassen.
Klappte prima und war sehr genau (genaue Befüllungen haben das bestätigt).

Nun möchte ich eine Art Skala erstellen, welche ich an den Tank kleben kann um
den jeweiligen Stand gleich (ohne die Höhe zu messen) abzulesen.

Dazu brauche ich quasi die verebnete Abwicklung der Aussenwölbung mit meinen
"Höhenzentimeterteilungen", um das ganze dann zu beschriften, auszuplotten usw.

Ich hoffe das war einigermaßen verständlich...? :-)

Matthias

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

---

Meine 2 cents zu dem Thema:

1. Für sowas hat man Schwimmer-Skalen erfunden...  (sind einfache Messuhren mit cm Einteilung und einer Schnur an deren Ende ein Schwimmer befestigt ist - wird am Tank befestigt und der Schwimmer verändert die Länge der Schnur >>> Pegelanzeige)

2. Das von dir gebrachte Beispiel hat einen "Nulldurchgang" - sobald bei dir ein gewisser Stand erreicht wurde wird es wieder mehr... Bist du dir sicher, dass das so richtig ist?

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

www.autocadbuch.de

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

---

CADmiums Zeilen drehen die Linien nicht, sondern setzen die Y-Koordinaten der Anfangs- und Endpunkte auf den Wert des Linienmittelpunkts.

------------------
Gruß

Michi

"Es ist schon alles gesagt, nur noch nicht von allen." (Karl Valentin)

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

---

Oeltank.jpg

Also: Ich brauche keine Vorrichtung um die Füllhöhe zu messen (Pegel).
Das ist kein Problem. Wie gesagt, ich habe für jeden Zentimeter Füllhöhe
den Inhalt bzw. das Volumen.

Ich möchte aussen an den Tanke eine Skala kleben. Und durch die Eiform ändert sich
bei jedem Höhenzentimeter die Länge der Linie am Tank.
Ich habe mal ein Beispiel rangehängt.

Ich bin nun den Verlauf entlang der Tankwölbung mit einer Polylinie abgefahren.
Und deise PL möchte ich nun in eine Ebene abwickeln, um die Skala zu erstellen.
Beschriftet werden soll die Skala dann gleich mit der Füllmenge, aber das ist ja
kein Problem...

Also: die vielen kleinen Striche müssen ihre Länge behalten, sollen aber in der
Ebene aneinander gereiht werden.

Matthias

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

---

.. da wäre die Original Polylinie aber eine bessere Ausgangssituation zum Abwickeln .... aber nicht mehr heute

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Oltank_Abwicklung_Skala.dwg

Morgen !

Hier das Original. Die Polylinie ist blau.
Sicher wäre es noch genauer die wahre Aussenlinie abzuwickeln.
Allerdings brauche ich darauf auch die Höhenzentimeter-Einteilung...

Danke!
Matthias

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

---

Habe mal noch etwas recherchiert...

Das Tool von Cadwiesel "plab.lsp" wäre doch eigentlich das was ich suche (laut Beschreibung).
Leider funktioniert es bei mir nicht. Auch nicht wenn ich VL-LOAD-COM vorher
in die Befehlszeile tippe...

Hat jemand eine Idee..?

DANKE!
Matthias

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

---

Welche Fehlermeldung kommt? Nur ein "es funktioniert nicht" reicht einfach nicht aus als Problembeschreibung...
Hast Du das (vl-load-com) auch MIT den Klammern geschrieben?

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

---

Sorry... ich Dussel... ist halt Freitag :-)

Also mit den Klammern funktioniert das Tool jetzt.
Allerdings ist das Ergebnis nicht das Erwartete. die Längen der
einzelnen Linien sind völlig verändert...

Kann das mal jemand bei sich mit meinem Beispiel prüfen..?

Danke!
Matthias

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

---

Zitat:

---

Original erstellt von dias:

Allerdings ist das Ergebnis nicht das Erwartete. die Längen der
einzelnen Linien sind völlig verändert...

---

Kann ich bestätigen. Die Gesamtlänge stimmmt, aber nicht mehr die Abstände zwischen den einzelnen Stützpunkten.

------------------
Gruß

Michi

"Es ist schon alles gesagt, nur noch nicht von allen." (Karl Valentin)

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

---

Zum fast Feierabend:

(defun c:PLABWICKLUNG(/ PL DA VPL KO X0 Y0 L NKO)
  (vl-load-com)
  (if(and(setq PL(car(entsel "\nPolylinie :")))
        (setq DA(entget PL))
        (=(cdr(assoc 0 DA))"LWPOLYLINE")
        (setq VPL(vlax-ename->vla-object PL))
        (setq KO(vl-remove-if-not '(lambda(X)(=(car X)10))DA))
        (setq KO (mapcar 'cdr KO))
    )
    (progn     
      (setq X0(car (car KO)))
      (setq Y0(cadr(car KO)))
      (setq L 0)
      (repeat(length KO)
        (setq NKO(cons (+ X0 L)NKO))
        (setq NKO(cons Y0 NKO))       
        (if(cadr KO)(setq L(+ L(distance (car KO)(cadr KO)))))
        (setq KO(cdr KO))       
      )
      (setq NKO
        (vlax-safearray-fill
          (vlax-make-safearray vlax-vbdouble (cons 0 (1- (length NKO))))
          (reverse NKO)
        )
      )
      (vla-put-coordinates VPL NKO)
    ) 
  )
  (princ)
) 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Suuuper !!  Es funktioniert... !!

Ich danke dir wie verrückt und wünsche dir ein schönes Wochenende!!
Genau solche Leute wie dich braucht unser Land...

Matthias

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

---

Vielen Dank für den Hinweis - Ich hab das Tool korrigiert

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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