---

Hi

Ich will gern Profile beschriften. Der Text soll um 90Grad gedreht an pickpunkt liegen mit der Darstellung

0/125 12.575
soll heissen

Strecke 125 m vom 0-punkt und 12.575 über 0

Ich bin der Annahme dass man einen String "125" in "0/125" umwandeln kann.

Mein Versuch schaut so aus

Code:

---

(defun c:Demo ()
  (setq fak (getreal "\nHöhenfaktor eingeben ! "))
  (while
    (setq pt (getpoint "\nKlick Punkt ! "))
    (setq x (car pt))
    (setq y (cadr pt))
    ;
    (setq x (rtos (/ x 1000) 2 3))
    (setq y (rtos (* fak y) 2 3))
    ;
    (if (= pt)
      (command "text" pt (getvar "textsize") 90
      (strcat x y))
      )
    )
  )

---

------------------
Gruss Dirk

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

---

soweit ich es überblicke, sollte es laufen, wenn Du einfach (strcat "0/" x " " y)) schreibst.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Nja mein Beispiel sollte es nur veranschaulichen. Ich habe 50m 100m 500m 1000m 2000m
0/050 0/100 0/500 1/000 2/000

Mein Ansatz war ersteinmal den Wert der Stecke durch 1000 zu dividieren dann komme ich auf die Kilometereiheit

Wenn ich (substr "0.05" 1) eingebe erhalte ich "0.05"

Bei (substr "0.05" 2) bekomme ich ".05" - die Metereinheiten

Wie bekomme ich jedoch die Kilometer rein?

------------------
Gruss Dirk

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

---

(substr "1.05" 1 1)

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Danke !

Jetzt komme ich nicht richtig weiter. Man muss es sich so vorstellen: Ich habe eine Profillinie die um einen bestimmten Höhenfaktor verzerrt ist. Ich möchte mit meiner Funktion folgendes erreichen. Zuerst eine Linie vom gewählten Koordinatenursprung zu zeichnen und anschliessend die Höhenpunkte entlang der Profillinie anzuklicken und eine Lotrechte Linie mit einem Bemassungstext zu zeichnen, der aus Strecke und Höhe besteht.

Es funktioniert soweit
1) Ursprungslinie wird gezeichnet
2) Bemassungstext wird richtig gesetzt
3) (Problem) Die Lotrechte Linie wird irgendwo gezeichnet. Muss hier eine Transformation gerechnet werden ?

Code:

---

(defun koor ()
  (command "ucs" "")
  (setq p1 (getpoint "\nKlick koordinatenursprung"))
  (setq p2 (+ (car p1) 1000))
  (setq p2 (cons p2 (cdr p1)))
  (progn
    (entmake
      (list
(cons 0 "LINE")
(cons 8 (getvar "clayer"))
(cons 10 p1)
        (cons 11 p2)
)
      )
    (command "ucs" "o" p1 )
    )
  )

(defun c:zp ()
  (koor)
  (setq fak (getreal "\nHöhenfaktor eingeben ! "))
  (while
    (setq pt (getpoint "\nKlick Punkt ! "))
    (setq x (car pt))
    (setq y (cadr pt))
    ;
    (setq x (rtos (/ x 1000) 2 3))
    (setq y (rtos (* fak y) 2 3))
    ;
    (setq p2 (list (car pt) 0 0))
    (if (= pt)
      (progn
(entmake
  (list
    (cons 0 "LINE")
    (cons 8 (getvar "clayer"))
    (cons 10 pt)
            (cons 11 p2)
    )
  )
(command "text" pt (getvar "textsize") 90
      (strcat (substr x 1 1) "/" (substr x 3 3) " " y))
)
      )
    )
  )

---

[Diese Nachricht wurde von cadplayer am 09. Mrz. 2012 editiert.]

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

---

Was mir merkwürdig vorkommt, der Text wird an richtiger Stelle gezeichnet die Linie jedoch nicht, obwohl ich den selben Punkt abfrage?

------------------
Gruss Dirk

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

---

Das liegt daran, dass Du das BKS änderst, mit (getpoint) BKS-Koordinaten erhältst, aber mit (entmake ...) diese als WKS Koordinaten benutzt.
Entweder rechnest Du die Punkte um (trans... ) bevor Du mit entmake arbeitest, oder Du verwendest (command "_line" ...).

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Super danke mein Wunsch ist jetzt in Erfüllung gegangen - schönes WE!

------------------
Gruss Dirk

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