Recent changes to ExampleAnchorPlate

ExampleAnchorPlate modified by A. Vontobel

A. Vontobel — Sun, 29 Mar 2020 23:28:07 -0000

ExampleAnchorPlate modified by A. Vontobel

A. Vontobel — Sun, 29 Mar 2020 23:27:18 -0000

ExampleAnchorPlate modified by A. Vontobel

A. Vontobel — Sun, 29 Mar 2020 23:26:26 -0000

--- v8
+++ v9
@@ -2,7 +2,7 @@

     #!drawj2d -T svg -W 150 -H 120 -r 96 -c ExampleAnchorPlate.hcl

-    unitlength 0.2;    # Das heisst Massstab 1:5, bei Einheit Millimeter 
+    unitlength 0.2 mm;    # Das heisst Massstab 1:5, Einheit Millimeter 


     # Eingaben
@@ -52,6 +52,7 @@
     circle $DbBL  [/ $df 2.];       circle $DbBR  [/ $df 2.]

     # Vermassung
+    dimline ticks
     set xdim  [mm 8]
     # Ankerplatte
     pen 0.35

ExampleAnchorPlate modified by A. Vontobel

A. Vontobel — Tue, 18 Aug 2015 23:09:26 -0000

--- v7
+++ v8
@@ -67,3 +67,4 @@
     dimlinerel $c 0
     dimlinerel [expr $b - 2*$c] 0
     dimlinerel $c 0
+

ExampleAnchorPlate modified by A. Vontobel

A. Vontobel — Tue, 18 Aug 2015 23:08:57 -0000

--- v6
+++ v7
@@ -1,3 +1,5 @@
+[[img src=out-ExampleAnchorPlate.svg alt="Drawj2d output"]]
+
     #!drawj2d -T svg -W 150 -H 120 -r 96 -c ExampleAnchorPlate.hcl

     unitlength 0.2;    # Das heisst Massstab 1:5, bei Einheit Millimeter 
@@ -65,6 +67,3 @@
     dimlinerel $c 0
     dimlinerel [expr $b - 2*$c] 0
     dimlinerel $c 0
-
-
-[[img src=out-ExampleAnchorPlate.svg alt="Drawj2d output"]]

ExampleAnchorPlate modified by a v

a v — Sun, 29 Mar 2015 22:01:24 -0000

--- v5
+++ v6
@@ -34,8 +34,8 @@
     line 0 [expr -$h /2 - $achsueberstand]   0 [expr $h /2 + $achsueberstand]

     # Zeichnen der Ankerplatte
-    set TL "[/ -$b 2.] [/ -$h 2.]"; set TR "[/  $b 2.] [/ -$h 2.]"
-    set BL "[/ -$b 2.] [/  $h 2.]"; set BR "[/  $b 2.] [/  $h 2.]"
+    set TL [// "-$b -$h" 2]; set TR [// "$b -$h" 2]
+    set BL [// "-$b  $h" 2]; set BR [// "$b  $h" 2]
     pen black solid 0.7;
     box $TL $BR

ExampleAnchorPlate modified by a v

a v — Sat, 18 Oct 2014 21:30:46 -0000

--- v4
+++ v5
@@ -1,6 +1,6 @@
     #!drawj2d -T svg -W 150 -H 120 -r 96 -c ExampleAnchorPlate.hcl

-    unitlength 0.2;    # Das heisst Massstab 1:5, bei Einheit MilliMeter 
+    unitlength 0.2;    # Das heisst Massstab 1:5, bei Einheit Millimeter 

     # Eingaben
@@ -13,7 +13,7 @@
     set h           350;   # Plattenhöhe
     set d           12;    # zu zeichnender Dübeldurchmesser im Durchgangsloch
     set df          20;    # Durchgangsloch in Ankerplatte
-    set c      40; # nomineller Randabstand Dübel
+    set c           40;    # nomineller Randabstand Dübel

     # Profil zeichnen
     box -50 -50  50 50

ExampleAnchorPlate modified by a v

a v — Sat, 18 Oct 2014 21:28:52 -0000

ExampleAnchorPlate modified by a v

a v — Sat, 18 Oct 2014 21:28:16 -0000

--- v2
+++ v3
@@ -34,41 +34,37 @@
     line 0 [expr -$h /2 - $achsueberstand]   0 [expr $h /2 + $achsueberstand]

     # Zeichnen der Ankerplatte
-    pen; pen black 0.7;
-    box [/ -$b 2.] [/ -$h 2.]  [/ $b 2.] [/ $h 2.]
+    set TL "[/ -$b 2.] [/ -$h 2.]"; set TR "[/  $b 2.] [/ -$h 2.]"
+    set BL "[/ -$b 2.] [/  $h 2.]"; set BR "[/  $b 2.] [/  $h 2.]"
+    pen black solid 0.7;
+    box $TL $BR

     # Zeichnen des Dübels
-    set liDb  [expr -$b /2 + $c]
-    set reDb  [expr  $b /2 - $c]
-    set obDb  [expr  $h /2 - $c]
-    set unDb  [expr -$h /2 + $c]
-    pen; pen gray;
-    fillcircle $liDb $obDb  [/ $d 2.]
-    fillcircle $liDb $unDb  [/ $d 2.]
-    fillcircle $reDb $unDb  [/ $d 2.]
-    fillcircle $reDb $obDb  [/ $d 2.]
+    set DbTL [++ $TL "$c $c"];      set DbTR [++ $TR "-$c $c"]
+    set DbBL [++ $BL "$c -$c"];     set DbBR [-- $BR "$c $c"]
+    pen gray 0.5;
+    fillcircle $DbTL  [/ $d 2.];    fillcircle $DbTR  [/ $d 2.]
+    fillcircle $DbBL  [/ $d 2.];    fillcircle $DbBR  [/ $d 2.]
     pen 0.35 black
-    circle $liDb $obDb  [/ $df 2.]
-    circle $liDb $unDb  [/ $df 2.]
-    circle $reDb $unDb  [/ $df 2.]
-    circle $reDb $obDb  [/ $df 2.]
+    circle $DbTL  [/ $df 2.];       circle $DbTR  [/ $df 2.]
+    circle $DbBL  [/ $df 2.];       circle $DbBR  [/ $df 2.]

     # Vermassung
     set xdim  [mm 8]
     # Ankerplatte
     pen 0.35
-    m [/ -$b 2.] [expr $h /2. + $xdim]; dimlinerel $b 0
-    m [expr -$b /2. - $xdim] [/ -$h 2.]; dimlinerel 0 $h
+    dimline [geom.parallel $BL $BR $xdim]
+    dimline [geom.parallel $TL $BL $xdim]
     # Dübel
     pen gray
-    m [expr $b /2 + $xdim] [/ -$h 2.]
-    dimlinerel 0 [expr $c]
+    m [++ $TR "$xdim 0"]
+    dimlinerel 0 $c
     dimlinerel 0 [expr $h - 2*$c]
-    dimlinerel 0 [expr $c]
-    m [/ -$b 2.] [expr -$h /2 - $xdim]
-    dimlinerel [expr $c] 0
+    dimlinerel 0 $c
+    m [++ $TL "0 -$xdim"]
+    dimlinerel $c 0
     dimlinerel [expr $b - 2*$c] 0
-    dimlinerel [expr $c] 0
+    dimlinerel $c 0

 [[img src=out-ExampleAnchorPlate.svg alt="Drawj2d output"]]

ExampleAnchorPlate modified by a v

a v — Sun, 05 Oct 2014 01:20:54 -0000