[ADD] Gerüst Träger können nun über das Menü in Bricscad eingefügt werden wie durch die Bihler Bibliothek; Beschriftungsausrichtung nach Norm korrigiert; Nachträgliche Beschriftung über Makro für alle platzierten Träger möglich
This commit is contained in:
+249
-5
@@ -754,9 +754,9 @@
|
||||
(if (findfile _datei)
|
||||
(progn
|
||||
(setq _daten (ssg-json-laden _datei))
|
||||
;; Drei Bereiche: Rohrabhaenger, Saeulen (1 und 2 Zoll zusammengefuehrt),
|
||||
;; Wandbefestigung
|
||||
(tu-eq "json/geruest-baugruppen" 3 (length _daten))
|
||||
;; Vier Baugruppen: Rohrabhaenger, Saeulen (1 und 2 Zoll
|
||||
;; zusammengefuehrt), Wandbefestigung, Rohr-Geruest-Traeger
|
||||
(tu-eq "json/geruest-baugruppen" 4 (length _daten))
|
||||
;; Baugruppe ueber das ASCII-Feld "id" finden (aeusserer Schluessel
|
||||
;; traegt Umlaute bzw. Anfuehrungszeichen)
|
||||
(setq _bg nil)
|
||||
@@ -773,11 +773,16 @@
|
||||
(ssg-json-get _bg "teileart"))
|
||||
(tu-eq "json/geruest-dummy" "Rohrabhaenger_dummy.dwg"
|
||||
(ssg-json-get _bg "dummy"))
|
||||
;; Sivas-ID als Zahl geparst, Laengengrenze aus dem attribute-Block
|
||||
;; Sivas-ID als Zahl geparst, Laengengrenze aus dem attribute-Block.
|
||||
;; Die Keys unter "attribute" sind die Block-Attribut-Tags und darum
|
||||
;; GROSS geschrieben (ssg-json-get unterscheidet Gross/Klein).
|
||||
(tu-eq "json/geruest-sivas" 821006026
|
||||
(ssg-json-get (car (ssg-json-get (car _var) "teile")) "sivas_id"))
|
||||
(tu-eq "json/geruest-max" 6000
|
||||
(ssg-json-get (ssg-json-get (ssg-json-get _bg "attribute") "Laenge") "max"))
|
||||
(ssg-json-get (ssg-json-get (ssg-json-get _bg "attribute") "LAENGE") "max"))
|
||||
(tu-eq "json/geruest-farboptionen" '("RAL7035" "RAL7030")
|
||||
(ssg-json-get (ssg-json-get (ssg-json-get _bg "attribute") "TEILEFARBE")
|
||||
"optionen"))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -978,6 +983,245 @@
|
||||
(geruest-variante-wert
|
||||
(nth _rec (ssg-json-get _saeulen "geometrie_varianten"))
|
||||
_saeulen "teileart")))
|
||||
;; Attribut-Keys GROSS - sonst findet geruest-dialog min/max und
|
||||
;; Farben nicht (Laengenfeld ohne Pruefung, leere Farbliste).
|
||||
(tu-eq "geruest/saeulen-laenge-max" 6000
|
||||
(geruest-attr-feld nil _saeulen "LAENGE" "max"))
|
||||
(tu-true "geruest/saeulen-farboptionen"
|
||||
(geruest-attr-feld nil _saeulen "TEILEFARBE" "optionen"))
|
||||
)
|
||||
)
|
||||
|
||||
;; --- Rohr-Geruest-Traeger: reine Berechnung ---
|
||||
;; Netto-Laenge = Strecke minus beide Abzuege, nil wenn nichts uebrig
|
||||
(tu-eqf "geruest-traeger-laenge/ende" 965.0 (geruest-traeger-laenge 1000.0 0.0 35.0))
|
||||
(tu-eqf "geruest-traeger-laenge/beide" 945.0 (geruest-traeger-laenge 1000.0 20.0 35.0))
|
||||
(tu-eqf "geruest-traeger-laenge/ohne" 1000.0 (geruest-traeger-laenge 1000.0 nil nil))
|
||||
(tu-nil "geruest-traeger-laenge/zu-kurz" (geruest-traeger-laenge 50.0 30.0 30.0))
|
||||
(tu-nil "geruest-traeger-laenge/genau-null" (geruest-traeger-laenge 60.0 30.0 30.0))
|
||||
;; Startpunkt wird um den Anfangsabzug entlang der Richtung eingerueckt,
|
||||
;; Z bleibt die des Startklicks
|
||||
(tu-eqf "geruest-traeger-start/0grad" '(20.0 0.0 500.0)
|
||||
(geruest-traeger-start '(0.0 0.0 500.0) 0.0 20.0))
|
||||
(tu-eqf "geruest-traeger-start/90grad" '(100.0 220.0 0.0)
|
||||
(geruest-traeger-start '(100.0 200.0 0.0) (/ pi 2.0) 20.0))
|
||||
(tu-eqf "geruest-traeger-start/2d-punkt" '(5.0 0.0 0.0)
|
||||
(geruest-traeger-start '(5.0 0.0) 0.0 0.0))
|
||||
;; Querstreben: Abstand max. 500, Rand 100..250 beidseitig gleich,
|
||||
;; so wenige wie moeglich
|
||||
;; Abstand genau 500, solange der Rand in 100..250 bleibt
|
||||
(tu-eqf "geruest-traeger-streben/1200" '(100.0 600.0 1100.0)
|
||||
(geruest-traeger-streben 1200.0 500.0 100.0 250.0))
|
||||
(tu-eqf "geruest-traeger-streben/1300" '(150.0 650.0 1150.0)
|
||||
(geruest-traeger-streben 1300.0 500.0 100.0 250.0))
|
||||
;; 1100 geht mit genau 500 nicht auf -> Rand 100, Abstand 450
|
||||
(tu-eqf "geruest-traeger-streben/1100" '(100.0 550.0 1000.0)
|
||||
(geruest-traeger-streben 1100.0 500.0 100.0 250.0))
|
||||
(tu-eqf "geruest-traeger-streben/1500" '(250.0 750.0 1250.0)
|
||||
(geruest-traeger-streben 1500.0 500.0 100.0 250.0))
|
||||
(tu-eqf "geruest-traeger-streben/1000" '(250.0 750.0)
|
||||
(geruest-traeger-streben 1000.0 500.0 100.0 250.0))
|
||||
(tu-eqf "geruest-traeger-streben/eine" '(200.0)
|
||||
(geruest-traeger-streben 400.0 500.0 100.0 250.0))
|
||||
(tu-eqf "geruest-traeger-streben/grenze-500" '(250.0)
|
||||
(geruest-traeger-streben 500.0 500.0 100.0 250.0))
|
||||
(tu-eqf "geruest-traeger-streben/501" '(100.0 401.0)
|
||||
(geruest-traeger-streben 501.0 500.0 100.0 250.0))
|
||||
(tu-nil "geruest-traeger-streben/zu-kurz"
|
||||
(geruest-traeger-streben 150.0 500.0 100.0 250.0))
|
||||
(tu-eqf "geruest-traeger-streben/min-200" '(100.0)
|
||||
(geruest-traeger-streben 200.0 500.0 100.0 250.0))
|
||||
;; 6000 mm: 11 Felder a 500 -> 12 Streben, letzte bei 5750
|
||||
(setq _rec (geruest-traeger-streben 6000.0 500.0 100.0 250.0))
|
||||
(tu-eq "geruest-traeger-streben/6000-anzahl" 12 (length _rec))
|
||||
(tu-eqf "geruest-traeger-streben/6000-letzte" 5750.0 (last _rec))
|
||||
;; Konfiguration: fehlende Felder -> Standard, ohne querstrebe -> nil
|
||||
;; Ergebnis (dummy laenge querlinie abstand-max rand-min rand-max)
|
||||
(tu-eqf "geruest-traeger-strebe-cfg/standard" '(nil 30.0 25.0 500.0 100.0 250.0)
|
||||
(geruest-traeger-strebe-cfg nil
|
||||
(ssg-json-parse "{\"querstrebe\": {\"rand_min\": 100}}")))
|
||||
(tu-eqf "geruest-traeger-strebe-cfg/dummy" '("s.dwg" 30.0 25.0 500.0 100.0 250.0)
|
||||
(geruest-traeger-strebe-cfg nil
|
||||
(ssg-json-parse "{\"querstrebe\": {\"dummy\": \"s.dwg\"}}")))
|
||||
(tu-eqf "geruest-traeger-strebe-cfg/wert" '(nil 30.0 25.0 400.0 100.0 250.0)
|
||||
(geruest-traeger-strebe-cfg nil
|
||||
(ssg-json-parse "{\"querstrebe\": {\"abstand_max\": 400}}")))
|
||||
;; Querlinien an Anfang und Ende der 30 mm langen Strebe
|
||||
(tu-eqf "geruest-traeger-strebe-enden" '(235.0 265.0)
|
||||
(geruest-traeger-strebe-enden 250.0 30.0))
|
||||
(tu-nil "geruest-traeger-strebe-cfg/ohne"
|
||||
(geruest-traeger-strebe-cfg nil (ssg-json-parse "{\"id\": \"X\"}")))
|
||||
;; Muffe nur bei "mit_muffe": true; Variante darf eigene Muffe mitbringen
|
||||
(setq _bgtest (ssg-json-parse "{\"muffe\": {\"dummy\": \"m.dwg\"}}"))
|
||||
(tu-eq "geruest-traeger-muffe-dummy/flag" "m.dwg"
|
||||
(geruest-traeger-muffe-dummy
|
||||
(ssg-json-parse "{\"name\": \"A\", \"mit_muffe\": true}") _bgtest))
|
||||
(tu-nil "geruest-traeger-muffe-dummy/ohne-flag"
|
||||
(geruest-traeger-muffe-dummy
|
||||
(ssg-json-parse "{\"name\": \"Rohr mit Muffe\"}") _bgtest))
|
||||
(tu-eq "geruest-traeger-muffe-dummy/variante" "m2.dwg"
|
||||
(geruest-traeger-muffe-dummy
|
||||
(ssg-json-parse
|
||||
"{\"mit_muffe\": true, \"muffe\": {\"dummy\": \"m2.dwg\"}}")
|
||||
_bgtest))
|
||||
(tu-nil "geruest-traeger-muffe-dummy/ohne-variante"
|
||||
(geruest-traeger-muffe-dummy nil _bgtest))
|
||||
|
||||
;; --- Traeger-Beschriftung: reine Berechnung ---
|
||||
;; Textwinkel entlang des Traegers, DIN: 90 < w <= 270 wird gedreht
|
||||
(tu-eqf "geruest-text-winkel/0" 0.0 (geruest-text-winkel 0.0))
|
||||
(tu-eqf "geruest-text-winkel/45" (/ pi 4.0) (geruest-text-winkel (/ pi 4.0)))
|
||||
(tu-eqf "geruest-text-winkel/90" (/ pi 2.0) (geruest-text-winkel (/ pi 2.0)))
|
||||
(tu-eqf "geruest-text-winkel/91" (* 271 (/ pi 180.0))
|
||||
(geruest-text-winkel (* 91 (/ pi 180.0))))
|
||||
(tu-eqf "geruest-text-winkel/180" 0.0 (geruest-text-winkel pi))
|
||||
(tu-eqf "geruest-text-winkel/270" (/ pi 2.0) (geruest-text-winkel (* 1.5 pi)))
|
||||
(tu-eqf "geruest-text-winkel/271" (* 271 (/ pi 180.0))
|
||||
(geruest-text-winkel (* 271 (/ pi 180.0))))
|
||||
;; -90 = 270 -> gedreht auf 90 (von unten nach oben lesbar)
|
||||
(tu-eqf "geruest-text-winkel/-90" (/ pi 2.0) (geruest-text-winkel (- (/ pi 2.0))))
|
||||
;; Ausrichtungs-Codes wie TEXT "Ausrichten" -> (dxf72 dxf73)
|
||||
(tu-eq "geruest-ausrichtung/TL" '(0 3) (geruest-ausrichtung-codes "TL"))
|
||||
(tu-eq "geruest-ausrichtung/TC" '(1 3) (geruest-ausrichtung-codes "TC"))
|
||||
(tu-eq "geruest-ausrichtung/TR" '(2 3) (geruest-ausrichtung-codes "TR"))
|
||||
(tu-eq "geruest-ausrichtung/ML" '(0 2) (geruest-ausrichtung-codes "ML"))
|
||||
(tu-eq "geruest-ausrichtung/MC" '(1 2) (geruest-ausrichtung-codes "MC"))
|
||||
(tu-eq "geruest-ausrichtung/MR" '(2 2) (geruest-ausrichtung-codes "MR"))
|
||||
(tu-eq "geruest-ausrichtung/BL" '(0 1) (geruest-ausrichtung-codes "BL"))
|
||||
(tu-eq "geruest-ausrichtung/BC" '(1 1) (geruest-ausrichtung-codes "BC"))
|
||||
(tu-eq "geruest-ausrichtung/BR" '(2 1) (geruest-ausrichtung-codes "BR"))
|
||||
(tu-eq "geruest-ausrichtung/klein" '(1 1) (geruest-ausrichtung-codes "bc"))
|
||||
(tu-nil "geruest-ausrichtung/unbekannt" (geruest-ausrichtung-codes "XY"))
|
||||
(tu-nil "geruest-ausrichtung/nil" (geruest-ausrichtung-codes nil))
|
||||
;; Textlage: Bezugspunkt auf der Linie, "links" in Leserichtung
|
||||
(tu-eqf "geruest-text-lage/0-BC" '((1000.0 0.0 0.0) 0.0 1 1)
|
||||
(geruest-traeger-text-lage '(0.0 0.0 0.0) 0.0 2000.0 "BC"))
|
||||
(tu-eqf "geruest-text-lage/0-BL" '((0.0 0.0 0.0) 0.0 0 1)
|
||||
(geruest-traeger-text-lage '(0.0 0.0 0.0) 0.0 2000.0 "BL"))
|
||||
(tu-eqf "geruest-text-lage/0-BR" '((2000.0 0.0 0.0) 0.0 2 1)
|
||||
(geruest-traeger-text-lage '(0.0 0.0 0.0) 0.0 2000.0 "BR"))
|
||||
;; Traeger nach links (180): Text gedreht auf 0, links = Linienende
|
||||
(tu-eqf "geruest-text-lage/180-BL" '((-2000.0 0.0 0.0) 0.0 0 1)
|
||||
(geruest-traeger-text-lage '(0.0 0.0 0.0) pi 2000.0 "BL"))
|
||||
(tu-eqf "geruest-text-lage/180-BR" '((0.0 0.0 0.0) 0.0 2 1)
|
||||
(geruest-traeger-text-lage '(0.0 0.0 0.0) pi 2000.0 "BR"))
|
||||
(tu-eqf "geruest-text-lage/180-BC" '((-1000.0 0.0 0.0) 0.0 1 1)
|
||||
(geruest-traeger-text-lage '(0.0 0.0 0.0) pi 2000.0 "BC"))
|
||||
;; Unbekannter Code -> BC
|
||||
(tu-eqf "geruest-text-lage/ersatz" '((1000.0 0.0 0.0) 0.0 1 1)
|
||||
(geruest-traeger-text-lage '(0.0 0.0 0.0) 0.0 2000.0 "XY"))
|
||||
;; Text: %1 = Variantentext, %2 = Laenge auf ganze mm
|
||||
(tu-eq "geruest-text-string/beispiel" "RT 80/80 L=2650"
|
||||
(geruest-traeger-text-string "%1 L=%2" "RT 80/80" 2649.5))
|
||||
(tu-eq "geruest-text-string/abrunden" "L=965 RT"
|
||||
(geruest-traeger-text-string "L=%2 %1" "RT" 965.4))
|
||||
(tu-eq "geruest-text-string/mehrfach" "A A 10"
|
||||
(geruest-traeger-text-string "%1 %1 %2" "A" 10.0))
|
||||
;; Konfiguration je Feld: Variante vor Baugruppe vor Code-Standard
|
||||
(setq _bgtest (ssg-json-parse
|
||||
(strcat "{\"beschriftung\": {\"format\": \"%1 L=%2\", \"stil\": \"S1\","
|
||||
" \"ausrichtung\": \"BC\", \"hoehe\": 50, \"layer\": \"D-5-BEM\"}}")))
|
||||
(setq _rec (geruest-traeger-beschr-cfg
|
||||
(ssg-json-parse
|
||||
"{\"name\": \"RT 80/80 1 Zoll\", \"beschriftung\": {\"text\": \"RT 80/80\", \"layer\": \"D-6-BEM\"}}")
|
||||
_bgtest "ERSATZ"))
|
||||
(tu-eq "geruest-beschr-cfg/text" "RT 80/80" (cdr (assoc "text" _rec)))
|
||||
(tu-eq "geruest-beschr-cfg/layer" "D-6-BEM" (cdr (assoc "layer" _rec)))
|
||||
(tu-eq "geruest-beschr-cfg/stil" "S1" (cdr (assoc "stil" _rec)))
|
||||
(tu-eqf "geruest-beschr-cfg/hoehe" 50.0 (cdr (assoc "hoehe" _rec)))
|
||||
(setq _rec (geruest-traeger-beschr-cfg
|
||||
(ssg-json-parse "{\"name\": \"Ohne Text\"}") _bgtest "ERSATZ"))
|
||||
(tu-eq "geruest-beschr-cfg/text-name" "Ohne Text" (cdr (assoc "text" _rec)))
|
||||
(tu-eq "geruest-beschr-cfg/layer-bg" "D-5-BEM" (cdr (assoc "layer" _rec)))
|
||||
(setq _rec (geruest-traeger-beschr-cfg nil (ssg-json-parse "{\"id\": \"X\"}") "ERSATZ"))
|
||||
(tu-eq "geruest-beschr-cfg/ersatz" "ERSATZ" (cdr (assoc "text" _rec)))
|
||||
(tu-eq "geruest-beschr-cfg/std-format" "%1 L=%2" (cdr (assoc "format" _rec)))
|
||||
(tu-eq "geruest-beschr-cfg/std-ausr" "BC" (cdr (assoc "ausrichtung" _rec)))
|
||||
(tu-eqf "geruest-beschr-cfg/std-hoehe" 50.0 (cdr (assoc "hoehe" _rec)))
|
||||
(tu-nil "geruest-beschr-cfg/std-layer" (cdr (assoc "layer" _rec)))
|
||||
;; Bereichspruefung auf der Netto-Laenge
|
||||
(tu-true "geruest-traeger-pruefen/innen" (geruest-traeger-pruefen 965.0 0 6000))
|
||||
(tu-nil "geruest-traeger-pruefen/ueber" (geruest-traeger-pruefen 6001.0 0 6000))
|
||||
(tu-true "geruest-traeger-pruefen/grenze" (geruest-traeger-pruefen 6000.0 0 6000))
|
||||
(tu-true "geruest-traeger-pruefen/ohne" (geruest-traeger-pruefen 99999.0 nil nil))
|
||||
(tu-nil "geruest-traeger-pruefen/nil" (geruest-traeger-pruefen nil 0 6000))
|
||||
;; Eingaben in mm: Komma wie Punkt, negativ/Text ungueltig
|
||||
(tu-eqf "geruest-mm-zahl/ganz" 35.0 (geruest-mm-zahl "35"))
|
||||
(tu-eqf "geruest-mm-zahl/komma" 17.5 (geruest-mm-zahl "17,5"))
|
||||
(tu-nil "geruest-mm-zahl/text" (geruest-mm-zahl "abc"))
|
||||
(tu-nil "geruest-mm-zahl/negativ" (geruest-mm-zahl "-5"))
|
||||
(tu-nil "geruest-mm-zahl/leer" (geruest-mm-zahl ""))
|
||||
(tu-eqf "geruest-abzug-wert/leer" 0.0 (geruest-abzug-wert ""))
|
||||
(tu-nil "geruest-abzug-wert/text" (geruest-abzug-wert "x"))
|
||||
(tu-eqf "geruest-tr-abzug/inaktiv" 0.0 (geruest-tr-abzug "0" "x"))
|
||||
(tu-eqf "geruest-tr-abzug/aktiv" 35.0 (geruest-tr-abzug "1" "35"))
|
||||
(tu-eq "geruest-mm-string/ganz" "965" (geruest-mm-string 965.0))
|
||||
(tu-eq "geruest-mm-string/dezimal" "17.5" (geruest-mm-string 17.5))
|
||||
;; Variante darf Attribut-Felder ueberschreiben - auch mit false
|
||||
(setq _bgtest (ssg-json-parse
|
||||
"{\"attribute\": {\"LAENGENABZUGENDE\": {\"vorgabe\": 35, \"aktiv\": true}}}"))
|
||||
(tu-eq "geruest-attr-feld/baugruppe" 35
|
||||
(geruest-attr-feld nil _bgtest "LAENGENABZUGENDE" "vorgabe"))
|
||||
(tu-eq "geruest-attr-feld/variante" 50
|
||||
(geruest-attr-feld
|
||||
(ssg-json-parse "{\"attribute\": {\"LAENGENABZUGENDE\": {\"vorgabe\": 50}}}")
|
||||
_bgtest "LAENGENABZUGENDE" "vorgabe"))
|
||||
(tu-nil "geruest-attr-feld/variante-false"
|
||||
(geruest-attr-feld
|
||||
(ssg-json-parse "{\"attribute\": {\"LAENGENABZUGENDE\": {\"aktiv\": false}}}")
|
||||
_bgtest "LAENGENABZUGENDE" "aktiv"))
|
||||
|
||||
;; --- Rohr-Geruest-Traeger in der echten Datendatei ---
|
||||
;; Eigener Dialog: im Bereichs-Dropdown von GERUEST darf er fehlen,
|
||||
;; ueber geruest-baugruppe muss er aber auffindbar sein.
|
||||
(setq _rec nil)
|
||||
(foreach _e (geruest-baugruppen-liste)
|
||||
(if (equal (car _e) "Traeger") (setq _rec T)))
|
||||
(tu-nil "geruest/traeger-nicht-im-dropdown" _rec)
|
||||
(setq _traeger (geruest-baugruppe "Traeger"))
|
||||
(tu-true "geruest/traeger-vorhanden" _traeger)
|
||||
(if _traeger
|
||||
(progn
|
||||
(tu-eq "geruest/traeger-einfuegeart" "linie"
|
||||
(ssg-json-get _traeger "einfuegeart"))
|
||||
(tu-eq "geruest/traeger-varianten-artikel" 0
|
||||
(tu-geruest-artikel-unvollstaendig
|
||||
(ssg-json-get _traeger "geometrie_varianten")))
|
||||
(tu-true "geruest/traeger-layer"
|
||||
(geruest-variante-wert
|
||||
(car (ssg-json-get _traeger "geometrie_varianten"))
|
||||
_traeger "layer"))
|
||||
(tu-eq "geruest/traeger-max" 6000
|
||||
(geruest-attr-feld nil _traeger "LAENGE" "max"))
|
||||
(tu-eqf "geruest/traeger-querstrebe"
|
||||
'("dummy_Strebe_30x4.dwg" 30.0 25.0 500.0 100.0 250.0)
|
||||
(geruest-traeger-strebe-cfg nil _traeger))
|
||||
;; Muffen-Flag ausdruecklich je Variante: genau die "mit (2) Muffe(n)"
|
||||
(setq _rec 0)
|
||||
(foreach _v (ssg-json-get _traeger "geometrie_varianten")
|
||||
(if (geruest-traeger-muffe-dummy _v _traeger) (setq _rec (1+ _rec))))
|
||||
(tu-eq "geruest/traeger-muffen-varianten" 4 _rec)
|
||||
;; Jede Variante definiert Beschriftungstext UND -layer selbst - der
|
||||
;; Layer ist je Traegervariante verschieden, eine Vorgabe der
|
||||
;; Baugruppe gibt es dafuer bewusst nicht.
|
||||
(setq _rec 0)
|
||||
(foreach _v (ssg-json-get _traeger "geometrie_varianten")
|
||||
(setq _cfg (geruest-traeger-beschr-cfg _v _traeger ""))
|
||||
(if (and (geruest-obj-feld _v _traeger '("beschriftung") "text")
|
||||
(/= (cdr (assoc "text" _cfg)) "")
|
||||
(geruest-json-pfad-get _v '("beschriftung" "layer"))
|
||||
(geruest-ausrichtung-codes (cdr (assoc "ausrichtung" _cfg))))
|
||||
(setq _rec (1+ _rec))))
|
||||
(tu-eq "geruest/traeger-beschriftung-varianten"
|
||||
(length (ssg-json-get _traeger "geometrie_varianten")) _rec)
|
||||
;; VARIANTE gehoert zum Traeger-Schema (Grundlage fuer das Neubeschriften)
|
||||
(tu-true "geruest/traeger-attrib-variante"
|
||||
(assoc "VARIANTE" *geruest-traeger-attrib-defs*))
|
||||
;; Beide Dummy-DWGs liegen unter data/geruest
|
||||
(tu-true "geruest/traeger-strebe-dwg"
|
||||
(findfile (geruest-dummy-pfad "dummy_Strebe_30x4.dwg")))
|
||||
(tu-true "geruest/traeger-muffe-dwg"
|
||||
(findfile (geruest-dummy-pfad "dummy_Muffe_1zoll.dwg")))
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user