| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Boegen in Polylinien > 180° teilen (1095 mal gelesen)
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 08. Aug. 2012 16:55 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 08. Aug. 2012 18:22 <-- editieren / zitieren --> Unities abgeben: Nur für Theodor Schoenwald
|
scj Mitglied
Beiträge: 554 Registriert: 09.08.2001
|
erstellt am: 08. Aug. 2012 21:16 <-- editieren / zitieren --> Unities abgeben: Nur für Theodor Schoenwald
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 08. Aug. 2012 22:08 <-- editieren / zitieren --> Unities abgeben:
|
scj Mitglied
Beiträge: 554 Registriert: 09.08.2001
|
erstellt am: 08. Aug. 2012 22:55 <-- editieren / zitieren --> Unities abgeben: Nur für Theodor Schoenwald
'tschuldigung hab's nur aus meinem PEDIT3D rauskopiert und nicht nochmal kontrolliert. Die Variable "aufl" steuert die Auflösung für einen Öffnungswinkel von 90° im Bogen, d.h. mit winkel = ew-aw 90°<winkel<180° => aufl=zweimal aufl 180°<winkel<270° => aufl=dreimal aufl 270°<winkel<360° => aufl=viermal aufl Gute Nacht! Jochen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 09. Aug. 2012 01:17 <-- editieren / zitieren --> Unities abgeben:
Hallo Jochen, da ich nur Bögen teilen muss, bei denen der Winkel > 180° ist, konnte ich alles sehr vereinfachen. Es sieht jetzt so aus: ;;------------------------------ (defun C:A2 (/ BO) (setq BO (car (entsel "\nZeige Bogen: "))) (command "_point" (BO_MP BO)); das ist nur ein Kontrollpunkt ) (defun BO_MP (B / SS RA CP SP AW EW SW PT) (setq SS (entget B)) (setq RA (cdr (assoc 40 SS)) CP (cdr (assoc 10 SS)) AW (cdr (assoc 50 SS)) EW (cdr (assoc 51 SS)) ) (if (< EW AW) (setq EW (+ (* 2 pi) EW)) ) (if (> (- EW AW) (* 0.5 pi)) (setq SW (abs (/ (- EW AW) 2)) PT (polar CP (+ AW SW) RA) ) ) PT ) (princ) ;;---------------------------- Stichwort 3-d Polylinien, schau mal hier: http://www.lehrer.uni-karlsruhe.de/~za685/neues.htm werden 3-d Punkte erfasst. Nochmals vielen Dank Theodor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 09. Aug. 2012 19:09 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, ein Tool das Bögen > 180° teilt, wenn man das Bogensegment der Polylinie anwählt, habe ich bereits gemacht. Es geht um die Koordinaten-Ausgabe für NC-Daten. Hallo Jochen, nun habe ich den Code auch für Polylinien und LWPolylinien gemacht: ;;--- Geteilte Koordinatenausgabe bei Polylinien-Bögen > 180° ----- (if (> WI pi) (setq MIDP (polar P1 (angle P1 P2) (/ (distance P1 P2) 2.0)) MIDP_A (polar MIDP (- (angle P1 MIDP) (/ pi 2)) (* (distance P1 MIDP) (abs BULGE))) FLAG_180 t ) ) ;;---------------------------------------------------- Viele Grüße Theodor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |