---

StufenModel.pdf

Hallo,
habe folgenden Lisp-Code jedoch benötige ich jetzt eine kleine Erweiterung.- siehe Zeichung

Wer kann mir helfen?

(defun C:st (/ p1 p2 os flag anz x y ap epy epx)
  (command "_.LINE" pause pause "")
  (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1)
p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1)
os (getvar "osmode")
  )
  (entdel (entlast))
  (setvar "osmode" 0)
  (setq flag T)
  (while flag
    (setq anz (getint "\n Anzahl der Steigungen eingeben: "))
    (if (> anz 0)
      (setq flag nil)
      )
    )
  (setq x  (/ (- (car p1) (car p2)) anz)
y  (/ (- (cadr p1) (cadr p2)) anz)
ap  p2
  )
  (command "_pline" ap)
  (repeat anz
    (setq epy (list (car ap) (+ y (cadr ap)))
  epx (list (+ x (car epy)) (cadr epy))
  ap  epx
    )
    (command epy epx)
  )
  (command "")
  (setvar "osmode" os)
  (princ (strcat "\n  Breite: "
(rtos (abs x))
"    Höhe: "
(rtos (abs y))
"    Geschoßhöhe: "
(rtos (abs (- (cadr p1) (cadr p2))))
)
  )
  (princ)
)
;
(defun C:st+ (/ p1 p2 os flag anz x y ap epy epx)
  (command "_.LINE" pause pause "")
  (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1)
p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1)
os (getvar "osmode")
  )
  (entdel (entlast))
  (setvar "osmode" 0)
  (setq flag T)
  (while flag
    (setq anz (getint "\n Anzahl der Steigungen eingeben: "))
    (if (> anz 0)
      (setq flag nil)
      )
    )
  (setq x  (/ (- (car p1) (car p2)) (1- anz))
y  (/ (- (cadr p1) (cadr p2)) anz)
ap  p2
  )
  (command "_pline" ap)
  (repeat (1- anz)
    (setq epy (list (car ap) (+ y (cadr ap)))
  epx (list (+ x (car epy)) (cadr epy))
  ap  epx
    )
    (command epy epx)
  )
  (command p1 "")
  (setvar "osmode" os)
  (princ (strcat "\n  Breite: "
(rtos (abs x))
"    Höhe: "
(rtos (abs y))
"    Geschoßhöhe: "
(rtos (abs (- (cadr p1) (cadr p2))))
)
  )
  (princ)
)

Danke im Vorraus!

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

---

Erstmal

Code:

---

(command "_.LINE" pause pause "")

---

bewirkt, dass das Programm auf eine Eingabe wartet, das aber nicht sagt.
Besser:
Mit (getpoint) arbeiten - zB.

Code:

---

(commnad "_.LINE"
  (getpoint "\nErster Punkt: ")
  (getpoint "\nZweiter Punkt: ")
  ""
)

---

Und so wie für Punkte gibt’s auch (getreal) um Gleitkommazahlen abzufragen:

Code:

---

(setq strecke1 (getreal "\nStrecke1 eingeben: "))

---

Und so, wie Du die Polylinie zeichnest, kannst Du auch weitere Linien zeichnen (mit Koord.Differenzen kannst Du ja umgehen  )

Und falls Du mal "schräge" Linien berechnen willst schau Dir die Funktion (polar) an.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Hallo GEOS,

danke für die rasche Antwort.

Nur kurz zur Aufklärung, dieser Code ist nicht vom mir.
Ich habe keine Ahnung was da steht, deswegen auch die Bitte um Hilfestellung.

Habe gehofft jemand wäre so net und würde mir den Code erweitern.

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