---

Hallo Cadgemeinde,

ich habe im Forum vergebens gesucht, deswegen mal die Frage an Euch.

Gibt es eine Möglichkeit, die Länge einer Linie über Eigenschaften zu ändern? Das Feld ist ja ausgegraut und kann keinen Wert eingeben.

Danke schon mal für Eure Antwort.

Gruß aus Waldbrunn

Tarl Cabot

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

---

High,
Länge ändern ok. Aber worauf bezogen? Bleibt der Startpunkt gleich? Oder der Endpunkt? Vielleicht auch der Mittelpunkt? Eine "einfache" Längenänderung hat ohne Angabe weiterer Parameter kein eindeutiges Ergebnis zur Folge und kann deshalb nicht einfach durch Eigenschaften ändern vorgenommen werden.

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Nein, das ist eine aus Abstand von Anfangs- und Endpunkt berechnete Eigenschaft. ( nach welcher Seite soll denn die Linie verlängert werden ? )

------------------
  - 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

---

Hmm, ihr habt natürlich recht.
Mein Problem an der Sache ist, das ich ca. 2000 Bohrungskreuze habe, welche kleiner werden müssen, da sie zum Teil über die Blechaußenkante stehen. In diesem Fall müsste die Längenänderung natürlich vom Mittelpunkt aus geschehen.
Trotzdem Danke für Eure schnelle Antwort!
Vielleicht fällt mir ja eine andere Lösung ein.

Gruß

Tarl Cabot

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

---

2000 Kreuze ? also 4000 Linien ? Tja wenn das Blockrefenzen einer Blockdefinition wären, ginge das über den Skalierfaktor.

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Leider ist es kein Block.
Die Zeichnung ist von einem anderen Mitarbeiter und ist in einzelnen Linien gezeichnet.

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

---

Hallo,

wäre es evtl. ein Ansatz, alle senkrechten und waagrechten Linien in Deiner Zeichnung mit einer bestimmten Länge auf eine neue Länge ausgehend vom Mittelpunkt zu definieren?

Wenn ja, melde Dich. So eine Funktion ist bei uns existent. Wir könnten Sie Dir zukommen lassen.

------------------
Mit freundlichen Grüßen

Wolfgang Gruber
www.syscad.info

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

---

Weil gerade Ostern  war :
Probiers mit folgendem ( schnell zusammengestoppeltem) Lisp:

(defun c:ELTA-L(/ AWS FAKTOR INDEX OBJ) 
  (if(and(or(setq AWS(ssget "_I" '((0 . "LINE"))))
            (setq AWS(ssget      '((0 . "LINE"))))
         )
         (or(setq FAKTOR(getreal "\nFaktor <0.5> :"))
            (setq FAKTOR 0.5)
         )
     )   
    (progn
      (setq INDEX -1)
      (repeat(sslength AWS)
        (setq OBJ(entget(ssname AWS(setq INDEX(1+ INDEX)))))       
        (setq P1 (cdr(assoc 10 OBJ)))
        (setq P2 (cdr(assoc 11 OBJ)))
        (setq PM (mapcar '* (mapcar '+ P1 P2) '(0.5 0.5 0.5)))
        (setq V  (mapcar '*(mapcar '- PM P1)(list FAKTOR FAKTOR FAKTOR)))
        (setq P1 (mapcar '- PM V))
        (setq P2 (mapcar '+ PM V))
        (setq OBJ (subst(cons 10 P1)(assoc 10 OBJ)OBJ))
        (setq OBJ (subst(cons 11 P2)(assoc 11 OBJ)OBJ))
        (entmod OBJ)
      ) 
    )
  ) 
)

------------------
      - 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

---

WOW! 

Ich Danke Dir Thomas!
Diese schnell zusammengestellte Lisp funktioniert perfekt! Wenn ich das nur auch könnte... 
Ich bin in Sachen lisp aber erst im Anfangsstadium.

Danke nochmal

Gruß

Tarl Cabot

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

---

Zitat:

---

Original erstellt von Tarl Cabot:
...Wenn ich das nur auch könnte...  
Ich bin in Sachen lisp aber erst im Anfangsstadium...

---

Dann ist das hier vorgestellte vielleicht was für dich?!!

------------------
  - 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

---

Na da bin ich mir sogar sicher. 
Das werde ich mir auf jedenfall auch besorgen.
Danke für den Hinweis.

Gruß

Tarl Cabot

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