---

Hallo Mitglieder!!
Ich bin noch Anfänger im Lisp und hoffe es kann mir jemand bei diesem Programm helfen. Irgendwie funktioniert es nicht, ich möchte einen Block einfügen mit einem Atriput (Höhenkote). Der Benutzer soll Maßstab, Ausgangspunkt mit einer Höhe angeben, danach noch weitere Bezugshöhen die automatisch danch den Block einfügen mit den richtigen Höhen. (Weggerechnet vom Ausgangspunkt entweder addiert oder subrtahiert werden).
Was ich noch dazuschreiben möchte ist, das er sich auch noch für das nächste mal den Bezugspunkt und den Maßstab merken soll falls nichts anderes eingegeben wird!!
Hier das was ich im Moment habe:

(defun c:hk ( / mxy A_pkt h_ref h_diff E_skal p1 b_n b_fak b_dreh)
  (setq b_n "Höhe_1_10" ; Blockname fuer Hoehenkote, 1 Attribut!
    b_fak 0.1  ; Faktor zum Einfuegen
    b_dreh 0.0  ; Drehwinkel zum Einfuegen
  ); setq
 
  (cond
    ((tblsearch "BLOCK" b_n)
    (setq mxy (getreal "\nDen Maßstab bitte 1:?"))
        (setq A_pkt (getpoint "Ausgangspunkt für Höhe? "))
        (setq h_ref (getreal "Höhe für diesen Ausgangspunkt? "))
        (setq h_diff (- h_ref (cadr A_pkt) ))
(setq E_skal (* b_fak (fix mxy) ))

          (while (setq p1 (getpoint "\nWo hätten's denn gern a Höhenkoterl? "))
  (cond
  (p1
  (command "_INSERT" b_n p1 E-skal E-skal b_dreh (rtos (+ h_diff (cadr p1))) )
  ); p1
); cond
); while
    );
    (T (alert (strcat "HÖHENKOTEN-BLOCK *** " b_n " *** NICHT GEFUNDEN!")))
  ); cond
'danke
); c:hk

Ich wäre euch dankbar wenn ihr mir helfen könntet!!

Danke
mfg Petra

------------------
LG Petra

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

---

Höhe_1_10.zip

Hab ich vergessen, hier noch der Block den ich einfügen möchte!

------------------
LG Petra

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

---

Die Variable E_skale ist im insert Befehl falsch geschrieben

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Griaß Di

(setq h_diff (- h_ref (cadr A_pkt) )) ????

mit (cadr A_pkt) kriegst Du den Hochwert !!! (also die X-Koordinate, falls Du in der Vermessung bist) - nicht die Höhe.

Pfiat Di

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

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

---

Ich dachte das wäre "car" was die x-Koordinate bringt und "cadr" bringt die y-Koordinate!!!
Danke an CADwiesel für den Schreibfehler.
Es funktioniert jetzt, aber wie kann ich ihm sagen das er keine Ganzzahlen sondern Zahlen mit 2 Kommastellen dahinter bringen soll. z.b.: 10.00 statt 10 oder 22.00 statt nur 22 denn 22.01 schreibt er mit!!
2. Wie kann ich ihm sagen das er sich bei nächstenmal aufrufen des Programmes den Ausganswert merken soll und gleich weitere Höhenkoten von diesem Bezugspunkt aus rechnen soll. es kann mir jemand weiter helfen.

------------------
LG Petra

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

---

Servus

Du bist also nicht in der Vermessung tätig, was ich auf Grund von "Höhenkoten" geschlossen habe. Beim geodätischen Koord.System gilt Y=Rechtswert, X=Hochwert. Math. Koord.System: X=rechts Y=hoch.

Zum Runden (bzw. formatieren der Ausgabe) kannst Du (rtos) verwenden.

Ausgangswert merken - Denkanstoss: Wenn #wert vorhanden und #eingabe nil, dann verwende #wert weiter. Wenn #eingabe, dann #wert = #eingabe - so ähnlich könntest Du ansetzen.

gruß, Ernst

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

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

---

Hallo Petra,
zu 2)
Schau mal auf dieser Seite - http://www.autodesk.de/adsk/servlet/item?siteID=403786&id=3697891&linkID=2679558
und im Code selbst die Variablen *breite* oder *hohe* an. Diese sind global, und bewirken, dass bei erneutem Programmaufruf die letzten Werte wieder gesetzt werden.
Wenn dir das zu fummelig ist, dann warte bis morgen, dann gibt's sowohl die Lisp und auch den Text auf meiner Seite.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

1.)
Hallo Holger
Danke für den Tipp, aber wo find ich das auf deiner Homepage?

2.)
Hallo Ernst

Auch dir vielen Dank für deinen Denkanstoss! Ideen hätte ich ja, aber mir fehlt es leider an der korrekten Umsetzung. Vielleicht kann mir ja jemand weiterhelfen.

Das wäre ganz auper von Euch

Danke

mfg Petra

------------------
LG Petra

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

---

HKATTS.zip

Hallo Petra,
im Anhang hast Du ein fertiges Programm.
Kannst mal schauen wie ich es gemacht habe.

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

---

Hallo Petra,

auf meiner Seite bin ich mit der Aktualisierung etwas im Verzug. Deshalb hier der Link auf die Datei: www.cadlon.de/freedwnload/03_Autolisp.zip

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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