| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
|
Autor
|
Thema: BKS ausrichten und anschließend Kreis zeichnen (1537 mal gelesen)
|
Hawk82
Mitglied
CAD Konstrukteur
   Beiträge: 28
Registriert: 26.09.2007
|
erstellt am: 16. Apr. 2008 11:08  <-- 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
    
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:
|
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.
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
|
| | Anzeige: | Infos zum Werbeplatz >> | GeoTools CAD APP für Tiefbau, Facility Management, GIS, Vermessung und Kartografie GeoTools is a geo-data application that is useful to view, create, modify, analyze and report on CAD data that is geographic in nature. Useful for GIS data creation, surveying, mapping, facilities management, infrastructure, landscape development, city planning or similar, workflows.
|
|
Hawk82
Mitglied
CAD Konstrukteur
Beiträge: 28
Registriert: 26.09.2007
|
erstellt am: 18. Apr. 2008 08:08 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
