;#################################################################################################################; ;## ##; ;## ##; ;## ??????????????????????? ##; ;## ??+++++++++++++++++++?? ##; ;## ??????????????????????+++++++++++++++++++?? ##; ;## ??DDDDDDDDDDDDDDDDDD??+++++++++++++++++++?? ##; ;## ??DDDDD????????????????????????????????++?? ##; ;## ??DDDDD?? ??++?? ##; ;## ??DDDDD?? ??++?? ##; ;## ??DDDDD?? MMMMMMMMO. ??++?? MMMM MMMM MMMM MMMM MMMMM~ ##; ;## ??DDDDD?? MMMMMMMMMM. ??++?? MMMM MMMM MMMM MMMM :MMMMM MMM ##; ;## ??DDDDD?? MMMM MMMM MMM=MMM= :MMMMMM: MMMM MMMM MMMM MMMMOMMMM~ MMM ##; ;## ??DDDDD?? MMMMMMMMMM. MMMMMMM.MMMMOZMMMM MMMMMMMMMMMM MMMM MMMMMMMMM, MMMMMMMMMMM ##; ;## ??DDDDD?? MMMMMMMMO MMMM. MMM?++?MMM MMMM MMMM MMMM MMMMMM$MMM, MMMMMMMMMMM ##; ;## ??DDDDD?? MMMM MMMM MMMMOZMMMM MMMM MMMM MMMMMMMMM MMMM =MMMZ MMM ##; ;## ????????? MMMM MMMM :MMMMMM: MMMM MMMM MMMMMMMMM MMMM IMMMO MMM ##; ;## ??ZZ?? ?? ##; ;## ??ZZ?? ?? ##; ;## ??ZZ???????????????????????????????? Copyright 1997-2007 by H+I Gmbh ##; ;## ??ZZZZZZZZZZZZZZ??IIIIIIIIIIIII????? Bachmattweg 24 ##; ;## ??ZZZZZZZZZZZZZZ??IIIIIIIIIIIII?? 8048 Zürich ##; ;## ??ZZZZZZZZZZZZZZ??IIIIIIIIIIIII?? Schweiz ##; ;## ??ZZZZZZZZZZZZZZ??IIIIIIIIIIIII?? ##; ;## ??ZZZZZZZZZZZZZZ????????????????? ##; ;## ??ZZZZZZZZZZZZZZ?? ##; ;## ?????????????????? ##; ;## ##; ;## ##; ;#################################################################################################################; ;## ##; ;## Programm: L-001.LSP ##; ;## Erstellungs-Datum: 2006.10.14 Jahr/Monat/Tag ##; ;## Beschreibung: Programme von Lüftungs-Tool ##; ;## ##; ;#################################################################################################################; ; ;#################################################################################################################; ;## ##; ;## Programm: L-001.LSP ##; ;## Erstellungs-Datum: 2006.10.14 Jahr/Monat/Tag ##; ;## Beschreibung: Lüftungskanal-Führung mit Bogen. ##; ;## ##; ;#################################################################################################################; ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Beginn von Lüftungs-Kanal mit Endstück oder Bruchlinie. ##; ;##-------------------------------------------------------------------------------------------------------------##; (DEFUN C:test() (SETVAR "cmdecho" 0) (SETQ splinedicke (GETVAR "PLINEWID")) (SETVAR "PLINEWID" 0) (COMMAND "_wipeout" "R" "E") (IF (NOT (TBLSEARCH "BLOCK" "Kanal")) (PROGN (COMMAND "_bedit" "Kanal") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Punkte für Lüftungs-Kanal mit Isolation. ##; ;##-------------------------------------------------------------------------------------------------------------##; (SETQ l001p00 (POLAR '(0 0 0) (* (/ PI 180) 0) 1500) l001p1 (POLAR '(0 0 0) (* (/ PI 180) 90) 50) l001p2 (POLAR '(0 0 0) (* (/ PI 180) 270) 50) l001p11 (POLAR l001p1 (* (/ PI 180) 0) 1500) l001p22 (POLAR l001p2 (* (/ PI 180) 0) 1500) l001p3 (POLAR l001p1 (* (/ PI 180) 90) 22) l001p33 (POLAR l001p11 (* (/ PI 180) 90) 22) l001p4 (POLAR l001p2 (* (/ PI 180) 270) 22) l001p44 (POLAR l001p22 (* (/ PI 180) 270) 22) l001p5 (POLAR l001p1 (* (/ PI 180) 90) 140) l001p55 (POLAR l001p11 (* (/ PI 180) 90) 140) l001p6 (POLAR l001p2 (* (/ PI 180) 270) 140) l001p66 (POLAR l001p22 (* (/ PI 180) 270) 140) l001i1 (POLAR '(0 0 0) (* (/ PI 180) 90) 390) l001i2 (POLAR '(0 0 0) (* (/ PI 180) 270) 390) l001i3 (POLAR l001p5 (* (/ PI 180) 90) 390) l001i4 (POLAR l001p5 (* (/ PI 180) 270) 390) l001pw1 (POLAR l001p55 (* (/ PI 180) 45) 500) l001pw2 (POLAR l001p66 (* (/ PI 180) 225) 500) l001pw3 (POLAR l001p22 (* (/ PI 180) 45) 50) l001pw4 (POLAR l001p2 (* (/ PI 180) 225) 500) l001pw5 (POLAR l001p1 (* (/ PI 180) 225) 50) ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Punkte für Bemassungen. ##; ;##-------------------------------------------------------------------------------------------------------------##; l001pb1 (POLAR l001p1 (* (/ PI 180) 0) 400) l001pb2 (POLAR l001p2 (* (/ PI 180) 0) 400) ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Punkte für Parameter Drehen. ##; ;##-------------------------------------------------------------------------------------------------------------##; l001pd1 (POLAR '(0 0 0) (* (/ PI 180) 0) 250) ) ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Lüftungs-Kanal zeichnen. ##; ;##-------------------------------------------------------------------------------------------------------------##; ;(COMMAND "LSTÄRKE" (RTOS (/ ausdicke 100.00) 2 2)) (COMMAND "_wipeout" "_non" l001p1 "_non" l001p2 "_non" l001p22 "_non" l001p11 "") (SETQ Dy-L (SSADD (ENTLAST))) (SETQ Dy-D (SSADD (ENTLAST))) (SETQ Dy-B1 (SSADD (ENTLAST))) (SETQ Dy-B2 (SSADD (ENTLAST))) (COMMAND "_line" "_non" l001p1 "_non" l001p11 \r) (SETQ Dy-L (SSADD (ENTLAST) Dy-L)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (COMMAND "_line" "_non" l001p2 "_non" l001p22 \r) (SETQ Dy-L (SSADD (ENTLAST) Dy-L)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (COMMAND "_line" "_non" l001p3 "_non" l001p4 \r) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-B1 (SSADD (ENTLAST) Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (COMMAND "_line" "_non" l001p33 "_non" l001p44 \r) (SETQ Dy-L (SSADD (ENTLAST) Dy-L)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-B1 (SSADD (ENTLAST) Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Lüftungs-Kanal Isolation zeichnen. ##; ;##-------------------------------------------------------------------------------------------------------------##; ;(COMMAND "LSTÄRKE" (RTOS (/ isodicke 100.00) 2 2)) ;(COMMAND "LINIENTYP" "SE" "Getrennt" "") (COMMAND "_line" "_non" l001p5 "_non" l001p55 \r) (SETQ Dy-L (SSADD (ENTLAST) Dy-L)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (SETQ Dy-I1 (SSADD (ENTLAST))) (SETQ Dy-IsoK (SSADD (ENTLAST))) (COMMAND "_line" "_non" l001p6 "_non" l001p66 \r) (SETQ Dy-L (SSADD (ENTLAST) Dy-L)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (SETQ Dy-I2 (SSADD (ENTLAST))) (SETQ Dy-IsoK (SSADD (ENTLAST) Dy-IsoK)) ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Dehnen Kanal-Länge mit Isolation. ##; ;##-------------------------------------------------------------------------------------------------------------##; ;(COMMAND "LSTÄRKE" "BYLAYER") ;(COMMAND "LINIENTYP" "SE" "BYLAYER" "") (COMMAND "_BParameter" "Linear" "Bezeichnung" "Länge:" "W" "I" 0 100 2000 '(0 0 0) "_non" l001p00 "_non" l001p00 "1" ) (SETQ Dy-L (SSADD (ENTLAST) Dy-L)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (COMMAND "_BActionTool" "deHnen" '(0 0 0) "Z" "_non" l001pw1 "_non" l001pw2 Dy-L "") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Bemassung Kanal-Breite: zeichnen. ##; ;##-------------------------------------------------------------------------------------------------------------##; ;(COMMAND "LSTÄRKE" (RTOS (/ txtdicke 100.00) 2 2)) ;(COMMAND "_color" 7 /r) (SETQ sysvarDIMTIX (GETVAR "DIMTIX")) (SETVAR "DIMTIX" 1) (COMMAND "_dimlinear" "_non" l001pb1 "_non" l001pb2 "_non" l001pb1 ) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST)Dy-B2)) (SETQ sysvarDIMSD1 (GETVAR "DIMSD1")) (SETQ sysvarDIMSD2 (GETVAR "DIMSD2")) (SETVAR "DIMSD1" 1) (SETVAR "DIMSD2" 1) (COMMAND "_dimlinear" "_non" l001pb2 "_non" l001pb1 "T" "\\X<>" "_non" l001pb1 ) (SETQ Dy-H (SSADD (ENTLAST))) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (COMMAND "_dimlinear" "_non" l001pb2 "_non" l001pb1 "T" "\\X\\PEI30" "_non" l001pb1 ) (SETQ Dy-SEI30 (SSADD (ENTLAST))) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-IsoK (SSADD (ENTLAST) Dy-IsoK)) (SETQ Dy-Isoth (SSADD (ENTLAST))) (SETQ Dy-IsoEI60 (SSADD (ENTLAST))) (SETQ Dy-IsoEI90 (SSADD (ENTLAST))) (SETQ Dy-IsoEI120 (SSADD (ENTLAST))) (COMMAND "_dimlinear" "_non" l001pb2 "_non" l001pb1 "T" "\\X\\PEI60" "_non" l001pb1 ) (SETQ Dy-SEI60 (SSADD (ENTLAST))) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-IsoK (SSADD (ENTLAST) Dy-IsoK)) (SETQ Dy-Isoth (SSADD (ENTLAST) Dy-Isoth)) (SETQ Dy-IsoEI30 (SSADD (ENTLAST))) (SETQ Dy-IsoEI90 (SSADD (ENTLAST) Dy-IsoEI90)) (SETQ Dy-IsoEI120 (SSADD (ENTLAST) Dy-IsoEI120)) (COMMAND "_dimlinear" "_non" l001pb2 "_non" l001pb1 "T" "\\X\\PEI90" "_non" l001pb1 ) (SETQ Dy-SEI90 (SSADD (ENTLAST))) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-IsoK (SSADD (ENTLAST) Dy-IsoK)) (SETQ Dy-Isoth (SSADD (ENTLAST) Dy-Isoth)) (SETQ Dy-IsoEI30 (SSADD (ENTLAST) Dy-IsoEI30)) (SETQ Dy-IsoEI60 (SSADD (ENTLAST) Dy-IsoEI60)) (SETQ Dy-IsoEI120 (SSADD (ENTLAST) Dy-IsoEI120)) (COMMAND "_dimlinear" "_non" l001pb2 "_non" l001pb1 "T" "\\X\\PEI120" "_non" l001pb1 ) (SETQ Dy-SEI120 (SSADD (ENTLAST))) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-IsoK (SSADD (ENTLAST) Dy-IsoK)) (SETQ Dy-Isoth (SSADD (ENTLAST) Dy-Isoth)) (SETQ Dy-IsoEI30 (SSADD (ENTLAST) Dy-IsoEI30)) (SETQ Dy-IsoEI60 (SSADD (ENTLAST) Dy-IsoEI60)) (SETQ Dy-IsoEI90 (SSADD (ENTLAST) Dy-IsoEI90)) (COMMAND "_dimlinear" "_non" l001pb2 "_non" l001pb1 "T" "\\X\\Pth" "_non" l001pb1 ) (SETQ Dy-STH (SSADD (ENTLAST))) (SETQ Dy-B1 (SSADD (ENTLAST)Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-IsoK (SSADD (ENTLAST) Dy-IsoK)) (SETQ Dy-IsoEI30 (SSADD (ENTLAST) Dy-IsoEI30)) (SETQ Dy-IsoEI60 (SSADD (ENTLAST) Dy-IsoEI60)) (SETQ Dy-IsoEI90 (SSADD (ENTLAST) Dy-IsoEI90)) (SETQ Dy-IsoEI120 (SSADD (ENTLAST) Dy-IsoEI120)) (SETVAR "DIMTIX" sysvarDIMTIX) (SETVAR "DIMSD1" sysvarDIMSD1) (SETVAR "DIMSD2" sysvarDIMSD2) ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Dehnen Kanal-Breite1 mit Isolation1. ##; ;##-------------------------------------------------------------------------------------------------------------##; (COMMAND "LSTÄRKE" "BYLAYER") (COMMAND "_BParameter" "Linear" "Bezeichnung" "Breite:" "S" "Mittelpunkt" "W" "I" 0 100 5000 "_non" l001p1 "_non" l001p2 "_non" l001p1 "2") (SETQ Dy-B1 (SSADD (ENTLAST) Dy-B1)) (SETQ Dy-B2 (SSADD (ENTLAST) Dy-B2)) (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (COMMAND "_BActionTool" "deHnen" '(0 0 0) "S" "_non" l001pw1 "_non" l001pw5 Dy-B1 "") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Dehnen Kanal-Breite2 mit Isolation2. ##; ;##-------------------------------------------------------------------------------------------------------------##; (COMMAND "_BActionTool" "deHnen" '(0 0 0) "Z" "_non" l001pw3 "_non" l001pw4 Dy-B2 "") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Dehnen Kanal-Höhe1. ##; ;##-------------------------------------------------------------------------------------------------------------##; (COMMAND "_BParameter" "Linear" "Bezeichnung" "Höhe:" "S" "Mittelpunkt" "W" "I" 0 100 5000 "_non" l001pb1 "_non" l001pb2 "_non" l001pb1 "0") (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-höhe (ENTLAST)) (COMMAND "_BActionTool" "deHnen" "_non" l001pb1 "S" "_non" l001pw1 "_non" l001pw5 Dy-H "") ;(COMMAND "_BActionTool" "deHnen" Dy-höhe "S" "_non" l001pw1 "_non" l001pw5 Dy-H "") (COMMAND "_BActionTool" "deHnen" "_non" l001pb1 "Z" "_non" l001pw3 "_non" l001pw4 Dy-H "") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Dehnen Isolation1. ##; ;##-------------------------------------------------------------------------------------------------------------##; (COMMAND "_BParameter" "Linear" "Bezeichnung" "iso1:" "W" "I" 0 0 200 "_non" l001p1 "_non" l001p5 "_non" l001p1 "0") (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-I1 (SSADD (ENTLAST) Dy-I1)) (COMMAND "_BActionTool" "deHnen" "_non" l001p1 "Z" "_non" l001pw1 "_non" l001pw5 Dy-I1 "") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Dehnen Isolation2. ##; ;##-------------------------------------------------------------------------------------------------------------##; (COMMAND "_BParameter" "Linear" "Bezeichnung" "iso2:" "W" "I" 0 0 200 "_non" l001p2 "_non" l001p6 "_non" l001p2 "0") (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (SETQ Dy-I2 (SSADD (ENTLAST) Dy-I2)) (COMMAND "_BActionTool" "deHnen" "_non" l001p2 "Z" "_non" l001pw3 "_non" l001pw4 Dy-I2 "") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Alles drehen. ##; ;##-------------------------------------------------------------------------------------------------------------##; (COMMAND "_BParameter" "Drehung" "Bezeichnung" "Winkel" "P" "Nein" '(0 0 0) "_non" l001pd1 "0" "_non" l001pd1 "1") (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (COMMAND "_BActionTool" "Drehen" '(0 0 0) Dy-D "") ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter + Aktionen Sichtbarkeit. ##; ;##-------------------------------------------------------------------------------------------------------------##; (COMMAND "_BParameter" "Sichtbarkeit" "Bezeichnung" "Isolation:" "P" "Ja" '(400.0 0 0) "0") (SETQ Dy-D (SSADD (ENTLAST) Dy-D)) (COMMAND "_BVSTATE" "Neu" "Keine" "A") (command "_bvstate" "L" "Sichtbarkeitsstatus0") (command "_BVHIDE" Dy-isoK "" "K") (COMMAND "_BVSTATE" "Neu" "th" "A") (command "_BVHIDE" Dy-isoth "" "K") (COMMAND "_BVSTATE" "Neu" "EI30" "A") (command "_BVHIDE" Dy-isoEI30 "" "K") (COMMAND "_BVSTATE" "Neu" "EI60" "A") (command "_BVHIDE" Dy-isoEI60 "" "K") (COMMAND "_BVSTATE" "Neu" "EI90" "A") (command "_BVHIDE" Dy-isoEI90 "" "K") (COMMAND "_BVSTATE" "Neu" "EI120" "A") (command "_BVHIDE" Dy-isoEI120 "" "K") (COMMAND "_BCLOSE" "S") ) ) ;(COMMAND "_clayer" AAA \r) ;(COMMAND "_color" "BYLAYER") (SETQ b000p00 (GETPOINT "\nEINFÜGE-Punkt angeben: ")) (COMMAND "_insert" "Kanal" b000p00 1 1 "") (SETQ object (entlast)) (setProperty (vlax-ename->vla-object object) "Isolation:" "EI30") (setProperty (vlax-ename->vla-object object) "Breite:" 500.0) (setProperty (vlax-ename->vla-object object) "Höhe:" 150.0) (setProperty (vlax-ename->vla-object object) "iso1:" 60.0) (setProperty (vlax-ename->vla-object object) "iso2:" 60.0) ) ;##-------------------------------------------------------------------------------------------------------------##; ;## Beschreibung: Parameter Breite ändern. ##; ;##-------------------------------------------------------------------------------------------------------------##; (defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ) ) )