[REFACTOR] Rz(hz)*Ry(vert)-Rotationsmatrix zentralisiert (ssg-rot-matrix-zy)
Die 4x4-Matrix Rz(hz)*Ry(vert) stand woertlich 11x: vf_core (2x), vf_etage (4x), Gefaellestrecke (4x), TEFInsert (1x). Neuer dependency-freier Helper ssg-rot-matrix-zy in ssg_core.lsp (immer zuerst geladen), damit alle drei Cluster ihn ohne Cross-Modul-Kopplung teilen. - vf-rot-matrix bleibt als duenner Alias in vf_core (VF-Aufrufstellen unveraendert) - Reine 2D-Rz-Matrizen (insert-block-by-ks, nur horizontal) bleiben unangetastet (andere Form, kein Vertikalanteil) Werte identisch - reine Extraktion. Paren-Balance geprueft. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
+1
-5
@@ -94,11 +94,7 @@
|
||||
(setq chv (cos rad-h) shv (sin rad-h) cvv (cos rad-v) svv (sin rad-v))
|
||||
(setq block-obj (vla-InsertBlock modelspace (vlax-3D-point '(0.0 0.0 0.0))
|
||||
*tefl-blockname* 1.0 1.0 1.0 0))
|
||||
(setq matrix (list
|
||||
(list (* chv cvv) (- shv) (* chv svv) 0)
|
||||
(list (* shv cvv) chv (* shv svv) 0)
|
||||
(list (- svv) 0 cvv 0)
|
||||
(list 0 0 0 1)))
|
||||
(setq matrix (ssg-rot-matrix-zy chv shv cvv svv))
|
||||
(vla-TransformBy block-obj (vlax-tmatrix matrix))
|
||||
(vla-Move block-obj (vlax-3D-point '(0.0 0.0 0.0)) (vlax-3D-point pt))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user