Schoenenberger_Systeme_GmbH/dxfmakros
7
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

[ADD] Kreiseldrehrichtungsanzeige hinzugefügt; [CHANGE] Insert des Kreisel mit Ausrichtung wird jetzt über die vom Benutzer gezeichnete Eingabelinie erreichnet; [FIX] Fehlende config Datei für die Positionierung der Stückliste hinzugefügt

Browse Source
This commit is contained in:
Simon Hensch
2026-10-16 11:41:51 +02:00
parent b6aa3d604c
commit 6b8f0f9ec3
8 changed files with 206 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_unit.lsp
+21
View File
@@ -803,6 +803,27 @@
(defun tu-tests-kreisel ( / _e)
(princ "\n[KreiselInsert]")
;; Drehrichtungspfeil: AN8-Mitte 90 Grad, SP8-Mitte 270 Grad, GUZ gespiegelt
(tu-eqf "kreisel-pfeil-params/uzs"
'(((400.0 0.0 0.0) 90.0 1.0) ((2700.0 0.0 0.0) 270.0 1.0))
(kreisel-pfeil-params 400.0 2300.0 "UZS"))
(tu-eqf "kreisel-pfeil-params/guz"
'(((400.0 0.0 0.0) 90.0 -1.0) ((2700.0 0.0 0.0) 270.0 -1.0))
(kreisel-pfeil-params 400.0 2300.0 "GUZ"))
(tu-eqf "kreisel-pfeil-xskal/nil-ist-uzs" 1.0 (kreisel-pfeil-xskal nil))
(tu-eqf "eckrad-pfeil-params/guz"
'(((0.0 0.0 0.0) 90.0 -1.0)) (eckrad-pfeil-params "GUZ"))
;; KreiselInsert: Abstand + Rotation aus der Gummiband-Linie
(tu-eqf "kreisel-insert-richtung/ost"
'(2300.0 0.0) (kreisel-insert-richtung '(100.0 100.0 0.0) '(2400.0 100.0 0.0) 2300.0))
(tu-eqf "kreisel-insert-richtung/sued"
'(1500.0 270.0) (kreisel-insert-richtung '(0.0 0.0 0.0) '(0.0 -1500.0 0.0) 2300.0))
(tu-eqf "kreisel-insert-richtung/z-ignoriert"
'(1000.0 90.0) (kreisel-insert-richtung '(0.0 0.0 2000.0) '(0.0 1000.0 0.0) 2300.0))
(tu-eqf "kreisel-insert-richtung/enter-vorgabe"
'(2300.0 0.0) (kreisel-insert-richtung '(0.0 0.0 0.0) nil 2300.0))
;; Projektion eines Punktes auf eine Gerade
(tu-eqf "kreisel-project-point/lot"
'(0.0 0.0) (kreisel-project-point '(0.0 5.0) '(0.0 0.0) '(10.0 0.0)))