BKS ausrichten und anschließend Kreis zeichnen (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: BKS ausrichten und anschließend Kreis zeichnen (1432 mal gelesen)

Hawk82
Mitglied
CAD Konstrukteur

Senden Sie eine Private Message an Hawk82

Schreiben Sie einen Gästebucheintrag für Hawk82

Beiträge: 28
Registriert: 26.09.2007

erstellt am: 16. Apr. 2008 11:08

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

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

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 16. Apr. 2008 11:33

<-- editieren / zitieren -->

Unities abgeben:

Nur für Hawk82

(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

Hawk82
Mitglied
CAD Konstrukteur

Beiträge: 28
Registriert: 26.09.2007

erstellt am: 16. Apr. 2008 12:04

<-- editieren / zitieren -->

Unities abgeben:

Super, danke - genau das wollte ich haben.

Gruß

Stefan

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

Ex-Mitglied

erstellt am: 17. Apr. 2008 13:29

<-- editieren / zitieren -->

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

Geos
Mitglied
Vermessungstechniker i.R.

Schreiben Sie einen Gästebucheintrag für Geos

Beiträge: 1017
Registriert: 21.09.2001

ACAD Map 2010, Win 7 Pro
eigene Lisp's<P>HW: Core i7 860, 2.8 GHz
3.3 GB, NVIDIA GeForce GTS 250

erstellt am: 17. Apr. 2008 20:09

<-- editieren / zitieren -->

Unities abgeben:

Nur für Hawk82

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

CADmium
Moderator
Maschinenbaukonstrukteur

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 17. Apr. 2008 21:00

<-- editieren / zitieren -->

Unities abgeben:

Nur für Hawk82

"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

Anzeige:	Infos zum Werbeplatz >>
cseTools Koordinatentransformation CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie Mit der cseTools Koordinatentransformation können komplette DWG/DXF Dateien zwischen verschiedenen Koordinatensystemen (CRS) transformiert werden. Beispielsweise von Gauß-Krüger nach ETRS89 / UTM.

Hawk82
Mitglied
CAD Konstrukteur

Beiträge: 28
Registriert: 26.09.2007

erstellt am: 18. Apr. 2008 08:08

<-- editieren / zitieren -->

Unities abgeben:

@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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

cseTools Koordinatentransformation CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie