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

ATTREQ/ATTDIA vor GF-Block-Insert auf 0 setzen, um fehlende Attribute zu beheben; Horizontale Variofoerderer-Mittelsektion als zusaetzlichen Testfall in TEST_FOERDERER pruefen und bauen

Browse Source
This commit is contained in:
Yuelin Wang
2026-07-03 13:43:55 +02:00
parent 17d5bfc539
commit acdf735e00
2 changed files with 82 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/Gefaellestrecke.lsp
+7
View File
@@ -1484,8 +1484,15 @@
)
;; Block definieren und einfuegen
(setq gf-bname (strcat "GF_" (itoa gf-nummer)))
;; ATTREQ/ATTDIA=0: verhindert interaktive Attribut-Abfrage bei INSERT
;; (sonst bleiben die per ssg-attrib-set-on gesetzten Werte wirkungslos,
;; da INSERT auf der Kommandozeile auf Attribut-Eingaben wartet), siehe
;; identisches Muster in vf-block-erstellen (vf_core.lsp).
(setvar "ATTREQ" 0)
(setvar "ATTDIA" 0)
(command "_.-BLOCK" gf-bname startpunkt gf-ss "")
(command "_.INSERT" gf-bname startpunkt 1.0 1.0 0.0)
(setvar "ATTREQ" 1)
;; Attribute auf das eingefuegte INSERT-Objekt setzen
(setq gf-insert (entlast))
(ssg-attrib-set-on gf-insert
tests/test_foerderer.lsp
+75 -25
View File
@@ -66,16 +66,44 @@
)
;; --- Einen VF-Testblock bauen und lastEnt hinter dessen SEQEND schieben ---
(defun foerderer:baue-block (startpunkt vf-nummer hoehe-von hoehe-bis
deltaH deltaL richtung best-winkel
L_GF1 L_GF2 L_VF lastEnt /
sub-ent)
(variofoerderer-einfuegen deltaL deltaH richtung best-winkel
L_GF1 L_GF2 L_VF
startpunkt "links" 0.0)
(vf-block-erstellen "standard" "links" vf-nummer 0
hoehe-von hoehe-bis deltaH deltaL L_VF
L_GF1 L_GF2
richtung best-winkel startpunkt lastEnt 0.0)
;; lastEnt hinter den SEQEND des VF-Blocks schieben.
;; Ohne diesen Schritt wuerde entnext vom INSERT-Entity
;; in die ATTRIB-Kette des gerade erstellten VF-Blocks
;; springen und diese beim naechsten _.-BLOCK-Aufruf
;; in den neuen Block verschieben (Datenverlust).
(setq lastEnt (entlast))
(setq sub-ent (entnext lastEnt))
(while (and sub-ent
(not (equal (cdr (assoc 0 (entget sub-ent))) "SEQEND")))
(setq lastEnt sub-ent)
(setq sub-ent (entnext lastEnt)))
(if sub-ent (setq lastEnt sub-ent))
lastEnt
)
;; ============================================================
;; C:TEST_FOERDERER - Hauptbefehl
;; ============================================================
(defun c:TEST_FOERDERER ( / json-datei testdaten cfg tests
eintrag test-id richtung deltaL deltaH
ergebnis best-winkel L_GF L_VF
y-offset y-abstand idx
ergebnis best-winkel L_GF L_VF horizontal-info
y-offset y-abstand idx blk-nummer
anz-gebaut anz-nicht-gebaut results-list
startpunkt vf-nummer hoehe-von hoehe-bis lastEnt
sub-ent sub-typ)
startpunkt hoehe-von hoehe-bis lastEnt
sub-typ)
;; Bibliothek initialisieren (laedt Block-Library und extrahiert Masse)
(if (not *lib-initialized*)
@@ -113,6 +141,7 @@
(setq y-offset 0)
(setq idx 0)
(setq blk-nummer 0)
(setq results-list '())
(setq anz-gebaut 0)
(setq anz-nicht-gebaut 0)
@@ -160,33 +189,17 @@
" L_VF=" (rtos L_VF 2 1)))
(setq startpunkt (list 0 y-offset 0))
(setq vf-nummer idx)
(setq blk-nummer (1+ blk-nummer))
(setq hoehe-von 0)
(setq hoehe-bis (if (= richtung "Auf") deltaH (- deltaH)))
;; Wie c:VarioFoerderer: Attribut-Entities/SEQEND des vorherigen
;; VF_N-Blocks ueberspringen, sonst rutschen sie in den naechsten
;; Block hinein (Blockerstellung faengt sonst am falschen Entity an).
(setq lastEnt (vf-lastent-ohne-attribute))
(variofoerderer-einfuegen deltaL deltaH richtung best-winkel
(/ L_GF 2.0) (/ L_GF 2.0) L_VF
startpunkt "links" 0.0)
(vf-block-erstellen "standard" "links" vf-nummer 0
hoehe-von hoehe-bis deltaH deltaL L_VF
(/ L_GF 2.0) (/ L_GF 2.0)
richtung best-winkel startpunkt lastEnt 0.0)
;; lastEnt hinter den SEQEND des VF-Blocks schieben.
;; Ohne diesen Schritt wuerde entnext vom INSERT-Entity
;; in die ATTRIB-Kette des gerade erstellten VF-Blocks
;; springen und diese beim naechsten _.-BLOCK-Aufruf
;; in den neuen Block verschieben (Datenverlust).
(setq lastEnt (entlast))
(setq sub-ent (entnext lastEnt))
(while (and sub-ent
(not (equal (cdr (assoc 0 (entget sub-ent))) "SEQEND")))
(setq lastEnt sub-ent)
(setq sub-ent (entnext lastEnt)))
(if sub-ent (setq lastEnt sub-ent))
(setq lastEnt
(foerderer:baue-block startpunkt blk-nummer hoehe-von hoehe-bis
deltaH deltaL richtung best-winkel
(/ L_GF 2.0) (/ L_GF 2.0) L_VF lastEnt))
(setq results-list (cons
(foerderer:test-result-json test-id richtung deltaL deltaH
@@ -202,6 +215,43 @@
results-list))
)
)
;; Zusaetzlich: Horizontale Variofoerderer-Mittelsektion (0 Grad)
;; pruefen und als eigenen Testfall bauen, falls bei richtung="Ab"
;; geometrisch moeglich (analog Schritt 5b in c:VarioFoerderer).
(if (= richtung "Ab")
(progn
(setq horizontal-info (berechne-horizontale-mitte deltaL deltaH "Ab"))
(if (and horizontal-info (caddr horizontal-info))
(progn
(setq anz-gebaut (1+ anz-gebaut))
(princ (strcat "\n " (itoa idx) ". " test-id
" -> GEBAUT (Horizontale Variofoerderer 0"
(chr 176) ") L_GF=" (rtos (car horizontal-info) 2 1)
" L_VF=" (rtos (cadr horizontal-info) 2 1)))
(setq y-offset (- y-offset y-abstand))
(setq startpunkt (list 0 y-offset 0))
(setq blk-nummer (1+ blk-nummer))
(setq hoehe-von 0)
(setq hoehe-bis (- deltaH))
(setq lastEnt (vf-lastent-ohne-attribute))
(setq lastEnt
(foerderer:baue-block startpunkt blk-nummer hoehe-von hoehe-bis
deltaH deltaL "Ab" 0
(/ (car horizontal-info) 2.0)
(/ (car horizontal-info) 2.0)
(cadr horizontal-info) lastEnt))
(setq results-list (cons
(foerderer:test-result-json (strcat test-id "_HORIZONTAL") richtung
deltaL deltaH "GEBAUT" 0
(car horizontal-info) (cadr horizontal-info))
results-list))
)
)
)
)
)
)
(setq y-offset (- y-offset y-abstand))