---

Hallo Lispfreunde,
gibt es ein lisp o. hat wer eins, womit es mir anzeigt wenn ich auf einer schrägen linie klicke die schräge in prozent ?

Würde mich über einen vorschlag freuen.

Gruß pally

[Diese Nachricht wurde von Kleiner_pally am 31. Aug. 2004 editiert.]

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

---

Wo ist 0-Grad/0-Prozent ?
Bks oder WKS ?
An welchem Ende ist der (Winkel)Scheitelpunkt ?
In welche Richtung (GUZ/UZ) wird abgefragt ?
360° = 100° ?

Fragen über Fragen  [du siehst...??]

------------------
Bitte Systemangaben eintragen, wie & warum siehst du HIER

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

---

Siehe Cadffm : Ansonsten mal ein Ansatz(ohne Fehlerprüfung und nur für LINIEN)
(defun c:% ( / L P1 P2 DY DX W)
  (setq L (car(entsel)))
  (setq p1 (cdr(assoc 10(entget L))))
  (setq p2 (cdr(assoc 11(entget L))))
  (setq DY (-(cadr P2)(cadr P1)))
  (setq DX (-(car  P2)(car  P1)))
  (setq W  (cond
            ((and(zerop DX)(>= DY 0))          (/ Pi  2.0) )
            ((and(zerop DX)(<  DY 0))          (/ Pi  -2.0) )
            ((and(<  DX  0)(>= DY 0))  (+(atan (/ DY DX ))PI) )
            ((and(<  DX  0)(<  DY 0))  (-(atan (/ DY DX ))PI) )     
            ('T                        (atan (/ DY DX ))    )
          )
  )
  (setq w (* 100 W))
)

------------------
- Thomas -

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

---

Hallo cadffm,
danke erstmal für die schnelle antwort.
Stimmt da sind fragen über fragen  dachte er gibt was allgemeines.
BKS und Gon wird hier gezeichnet (400 Gon = 360 Grad). Wäre nicht schlecht wenn es in allen richtungen gehen würde GUZ+UZ.
Hoffe jetzt alles richtig geschrieben zu haben.

Gruß pally

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

---

Hallo CADmium,
Befehl: %
Objekt wählen: 307.171

Weiß jetzt nicht ob es zusammenhängt ob wir in Gon arbeiten (GRAD in ACAD) aber in prozent wird es leider nicht angezeigt.

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

---

kenn jetzt deine Linie nicht, aber Prozent-Steigung heiß bei mir immer Steigungseinheiten je 100 Waagerechteinheiten .. und 307 sind dann .. 307 senkrecht auf 100 waagerecht = 72° oder 80 gon

Frage ist auch Richtung der Linie ... also negative Steigung..
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 31. Aug. 2004 editiert.]

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

---

hmm habe es mir irgentwie anderst vorgestellt und damit es auch so schwer ist wusste ich nicht.A
lso es solle was sein wo man die Angabe über %-Neigung einer Linie herausbekommt. egal ob sie GUZ oder UZ liegt.

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

---

oder suchst du sowas ?

------------------
- Thomas -

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

---

Danke CADmium für den Link,
habe mir auch sofort das programm prozent.lsp heruntergeladen.
Nur muss ich dabei einen text o. bem. anklicken. geht es auch ohne also nur die linie anklicken und die neigung erscheint unten.

Angabe über %-Neigung einer Linie
Wert durch Ersetzen eines vorhandenen Textes absetzen

  Linie picken...
  vorhandenen Text picken... 7.80%

Also ohne text anklicken.
Hier nochmal die Lisp:

(defun c rozent
  ( / ech sli li x1 x2 y1 y2 proz sel el)
  (setq ech (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (princ "\n ")
  (princ "\n Angabe über %-Neigung einer Linie")
  (princ "\n Wert durch Ersetzen eines vorhandenen Textes absetzen")
      (princ "\n ")
    (setq
      ;Linie wählen:
      sli  (entsel "\n  Linie picken... ")              ; Element und Pickpunkt
      li  (entget (car sli))                            ; Element (Linie)
      ;Koordinaten der Punkte filtern (da Winkelauswahl 50 nicht möglich)
      x1 (car (cdr (assoc 10 li)))
      y1 (cadr (cdr (assoc 10 li)))
      x2 (car (cdr (assoc 11 li)))
      y2 (cadr (cdr (assoc 11 li)))
      ;Berechnung %-Wert und Umwandlung in Format XX.X und Anhang "%"
      proz (abs (* (/ (- y1 y2) (- x1 x2)) 100))
      proz (rtos proz 2 2)
      proz (strcat proz "%")
      ;Dummy-Text wählen:
      sel  (entsel "\n  vorhandenen Text picken... ")    ; Element und Pickpunkt
      el  (entget (car sel))                            ; Element (Text)
      ;Dummy-Text durch Wert (berechnet) ersetzen:
      el  (subst (cons 1 proz) (assoc 1 el) el)
    ) ;of setq
  (entmod el) ;Dummy-Text schreiben
  (princ proz)
  (setvar "CMDECHO" ech)
  (prin1)
) ;end.

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

---

Servus

Ändere das Programm wie nachfolgend:

    ;Dummy-Text wählen:
;sel  (entsel "\n  vorhandenen Text picken... ") ; Element und Pickpkt
;el  (entget (car sel))                            ; Element (Text)
;Dummy-Text durch Wert (berechnet) ersetzen:
;el  (subst (cons 1 proz) (assoc 1 el) el)
) ;of setq
;  (entmod el) ;Dummy-Text schreiben
  (princ proz)
  (setvar "CMDECHO" ech)
  (prin1)
) ;end.

Dadurch werden die Schritte mit der Textbehandlung auskommentiert

------------------
Gruß, Ernst

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

---

Hallo Ernst,
das habe ich jetzt gemacht geht super !
danke dir

Gruß pally

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