| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Bogen mit Bogenlänge erzeugen! (1621 mal gelesen)
|
Ralph06 Mitglied Bau
Beiträge: 3 Registriert: 16.02.2004
|
erstellt am: 16. Feb. 2004 14:07 <-- editieren / zitieren --> Unities abgeben:
Bei Autocad kann man viel mit Anfangspunkt, Endpunkt, Winkel und Sehnenlänge einen Bogen erzeugen. Wie kann ich einen Bogen erzeugen, wenn ich Anfangspunkt mit Neigung und Bogenlänge habe? Wer kann mir da weiter helfen? Gibt es ein kleines Programm dafür? Gruß Ralph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 16. Feb. 2004 14:39 <-- editieren / zitieren --> Unities abgeben: Nur für Ralph06
also da du es im lisp-forum fragst, nehme ich mal an, du wills das per lisp machen (entmake). da bleibt dir eigentlich nichts anderes ürbig als die gute alte methematik (über startwinkel, bogenlänge den endwinkel berrechnen) alternive könntest du aber auch mit (command "_arc" ... auch den bogen erstellen, wie du es im acad gewohnt bist. allerdings hast du da die probleme mit eingeschaltenem objektfang, die berrecneten punkte sind nicht im sichtbaren berreich des bildschirmes usw. ich versuche eigentlich diese command befehle soweit als möglich zu vermeiden, und das rate ich auch jedem, der mit lisp proggen will ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
heidi Mitglied CAD-Dienstleister
Beiträge: 1132 Registriert: 01.11.2001
|
erstellt am: 16. Feb. 2004 16:59 <-- editieren / zitieren --> Unities abgeben: Nur für Ralph06
Hallo Ralph, ich weiß nicht, ob es das richtige ist, aber auf den Service-Disketten des AutoCAD-Magazines gab es mal dies hier. Programm: BOG_1.LSP Funktion: zeichnet Rund-, Stich- und gotische Bögen Autor: Dieter Ribbrock Plattform: AutoCAD 2000 2000i udn 2002 Bezug: nur auf Service-Diskette 2/2002 ------------------ Gruß Heidi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ralph06 Mitglied Bau
Beiträge: 3 Registriert: 16.02.2004
|
erstellt am: 17. Feb. 2004 07:27 <-- editieren / zitieren --> Unities abgeben:
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 19. Feb. 2004 13:26 <-- editieren / zitieren --> Unities abgeben: Nur für Ralph06
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 20. Feb. 2004 20:15 <-- editieren / zitieren --> Unities abgeben: Nur für Ralph06
Also liebe Leute, hier ein Vorschlag, wie man die Dinge lösen kann:
Code:
(defun lbogen(cen p1 len / ang1 ang2 ang3 rad) (setq rad(distance cen p1)) (setq ang1(angle cen p1)) (setq ang2(+ ang1(/ len rad))) (if(minusp len)(setq ang3 ang1 ang1 ang2 ang2 ang3 len(abs len))) (entmake (list '(0 . "arc") (cons 10 cen) (cons 40 rad) (cons 50 ang1) (cons 51 ang2) ) ) )(defun c:lbogen1( / cen) (lbogen (setq cen(getpoint"\nMittelpunkt: ")) (getpoint cen"\nStartpunkt: ") (getdist "\nBogenlänge (+ UZ, - GUZ): ") ) ) (defun c:lbogen2( / cen rad ang) (setq cen(getpoint"\nMittelpunkt: ")) (setq rad(getdist cen"\nRadius: ")) (setq ang(getangle"\nStartwinkel: ")) (lbogen cen(polar cen ang rad) (getdist "\nBogenlänge (+ UZ, - GUZ): ") ) )
Ist aber nur auf die Schnelle hingeschrieben, nicht _wirklich_ ausprobiert:-( Gruß, Axel PS: Hab das noch mal korrigiert, war ein Fehlerchen drin:-( ------------------ Meine AutoLisp-Seiten Meine private Homepage Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze Meine Überzeugung... [Diese Nachricht wurde von mapcar am 25. Feb. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |