---

Hallo Leute,
ich bitte um einen Hinweis:
Im Bauwesen wird sehr oft mit Gefälle in % oder 1zu xx
gezeichnet und berechnet. Zur Zeit rechne ich mir immer die Werte immer in Grad um.(umständlich)
1.Frage gibt es im Forum dazu einen Beitrag (Ich habe keine gefunden)
2.gibt es eine Möglichkeit eine Formel in eine lsp oder ein Button einzubauen
welches diese Aufgabe übernimmt, oder kann mir jemand was empfehlen als Zusatztool
Bsp: 1/1,5 =[F]tan= 33,69 Altgrad oder 5%=2,86 Altgrad

------------------
Gruß vom Bauvermesser;

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

---

Hallo Bauvermesser,
ich habe da vielleicht einen Gedankenansatz für Dich, das mußt Du Dir dann auf Deine Bedürfnisse abwandeln:

Code:

---

(defun neigung (wert flag / )
  (if flag ;;;wenn prozent
      (strcat (rtos wert 2 2)"%")
      (strcat "1:" (neigung->1zuX wert))))

(defun neigung->1zuX (wert  / )
  (if (=(atof(rtos wert 2 10))0.0)
    "oo"
    (rtos (*(/ 1.0 wert)100) 2 2)))

(setq h 1.20;;;Höhe
      l 1.2);;;Länge

;;;Funktionsaufruf
(neigung (abs (*(/ h l)100.0))'T)
(neigung (abs (*(/ h l)100.0))nil)

---

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

Jörn

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

---

prozent.lsp.txt

Hi,

habe ein Lisp hier womit ich das erledige. Woher es kommt kann ich nicht mehr sagen, ist zu lange her.
Habs mal angehängt. Hoffe es hilft.

------------------
Gruss
Wolli

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

---

danke der Mithilfe,

die lsp mit PROZENT bringt nicht die gewünschte Funktion,

leider bekomme ich die 'NEIGUNG' nicht zum laufen
es wird in der Befehlszeile "1:1.00" angezeigt und das wars dann,
muss man eine bestimmte Systemeinstellung haben?

------------------
Gruß vom Bauvermesser;

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

---

Hallo Bauvermesser,
na dann kommt noch mal ein c:-Aufruf:

Code:

---

(defun neigung (wert flag / )
  (if flag ;;;wenn prozent
      (strcat (rtos wert 2 2)"%")
      (strcat "1:" (neigung->1zuX wert))))

(defun neigung->1zuX (wert  / )
  (if (=(atof(rtos wert 2 10))0.0)
    "oo"
    (rtos (*(/ 1.0 wert)100) 2 2)))

(defun c:neigung_prz ( / h l)
  (if (and (setq h(getreal "\nHöhe eingeben:"))
  (setq l(getreal "\nLänge eingeben:")))
    (neigung (abs (*(/ h l)100.0))'T)))

(defun c:neigung_1zuX ( / h l)
  (if (and (setq h(getreal "\nHöhe eingeben:"))
  (setq l(getreal "\nLänge eingeben:")))
    (neigung (abs (*(/ h l)100.0))nil)))

---

Aufruf mit "neigung_prz" oder "neigung_1zuX", und die Ergebnisse prüfen.

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

Jörn

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

---

danke
die lsp rechnet wenn  ich nichts falsch mache den wert
von höhe zum Rechtswert in 1/x -, oder in  Prozent um, wenn dem so ist, ist was falsch angekommen denn ACAD will ja den Winkel haben zum weiterzeichnen, also müsste der Winkel angezeigt werden, besser wäre wenn gleich eine gefangene Linie mit diesem Winkel weitergeführt würde, die Eingabe '1' könnte man sich sparen da ein Neigungsverhältnis immer auf '1' in Höhe bezogen wird, bei der Prozentberechnung müsste nicht das Gefälle in % berechnet werden sondern nach der Eingabe Bsp.: 5% eine Linie im Winkel von 2,86... ° weitergeführt werden.....

Soll nur als Gedankenanstoß gelten für alle die so was draufhaben, ich nicht
und bedanke mich bis hierher... 

------------------
Gruß vom Bauvermesser;

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

---

Hallo,
mal ein Versuch von mir...
(nicht auf Fehler getestet)

(defun c:liniew (/ art num winkel)
  (initget "p x")
  (setq art (getkword "\nSteigung [p-->Prozent/x-->1:X] <p>? : "))
  (if art
    nil
    (setq art "p")
  )
  (cond
    ((= art "p")

    (setq num   (getreal "Prozente <%> eingeben: ")
  winkel (/ (* (ATAN (/ num 100.0)) 180.0) pi)
    )
    )
    ((= art "x")

    (setq num   (getreal "1:X <X> eingeben: ")
  winkel (/ (* (ATAN (/ 1.0 num)) 180.0) pi)
    )
    )
    ((not (or (= art "p") (= art "x")))
    (princ "\nFehler, falsche Eingabe")
    )
  )
  (if winkel
    (progn
      (vl-cmdf "linie" pause (strcat "<" (rtos winkel 2 9)))
      (while (/= (getvar "CMDACTIVE") 0) (vl-cmdf pause))
    )
  )
  (princ)
)

mfg Heiko

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

---

Mensch das ist ja große Klasse, genau was ich gesucht habe, meine Test waren bis jetzt nur Positiv, ich werde mir die Lsp in zwei lsp aufteilen für besseres Handling.
- Unklar ist noch warum von links nach rechts gedacht wird,
Steigung 1,5 nach rechts gezeichnet -> gibt aber Gefälle 1,5 ....
aber damit kann ich leben, hängt sicherlich mit dem Richtungswinkel Nord im System zusammen;
Kann diese Lsp nur weiterempfehlen für alle die im Bau was Zeichen, damit hat das Umrechnen in Winkel ein Ende!!!!  Besten Dank dafür 10 pu
Ach so ehe ich es vergesse, - wird eigentlich immer in der Lsp mit nur so viel Stellen gerechnet wie unter 'Einheiten'  eingestellt ist?, -  oder kann ich das mit  'setvar LUPREC 4 ' für diese lsp beeinflussen?

------------------
Gruß vom Bauvermesser;

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

---

Hi,
schön das es gefällt.
ja von links nach rechts...???
sicherlich der Richtungswinkel...
es gibt glaube ich noch ne Variable die den Drehsinn (im bzw gegen Uhrzeigersinn)
vorgibt... (ich arbeite mit gegen, also von links nach rechts --> Steigung, so wie man schreibt und liest)... ein minus an der richtigen Stelle sollte dein problem auch lösen...
Gerechnet wird IMHO ganz genau, angezeigt werden nur die eingestellten Stellen...
Mfg Heiko

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