---

Hallo,

kennt jemand ein Tool mit dem man die Neigung von 2D Linien im Verhältnis 1:n bemaßen kann, das also einen entsprechenden Maßtext entlang der Linie erzeugt?

------------------
Mit freundlichen Grüßen
Holger Saul

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

---

Hallo Holger,
wo soll der Wert für die Neigung denn herkommen, willst Du den jedesmal per Hand eintippen, oder soll dieser beispielsweise aus den z-Koordinaten von 3D-Punkten (Blöcken) am Anfangs- und Endpunkt der Linie berechnet werden?

------------------
viele Grüße

Jörn

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

---

oder sowas:
(defun c:Neigung()
  (if(and(setq LINIE(car(entsel)))
        (setq LINIE(entget LINIE))
        (=(cdr(assoc 0 LINIE))"LINE")
    )
    (progn
      (setq W (angle(cdr(assoc 10 LINIE))(cdr(assoc 11 LINIE))))
      (setq TEXT (strcat"1:" (rtos(/ 1.0 (atan W))2 2)))
      (command "_text" (cdr(assoc 10 LINIE)) 3.0 (/(* 180.0 W)Pi) TEXT)
    )
  )
)

ohne Error ... bloß für Linienneigung im 1. Quadranten ..+ Texstil mit Texthöhe 0 ... usw.  bloß halt ein Ansatz.

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

---

@ Jörn,

ne viel einfacher, der Winkel in der XY soll an die jeweilig gewählte Linie geschrieben werden.

@ CADMium
bestimmt gut gemeint, aber ich kann z. Zt. wenig mit LISP anfangen, die Zeilen geben nur ein nil zurück.

Danke.

------------------
Mit freundlichen Grüßen
Holger Saul

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

---

Hallo Holger,
jetzt bin ich ein bißchen verwirrt, ich schätze also einfach mal:
Du möchstest die Steigung angeschrieben haben an eine Linie im Schnitt, also, beispielsweise 1m Höhe auf 10m Länge = 1: 0.1
Wenn es das ist habe ich bei CADmiums Beispiel 2 Zeilen geändert, das mußt Du noch mal testen. Und wenn Du nicht weißt, wie Du das LISP starten sollst: Codes als *.lsp Datei speichern, dann über APPLOAD laden, und dann in der Befehlseigabe mit der Eingabe "Neigung" starten. Du wirst aufgefordert Objekte zu wählen, Du wählst eine Linie, und dann wird der Text angeschrieben.
Und wenn Du den Rückgabewert nil erhalten hast und es ist nichts passiert, dann könnte es sein, daß Dein aktueller Layer ausgeschaltet ist. probier einfach nochmal.

(defun c:Neigung()
  (if(and(setq LINIE(car(entsel)))
        (setq LINIE(entget LINIE))
        (=(cdr(assoc 0 LINIE))"LINE")
    )
    (progn
      (setq W (angle(cdr(assoc 10 LINIE))(cdr(assoc 11 LINIE))))
      (setq TEXT (strcat"1:"
(rtos(abs(/(-(cadr(cdr(assoc 10 LINIE)))(cadr(cdr(assoc 11 LINIE))))
(-(car(cdr(assoc 10 LINIE)))(car(cdr(assoc 11 LINIE))))))2 2)))
;(rtos(/ 1.0 (atan W))2 2)))
      (command "_text" (cdr(assoc 10 LINIE)) 3.0 (/(* 180.0 W)Pi) TEXT)
    )
  )
)

------------------
viele Grüße

Jörn

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

---

Zitat:

---

Original erstellt von joern bosse:

Du möchstest die Steigung angeschrieben haben an eine Linie im Schnitt, also, beispielsweise 1m Höhe auf 10m Länge = 1: 0.1
Wenn es das ist habe ich bei CADmiums Beispiel 2 Zeilen geändert, das mußt Du noch mal testen.

---

Hallo Joern!

das was wu erklären hast, wie mal LISP installieren könnte, finde ich supi. Dake! jetzt weiss ich bescheid.
Nun verstehe ich noch nicht wie man Text ändern kann... 1:10 anstatt 1:0.1 ...
was mus geändert werden? wo? welche Zeilen?

selbst per Fuß tippen/ändern ist ja auch blöd

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

---

Hi Milka,

wie man Lisp installiert und läd sagt dir der Benutzer FAQ... Lass einfach mal in der erweiterten Suche nach ihm Fahnden...

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

Yvonne

Besucht uns auf der inoffiziellen ADT-Help-Site

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

---

Hallo Mitstreiter,

danke erstmal für alle Beiträge. Wie man Lisp lädt habe ich inzwischen mitbekommen, konnte mich aber mit Lisp selbst noch nicht beschäftigen.
Die zeilen von Joern funzen zwar, geben aber, wie milka ebenfalls feststellt, nicht das gewünschte Ergebnis dar. Jede Linie hat doch als Eigenschaft einen Winkel zumindest in der XY-Ebene. Den Kehrwert des Tangens dieses Winkels (abs) möchte ich hinter das "1:" geschrieben haben (45° ergibt 1:1,0 oder 33,69° ergibt 1:1,5). Joerns Zeilen geben z. B. bei 33,69° "1:0,67" aus also genau den Kehrwert von 1,5.
Was muss ich in den Zeilen ändern, damit aus "1:0,67" "1:1,5" wird?
Ich verspreche, mich in Zukunft mal ein wenig mit Lisp zu beschäftigen.

------------------
Mit freundlichen Grüßen
Holger Saul

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

---

Zitat:

---

Original erstellt von TB3:

Was muss ich in den Zeilen ändern, damit aus "1:0,67" "1:1,5" wird?

---

Ich denke ich habs gefunden.

(defun c:Neigung()
  (if(and(setq LINIE(car(entsel)))
        (setq LINIE(entget LINIE))
        (=(cdr(assoc 0 LINIE))"LINE")
    )
    (progn
      (setq W (angle(cdr(assoc 10 LINIE))(cdr(assoc 11 LINIE))))
      (setq TEXT (strcat"1:"
(rtos(/ 1 (abs(/(-(cadr(cdr(assoc 10 LINIE)))(cadr(cdr(assoc 11 LINIE))))
(-(car(cdr(assoc 10 LINIE)))(car(cdr(assoc 11 LINIE)))))))2 2)))
;(rtos(/ 1.0 (atan W))2 2)))
      (command "_text" (cdr(assoc 10 LINIE)) 3.0 (/(* 180.0 W)Pi) TEXT)
    )
  )
)

------------------
Mit freundlichen Grüßen
Holger Saul

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

---

Zitat:

---

Original erstellt von TB3:
Ich denke ich habs gefunden.

---

klasse!!!

aber wie hast du es sgeschafft?
ich sehe kein Unterschied, trotzdem ist es genau das was man braucht

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