---

Hallo

Ich wollte ursprünglich in den über ein Jahr alten "Pause in Makro"-Beitrag etwas schreiben, aber da scheint nach dem Klick auf "Antworten" einfach nichts zu passieren...

Ich habe mir von folgendem Beitrag die LISP-Datei runter geladen um interpolieren zu können: http://ww3.cad.de/foren/ubb/Forum54/HTML/016226.shtml#000009

Anscheinend ist das Resultat falsch, wenn die angeklickten Punkte einen Z-Wert aufweisen.

Daher wollte ich den LISP-Befehl (in diesem Falle ip) in ein Makro einbinden und dort vor dem Befehl die Systemvariable OSNAPZ umstellen, damit während dem Klicken der Z-Wert nicht berücksichtigt wird. Nach der LISP-Anwendung (die Eingaben via Tastatur und Klicks verlangt) sollte dann OSNAPZ wieder auf null gestellt werden.

Nur kriege ich das nicht hin - wenn das überhaupt möglich ist.

Sollte das Makro nicht einfach so aussehen?

^C^COSNAPZ;1;ip;OSNAPZ;0

So wird zwar OSNAPZ auf 1 umgestellt und der Befehl ip kann danach sogar durchgeführt werden, jedoch wird danach die Systemvariable nicht mehr geändert. Beim Befehl ip muss man zuerst klicken, dann die Höhe eintippen, wieder klicken und wieder eine Höhe eingeben und am Ende nochmals klicken und die Höhe wird einem dann in der Befehlszeile angezeigt.

Ist es möglich, OSNAPZ danach irgendwie per Makro wieder auf 0 zu schalten?

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

---

na integrier das Setzten der Sysvar einfach in das Lisp , (setvar "CMDECHO" ....) steht doch schon drin oder nimm bloß die x,y Koordinaten von getpoint ..

(setq A(getpoint))
(setq A (list (car A)(cadr A) 0))

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Ich hab die Lisp Routine ein wenig überarbeitet, sodass das schalten von OSNAPZ nicht mehr nötig ist.
Zudem muss bei 3D Punktne jetzt nicht manuell der Höhenwert wieder eingegeben werden.

Code:

---

;TIP1052B.LSP:  INTERPOL.LSP     Utilities for Civil Engineers     (C)1994, Jeff Reimert
; Update Udo Hübner 17.02.2011

;===================ERROR HANDLER============
(defun ip_err (MSG)
   (alert(strcat "Error!: " MSG))
   (setq *error* OLDERR)
   (setvar"cmdecho" 1)
   (princ)
);end error defun
;===================MAIN PROGRAM=============
(defun C:IP (/ OLDERR PT1 PT2 PT3 EL1 EL2 D1 DLT M D2 M2 C)
   (setq OLDERR *error*)
   (setq *error* IP_ERR)
   (setvar"cmdecho" 0)
   (initget 1)
   (setq PT1(getpoint "\nSelect 1st Known Point: "))
   ; (initget 1)
   (if (not (setq EL1 (getreal (strcat "\nEnter the Elevation <" (rtos (caddr PT1))">:"))))
     (setq EL1 (caddr PT1)))
   (initget 1)
   (setq PT2(getpoint "\nEnter 2nd Known Point: "))
   ;(initget 1)
   (if (not (setq EL2 (getreal (strcat "\nEnter the Elevation <" (rtos (caddr PT2))">:"))))
     (setq EL2 (caddr PT2)))
   (initget 1)
   (setq PT3(getpoint "\nSelect point of Unknown Elevation: "))
   ;==calculations=====
   ;(setq D1(distance PT1 PT2) ; D1 muss die horizontale Länge sein, deshalb bei
   ; Abstandsberechnung mit distance nur die x und y Koordinate betrachten.
   (setq D1(distance (LIST (car PT1)(cadr PT1))(LIST (car PT2)(cadr PT2)))
      DLT(- EL2 EL1)
      M(/ DLT D1)
      D2(distance (LIST (car PT1)(cadr PT1))(LIST (car PT3)(cadr PT3)))
      M2(* M D2)
      C (rtos(+ M2 EL1) 2 2)
   );setq
   ;===================
   (princ (strcat "\nThe Elevation is: " c)) ;output
   (setq *error* OLDERR)
   (setvar "cmdecho" 1)
   (princ)
);end interpol defun
;============================================================
(princ "\nINTERPOL.LSP loaded... Start with IP")
(princ); end interpol.lsp

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 17. Feb. 2011 editiert.]

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

---

Ich wollte mich noch bedanken für die abgeänderte LISP-Version. Sie funktioniert wunderbar.

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