---

Hallo zusammen,

habe folgendes Anfängerproblem:

Ich möchte 3 Punkte auswählen an welchen sich das BKS ausrichtet und anschließend möchte ich über die selben 3 Punkte einen Kreis (3P) zeichen.

Mir schmeißt es aber den Kreis immer irgendwo im Raum rum. Hab versucht mit Trans was zu machen, kenne mich aber leider noch nicht gut mit LISP aus.

Mein LISP:

(defun c:k3p ( / P1 P2 P3 )
; by Stefan Schwankner - 2008-04-15
(arxload "GEOMCAL")  ;;;Rechner muss geladen werden
    (setq P1 (trans (getpoint "\nErster  Punkt:")1 0))
    (setq P2 (trans (getpoint "\nZweiter Punkt:")1 0))
    (setq P3 (trans (getpoint "\nDritter Punkt:")1 0))
    (setq OSCHNAePP (getvar "osmode"))
    (command "osmode" 0)
    (command "_ucs" "_3p" p1 p2 p3)
    (command "_circle" "3p" p1 p2 p3)
    (setvar "OSMODE" OSCHNAePP)
)

Wäre super wenn mir kurz jemand helfen könnte.

Gruß

Stefan

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

---

(defun c:k3p ( / P1 P2 P3 OLDOSMODE )
; by Thomas Krüger (c) - 2008-04-16  
    (setq P1 (trans(getpoint "\nErster  Punkt:")1 0))
    (setq P2 (trans(getpoint "\nZweiter Punkt:")1 0))
    (setq P3 (trans(getpoint "\nDritter Punkt:")1 0))
    (setq OLDOSMODE (getvar "osmode"))
    (command "osmode" 0)
    (command "_ucs" "_3p" (trans p1 0 1) (trans p2 0 1) (trans p3 0 1))
    (command "_circle" "3p" (trans p1 0 1) (trans p2 0 1) (trans p3 0 1))
    (setvar "OSMODE" OLDOSMODE)
)

------------------
      - 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

---

Super, danke - genau das wollte ich haben.

Gruß

Stefan

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

---

@Hawk82

Habe ich nur das Gefühl oder wollen wir das gleiche erreichen? Arbeiten wir am gleichen "Projekt"?

@CADmium

... elegante Lösung für OSMODE! Ich habe es immer neu gesetzt ...

Zitat:

---

; by Thomas Krüger (c) - 2008-04-16   

---

Lutz

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...

---

osmode kann man auch so aus-/einschalten:

Code:

---

(defun f#osmoff (/ OSMO)
  (setq OSMO (getvar "osmode"))
  (if (< OSMO 16384)
    (SETVAR "OSMODE" (+ OSMO 16384))
  )
)
;------------------------------------------------------------------------------
(defun f#osmon (/ OSMO)
  (setq OSMO (getvar "osmode"))
  (if (> OSMO 16384)
    (SETVAR "OSMODE" (- OSMO 16384))
  )
)

---

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

www.geopaint.at

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

---

"by Thomas Krüger (c) - 2008-04-16  "

war n Witz  in dem Sinne 

------------------
  - 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

---

@Lutz_G sind wahrscheinlich ähnliche Anfänger was LISP betrifft, aber unsere LISP-Problem unterscheidet sich doch noch minimal.

Schöne Grüße

Stefan

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