---

Hallo Zusammen,

ich benötige ein Befehlswerkzeug für AutoCad 2010/12, mit dem ich Linien/ Polylinien um 100mm verlängern kann. Kann mir da jemand auf die Sprünge helfen.

Vielen Dank im voraus.

Viele Grüße Dirk

------------------
TM Popp

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

---

_lengthen -> delta -> gewünschtes Maß -> Linienende anklicken...

Lothar

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

---

Hallo Lothar!
funktioniert!
Vielen Dank für deine Hilfe
Gruß Dirk

------------------
TM Popp

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

---

Wie kann ich diesen Befehl auf mehrere Linien anwenden? Ich möchte gerne alle Linien, die ich habe 120Prozent verlängern, damit diese sich überschneiden...es sind leider über 10.000 einzelne Linien, die kann ich leider nicht alle seperat anklicken...

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

---

Linien oder Polylinien?
Welches Ende soll verlängert werden - beide?

Helfen kann da nur ein Makro.

Wenn es nur um eine visuelle Aufbesserung geht, dann hilft vielleicht auch der visuelle Stil "skizzenhaft". http://exchange.autodesk.com/autocad/deu/online-help/browse#WS1a9193826455f5ffa23ce210c4a30acaf-772c.htm

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Linienverlangert.jpg

Es geht bei dem Problem um ein Programm, welches mit Hilfe dieser Linien Bewegungsstudien von Menschen in Hamburg berechnet. Die Linien sind nachgezeichnete Straßen (fast ganz Hamburg, also sehr viele Straßen. Damit dies funktioniert, müssen sich die Linien überschneiden (siehe Anhang: oben nachgezeichnet, unten überschneidend). Es müssen Polylinien sein.

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

---

Wie wäre es mit neu zeichnen oder STRecken?

Neu zeichnen geht manchmal schneller als lange zu überlegen, den Befehl zu suchen und die Optionen durch zu forsten.

Ein Makro, wenns häufig genug vorkommt, tut auch gute Dienste!

LG Werner

------------------
strukturiertes Zeichnen mit Werner-Maahs

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

---

Hallo,
weis nicht ob ich das richtig verstanden haben!
Bestehtehen denn in deiner Abbildung die oberen Linien aus 2 langen zickzack Polylinien oder sind das 9 einzelne Polylinien?
An den Seiten links und rechts sind die Linien aber nicht verlängert oder zumindest nur in eine Richtung während die in der Mitte sich in zwei Richtungen verlängern. Und für denn Fall das es nur 2 P-linien sein sollten müssen diese ja hinter den neuen Schlittpunkten wieder rückläufig sein und hätten da eine doppelte länge.
Eine Programierung würde da Helfen.

Ansonsten könnte man bei einzelnen Linien noch raten.
varia mit Faktor auf den Mittelpunkt.

   

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Hallo,

Es sind einzelne Polylinien. Makros schreiben habe ich leider nicht drauf. Ich habe jetzt schon begonnen die Linien nachzuzeichnen...habe nach 5 Stunden schon fast die Hälfte...

Danke für die Hilfe

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

---

Ein Makro Schreiben dauert dafür ca. 20 min.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Das hatte ich mir jetzt verkniffen

Zitat:

---

Original erstellt von CAD-Huebner:
Ein Makro Schreiben dauert dafür ca. 20 min.

---

ist wohl bei dem schon geleisteten Arbeitsaufwand zu frustrierend. 

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Es dauert nur 15 min, wenn es Quick & Dirty (ohne Fehlerprüfung uvm. gemacht wird).
(vl-load-com)
; verlängert Polylinien um 120 %
; Udo Hübner 13.05.12
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Code:

---

(defun c:len120 ( / ssp cnt spt ept closed)
  (if (setq ssp (ssget "X" (list (cons 0 "lwpolyline"))))
    (progn
      (setq cnt (sslength ssp))
      (while (>= (setq cnt (1- cnt)) 0)
        (setq ename (ssname ssp cnt)
              vlaxename (vlax-ename->vla-object ename)
              spt (vlax-curve-getStartPoint vlaxename)
              ept (vlax-curve-getEndPoint vlaxename)
              closed (vlax-curve-isClosed vlaxename)
        )
        (if (not closed)
          (progn
            (command "_lengthen" "_p" 120 (list ename spt)(list ename ept) "")
          )
        )
      )
    )
  )
) 

---

Eigentlich sehe ich das aber als kostenpflichtige Auftragsarbeit und nicht mehr als eine Gefälligkeit mit Lerneffekt auf CAD.de an, denn es spart dir beim laufenden Auftrag ja einige Stunden Arbeit - kannst ja vielleicht 20€ für einen guten Zweck spenden.
Einige Mitglieder hier bei CAD.de leben davon, anderen die Arbeit durch Programmierleistungen zu erleichtern. Das sollte grundsätzlich auch honoriert werden, sonst werden solche Gefälligkeiten irgendwann ausbleiben.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Bei mir handelt es sich zum Glück nicht um einen Auftrag, sondern um ein Studiumsprojekt, da kommt es nicht unbedingt auf ökonomisches Arbeiten an. Ich bin auch nicht davon ausgegangen, dass mir jemand eine Makro schreibt... vielen Dank.

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

---

vielleicht kommt folgendes: >> klick << Deinen Vorstellungen etwas näher. Das Tool verlängert + verkrümmt vorhandene Linien;
prima, um mal eben schnell eine Zeichnung wie handgezeichent aussehen zu lassen  .

------------------
Grüße Karin

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