---

Hallo Autolisp Gemeinde!
habe folgendes Problem ich verstehe nicht wieso der Befehl _Dimangular als letztes abgearbeitet wird! Also der Programmstart ist noch okay, die Abfrage der 2 Punkte PT1 und PT2 aber danach werde ich direkt vom 2ten Programmteil gefragt ob ich weiter bemaßen will. Danach geht’s erst weiter mit dem letzten Teil des Ersten Programmteils (hier auskommentiert). Kann mir jemand verraten wieso das so ist? Werden Command Befehle erst am ende abgearbeitet? Das Programm ist noch nicht fertig es ist nur zur Erklärung reinkopiert!

(defun Bogma ();( / pt1 pt2 cen a1 a2 D i ad r oldOs oldCmde)
(setq oldCmde (getvar "CMDECHO"))
(setq oldOs (getvar "OSMODE"))
(setvar "CMDECHO" 0)
(Progn
(setq ma (getvar "dimlfac"))
(prompt "Zwei Punkte auf dem Bogen wählen - ")
(setvar "OSMODE" 512)
(while (not cen)
  (setq pt1 (getpoint "1.ten Punkt: ")
cen (osnap pt1 "_CEN")
  )
  (if (not cen) (alert "Punkt liegt nicht auf dem Bogen, neu eingeben")
(setq pt2 (getpoint cen " 2.ten Punkt: ")))
);ende while!
(setvar "OSMODE" 0)
(setq a1 (angle cen pt1) a2 (angle cen pt2) ad (abs (- a2 a1))
r (distance pt1 cen)
D (* ma (* r ad))
)
  ;(command "_DIMANGULAR" "" cen pt1 pt2 "_T" (rtos D))
)
)
(defun weiter ()
    (initget 1 "j n")
  (Setq w (getkword "\nWeiter bemassen? (Ja oder Nein) "))
  (IF (= w "j")
  (setq pt3 (getpoint cen " 3.ten Punkt: ")))
  (setvar "OSMODE" oldOs)
  (setvar "CMDECHO" oldCmde)
(prin1)
)
(Defun c:bodim (/ ma pt1 pt2 cen D)
  (Bogma)
  (command "_DIMANGULAR" "" cen pt1 pt2 "_Text" (rtos D))
  (weiter)
)
(princ "\nBodim Befehl geladen.")
(princ)

Also wie gesagt erst soll "Bogma" abgearbeitet werden dann mit den erhalten werten die commandzeile ausgeführt werden und dann "weiter" abgearbeitet werden... Auch wenn ich alles ohne diese Zwischenprogrammteile schreibe führt er die Command Zeile immer zu aller letzt aus! auch wenn ich die If Schleife entferne fragt er zuerst PT3 ab bevor er dann die Commandzeile ausführt!

Danke für eure Hilfe

        Thomas

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

---

Logisch ist das schon ...

Schau dir mal deine Funktion bogdim an:

Code:

---

(Defun c:bodim (/ ma pt1 pt2 cen D)
  (Bogma)
  (command "_DIMANGULAR" "" cen pt1 pt2 "_Text" (rtos D))
  (weiter)
)

---

Die Variablen ma, pt1, pt2, cen, D werden alle nicht initialisiert. Vielleicht sollen sie innerhalb von (bogma) initialisiert werden, aber diese Funktion hat ihre eigenen Variablen namens pt1, pt2, cen, D - nicht aber ma! Aber ausgerechnet ma verwendest du gar nicht.

Ich habe auch keine Lust, mich da tiefer hineinzudenken, da das Code-Posting saumäßig aussieht (Code-Tag drumherum, Einrückung kontrollieren).

Überarbeite das noch mal, und wenn der Code lesbar ist, kannst du auch mit weiterer Hilfe von mir rechnen.

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hallo Mapcar,
danke für die Antwort... der Text wurde durch das einfügen etwas anders dargestellt wie von mir gedacht, ich hoffe diesmal klappt es besser wenn nicht werde ich die original Datei anhängen....
Bei der Gelegenheit erstmal noch Danke für dein Spitzen Tutorial! Es hat mir AutoLisp bis zu  meinem jetzigen stand vermittelt!
Hier nochmal das Programm:

(defun Bogma ()
    (setq oldCmde (getvar "CMDECHO"))
    (setq oldOs (getvar "OSMODE"))
    (setvar "CMDECHO" 0)
      (setq ma (getvar "dimlfac")) ; Variable Maßstab
    (prompt "Zwei Punkte auf dem Bogen wählen - ")
    (setvar "OSMODE" 512)
(while (not cen)
    (setq pt1 (getpoint "1.ten Punkt: ")
          cen (osnap pt1 "_CEN")
    )
    (if (not cen) (alert "Punkt liegt nicht auf dem Bogen, neu eingeben")
    (setq pt2 (getpoint cen " 2.ten Punkt: "))
    ); ende if
); ende while!
    (setvar "OSMODE" 0)
    (setq a1 (angle cen pt1) a2 (angle cen pt2) ad (abs (- a2 a1))
          r (distance pt1 cen)
          D (* ma (* r ad))    ; Berechnung mit aktuellem Maßstab
    )
  ;(command "_DIMANGULAR" "" cen pt1 pt2 "_T" (rtos D)) <--- wird auch als letztes ausgeführt!
)
)
(defun weiter ()
    (initget 1 "j n")
    (Setq w (getkword "\nWeiter bemassen? (Ja oder Nein) "))
    (IF (= w "j")
    (setq pt3 (getpoint cen " 3.ten Punkt: ")))
    (setvar "OSMODE" oldOs)
    (setvar "CMDECHO" oldCmde)
(prin1)
)
(Defun c:bodim ()
        (Bogma)
        (command "_DIMANGULAR" "" cen pt1 pt2 "_Text" (rtos D))
        (weiter)
)
(princ "\nBodim Befehl geladen.")
(princ)

ich hoffe damit kann man etwas mehr anfangen!
Danke für die mühe.
  Gruß
    Thomas

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

---

Hi Thomas,

ohne mich in eure fachliche Diskussion einmischen zu wollen:

versuche mal das Wort
"CODE" vor dein Lisp zu stellen und das Wort "/CODE" nach dein LISP zu stellen und ersetze die " durch [ und am Wortende durch ].

Siehe auch hier - am Seitenende - dann versteht dich mapcar (und wahrscheinlich viele andere auch) wesentlich besser.

------------------
Grüsse

Thomas

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

---

eine Klammer war außerdem zuviel
mehr als 2 Punkte kann mann aber nicht bemaßen - da mußt du nochmal nacharbeiten.
Du solltest sowiso den gesamten code überarbeiten und den Unterfunktionen  entweder die benötigten Parameter übergeben, oder wenigstens die Rückgabe der Unterfunktionen in lokalen Variablen übergeben lassen.

Code:

---

(Defun c:bodim ( / oldCmde oldOs ma cen pt1 pt2 a1 a2 ad r d x pt3)
 
(defun Bogma ()
  (setq oldCmde (getvar "CMDECHO"))
  (setq oldOs (getvar "OSMODE"))
  (setvar "CMDECHO" 0)
  (setq ma (getvar "dimlfac"))          ; Variable Maßstab
  (prompt "Zwei Punkte auf dem Bogen wählen - ")
  (setvar "OSMODE" 512)
  (while (not cen)
    (setq pt1 (getpoint "1.ten Punkt: ")
          cen (osnap pt1 "_CEN")
          ) ;_ end of setq
    (if (not cen)
      (alert "Punkt liegt nicht auf dem Bogen, neu eingeben")
      (setq pt2 (getpoint cen " 2.ten Punkt: "))
      )                                ; ende if
    )                                  ; ende while!
  (setvar "OSMODE" 0)
  (setq a1 (angle cen pt1)
        a2 (angle cen pt2)
        ad (abs (- a2 a1))
        r  (distance pt1 cen)
        D  (* ma (* r ad))              ; Berechnung mit aktuellem Maßstab
        ) ;_ end of setq
                                        ;(command "_DIMANGULAR" "" cen pt1 pt2 "_T" (rtos D)) <--- wird auch als letztes ausgeführt!
  ) ;_ end of defun

(defun weiter ()
  (initget 1 "j n")
  (Setq w (getkword "\nWeiter bemassen? (Ja oder Nein) "))
  (IF (= w "j")
    (setq pt3 (getpoint cen " 3.ten Punkt: "))
    ) ;_ end of IF
  (setvar "OSMODE" oldOs)
  (setvar "CMDECHO" oldCmde)
  (prin1)
  ) ;_ end of defun
 
  (Bogma)
  (command "_DIMANGULAR" "" cen pt1 pt2 "_Text" (rtos D))
  (weiter)
  ) ;_ end of Defun
(princ "\nBodim Befehl geladen.")
(princ)

---

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

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

---

Hallo CADwiesel
vielen dank für das überarbeiten des Lisps, aber ich kann es leider nicht öffnen, es erscheint die Fehlermeldung: "Fehlerhafter Argumenttyp: numberp: nil"
Das ich mein Listing noch überarbeiten muss ist klar, fehlt ja noch die komplette Berechnung des 2ten masses usw. Mir ging es lediglich um die Reihenfolge die nicht eingehalten wird im Programm ablauf. Also Schritt 3 bevor Schritt 2 abgelaufen ist. Verstehe immer noch nicht wieso, ich habe das "Programm" in allen möglich variationen versucht zu erstellen aber immer kommt Schritt 3 vor Schritt 2!
  Gruß
    Thomas

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

---

Hallo zusammen,
habe mal etwas weiter herum gebastelt. Habe jetzt mal "Alerts" eingebaut damit man sieht das er das Programm nicht von oben nach unten abarbeitet. Kann es vieleicht damit zusammenhängen das alle Befehle ausser der Command Befehl Lisp befehle sind und der Command Befehl ein AutoCAD Befehl ist? Wenn man jetzt zum testen einen Bogenvermasst sieht man das er den Command Befehl "hintenan" hängt.
Hier nochmal mein aktueller Programm Code:
      Gruß
        Thomas

Code:

---

(defun c:bodim (/ PT1 PT2 CEN ma PT3 a1 a2 ad r D)
        (setq oldCmde (getvar "CMDECHO"))
        (setvar "CMDECHO" 0)
        (setq ma (getvar "dimlfac"))
        (prompt "Zwei Punkte auf dem Bogen wählen - ")
        (while (not cen)
            (setq pt1 (getpoint "1.ten Punkt: ")
                  cen (osnap pt1 "_CEN")
            );ende setq
            (if (not cen) (alert "Punkt liegt nicht auf dem Bogen, neu eingeben")
            (setq pt2 (getpoint cen " 2.ten Punkt: "))
            );ende if
        );ende while!
;Berechnung Zahlenwert
            (setq a1 (angle cen pt1)
                  a2 (angle cen pt2)
                  ad (abs (- a2 a1))
                  r (distance pt1 cen)
                  D (* ma (* r ad))
             )
      
    (alert "Vor Zeichnen")

        (command "_DIMANGULAR" "" cen pt1 pt2 "_T" (rtos D))

    (alert "Nach Zeichnen")

        (initget 1 "j n")
    (alert "Vor Abfrage (j/n)")
        (Setq w (getkword "\nWeiter bemassen? (Ja oder Nein) "))

        (IF (= w "j")
        (setq pt3 (getpoint cen " 3.ten Punkt: "))
        );ende if

)

(princ "\nBodim Befehl geladen.")
(princ)

---

[Diese Nachricht wurde von RSt-Stahl am 13. Aug. 2005 editiert.]

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

---

Dein Dim-Befehl ist ja auch noch gar nicht fertig. Schau mal in der Lisp-Hilfe unter "pause" nach - oder willst du den Abstand automatisch berechnen? Jedenfalls fehlt noch ein Argument.

Code:

---

(command "_DIMANGULAR" "" cen pt1 pt2 "_T" (rtos D) pause)

---

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Hallo Mapcar,

vielen dank für den Tipp! Genial jetzt funktioniert es, allerdings musste ich noch eine 2te Pause einfügen! Diese 10 Unities sind mehr als nur verdient! Wünsche euch allen noch ein schönes WE.
  Gruß
      Thomas

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