Informationen zum Forum Lisp:
Anzahl aktive Mitglieder: 1.247
Anzahl Beiträge: 32.185
Anzahl Themen: 4.624

Im Beitrag/Titel Nur im Titel Nur nach Datum sortieren Docs / Anhänge mit Lösung
Suchmaschinenstatistik
Livesuche
Einstellungen
Info

Auch mit chatGPT* können Lösungen aus dem CAD.de-Forum recherchiert werden:

* chatGPT ist eine eingetragene Marke von openAI

Ergebnisse 1 - 2, 2 Gesamtergebnisse mit Suchbegriffen polar sec.

Direkter Link in ein Forum:

NC Polaris CAM

Lisp : Boegen in Polylinien > 180° teilen
Theodor Schoenwald am 09.08.2012 um 19:09 Uhr (0)
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 )) ;;------------------ ...
In das Form Lisp wechseln
Lisp : Boegen in Polylinien > 180° teilen
Theodor Schoenwald am 09.08.2012 um 01:17 Uhr (0)
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 " Zeige 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 ...
In das Form Lisp wechseln

Anzeige:

Anzeige: (Infos zum Werbeplatz)

Alle Produkt-, Schrift-, Firmennamen und Logos sind Warenzeichen oder eingetr. Warenzeichen der jeweiligen Firmen.
©2026 CAD.de , Lenggries. Tel: ++49 (8042) 973 8208 | Datenschutz