Thursday, September 10, 2020

Housing Crisis?

Housing seems to cost a lot.   At least it does in New Zealand, where I live.
I thought it might be fun to design a cheap way of building, using commonly available products.

This represents the minimum size possible. Hey, it keeps the rain out!



You can check out the video  I made, link is below:
This system just needs some young person with access to a shed, along with some basic tools. More sophisticated manufacturing systems could be added if you were successful.
This one is 3.6m x 7.2m long, and includes a bathroom/laundry. The materials cost is around NZ$15,000, so even if the labour costs were another $15,000, it would still be a cheap house. The hardest part would be the dealing with all the rule makers....in NZ you cannot build a building unless you are a Licensed Building Professional. The other hard part is this is not architecturally designed-yes it does look like a shack. But it would do the job. Speed of build would be very quick, as the walls just lock together. Nothing in here is patented, and better designs for locking mechanisms could be done. The prices are straight from retail outfits in New Zealand, so further reductions in prices would be certain. In NZ today, and average 3 bedroom house(no land) would be around $300,0000. They are obviously a lot bigger!
The strange part is the land would be the biggest cost.
In the following costings, I do not include electrical,plumbing or the special fixing system.
Item Price each Qty Extd
Module1 1200x2400 Exterior $304.45 7 $2,131.15
Module1 1110x2400 Exterior $302.66 4 $1,210.64
Module3 1200x2400 Interior $115.45 1 $115.45
Module5  1200x2400 Interior with door $276.46 1 $276.46
Module6 998x2400 Interior $111.42 1 $111.42
Module7 1200x2400 Exterior with 1175hx1010w window $1,458.85 2 $2,917.70
Module8 1200x2400 Exterior with front door $420.45 1 $420.45
Module9 1110x2400 Exterior with 1175hx400w window $847.85 1 $847.85
Particle Board 20x1200x3600  $165.00 6 $990.00
Gib for Ceiling 13 x 1200 x 2400 $31.56 9 $284.04
Truss $62.13 9 $559.13
Purlins $276.40 1 $276.40
Ceiling Battens $259.12 1 $259.12
Fascia $339.23 1 $339.23
Guttering $195.46 1 $195.46
Barge Flashing $493.00 1 $493.00
Soffit $222.00 1 $222.00
Ceiling Batts 3.6x7.2=26, 3 packs at 8.4sqm $76.50 3 $229.50
Sub Floor Timber $1,345.33 1 $1,345.33
Downpipe $29.00 1 $29.00
Roofing Iron $70.00 11 $770.00
Toilet Mondella  $289.00 1 $289.00
Handbasin Roccoco $109.00 1 $109.00
Shower-lining $270.00 1 $270.00
Shower-door $305.00 1 $305.00
Shower-base $200.00 1 $200.00
Shower-support for lining $200.00 1 $200.00
Shower-tap $100.00 1 $100.00
Shower-plumbing waste $159.00 1 $159.00
Laundry Tub with tap $400.00 1 $400.00
Mirror $100.00 1 $100.00
Kitchen-Kaboodle-Bunnings $1,753.00 1 $1,753.00
Stove/Oven $779.00 1 $779.00
Kitchen sink $100.00 1 $100.00
Total $15,196.33

This overall costing uses the modules costed below:

Item Price-each Price/m Length Qty Extd
Module1 1200x2400 Exterior
Shadowclad 12x1200x2440 $162.00 1 $162.00
Gib 10x1200x2400 $24.00 1 $24.00
Top 90x45 $5.00 1.2 1 $6.00
Bottom 90x45 $5.00 1.2 1 $6.00
Stud 90x45 $5.00 2.32 3 $34.80
Nog 90x45 $5.00 0.5325 4 $10.65
Nails $10.00
Batts R3.6, 3 sq m at $17/ sq m $51.00
Clips
Paint
Total $304.45
Module2 1110x2400 Exterior
Shadowclad 12x1200x2440 $162.00 1 $162.00
Gib 10x1200x2400 $24.00 1 $24.00
Top 90x45 $5.00 1.11 1 $5.55
Bottom 90x45 $5.00 1.11 1 $5.55
Stud 90x45 $5.00 2.32 3 $34.80
Nog 90x45 $5.00 0.5325 2 $5.33
Nog 90x45 $5.00 0.4435 2 $4.44
Nails $10.00
Batts R3.6, 3 sq m at $17/ sq m $51.00
Clips
Paint
Total $302.66
Module3 1200x2400 Interior
Gib 10x1200x2400 $24.00 2 $48.00
Top 90x45 $5.00 1.2 1 $6.00
Bottom 90x45 $5.00 1.2 1 $6.00
Stud 90x45 $5.00 2.32 3 $34.80
Nog 90x45 $5.00 0.5325 4 $10.65
Nails $10.00
Clips
Paint
Total $115.45
Module5  1200x2400 Interior with door
Gib 10x1200x2400 $24.00 2 $48.00
Top 90x45 $5.00 1.2 1 $6.00
Bottom 90x45 $5.00 0.445 1 $2.23
Bottom 90x45 $5.00 0.09 1 $0.45
Stud 90x45 $5.00 2.32 3 $34.80
Nog 90x45 $5.00 0.5325 3 $7.99
Door $100.00 1 $100.00
Door Handle $50.00 1 $50.00
Nails $10.00
Batts R3.6, 1 sq m at $17/ sq m $17.00
Clips
Paint
Total $276.46
Module6 998x2400 Interior
Gib 10x1200x2400 $24.00 2 $48.00
Top 90x45 $5.00 0.998 1 $4.99
Bottom 90x45 $5.00 0.998 1 $4.99
Stud 90x45 $5.00 2.32 3 $34.80
Nog 90x45 $5.00 0.432 4 $8.64
Nails $10.00
Clips
Paint
Total $111.42
Module7 1200x2400 Exterior with 1175hx1010w window
Shadowclad 12x1200x2440 $162.00 1 $162.00
Gib 10x1200x2400 $24.00 1 $24.00
Top 90x45 $5.00 1.2 1 $6.00
Bottom 90x45 $5.00 1.2 1 $6.00
Stud 90x45 $5.00 2.32 2 $23.20
Nog 90x45 $5.00 0.5325 4 $10.65
Glass-1275x1110x18 $200.00 1.4 4 $1,120.00
Gasket $10.00 1 $10.00
Frame $10.00 1 $10.00
Window clips $5.00 12 $60.00
Nails $10.00
Batts R3.6, 1 sq m at $17/ sq m $17.00
Clips
Paint
Total $1,458.85
Module8 1200x2400 Exterior with front door
Shadowclad 12x1200x2440 $162.00 1 $162.00
Gib 10x1200x2400 $24.00 1 $24.00
Top 90x45 $5.00 1.2 1 $6.00
Bottom 90x45 $5.00 1.2 1 $6.00
Stud 90x45 $5.00 2.32 3 $34.80
Nog 90x45 $5.00 0.5325 4 $10.65
Door $100.00 1 $100.00
Door Handle $50.00 1 $50.00
Nails $10.00
Batts R3.6, 1 sq m at $17/ sq m $17.00
Clips
Paint
Total $420.45
Module9 1110x2400 Exterior with 1175hx400w window
Shadowclad 12x1200x2440 $162.00 1 $162.00
Gib 10x1200x2400 $24.00 1 $24.00
Top 90x45 $5.00 1.2 1 $6.00
Bottom 90x45 $5.00 1.2 1 $6.00
Stud 90x45 $5.00 2.32 2 $23.20
Nog 90x45 $5.00 0.5325 4 $10.65
Glass-1275x500x18 $200.00 0.64 4 $512.00
Gasket $10.00 1 $10.00
Frame $10.00 1 $10.00
Window clips $5.00 8 $40.00
Nails $10.00
Batts R3.6, 2 sq m at $17/ sq m $34.00
Clips
Paint
Total $847.85
Truss
Top 90x45 $5.00 4.6 1 $23.00
Bottom 90x45 $5.00 3.6 1 $18.00
Vertical 90x45 $5.00 0.545 1 $2.73
Vertical 90x45 $5.00 0.28 1 $1.40
Nail Plates $1.40 5 $7.00
Nails $10.00
Total $62.13
Purlins
70x45 $4.00 7.4 9 $266.40
Nails $10.00
Total $276.40
Ceiling Battens
70x45 $4.00 6.92 9 $249.12
Nails $10.00
Total $259.12
Fascia
180x18 $15.00 7.4 2 $222.00
135x18 $11.17 4.8 2 $107.23
Paint
Nails $10.00
Total $339.23
Gutter
Gutter-Marley Stormcloud 5 m length $60.57 2 $121.14
Gutter-Marley Stormcloud Joiner $3.25 1 $3.25
Gutter-Marley Stormcloud Outlet $30.49 1 $30.49
Gutter-Marley Stormcloud ends $4.85 2 $9.70
Gutter Clips $2.61 8 $20.88
Nails $10.00
Total $195.46
Soffit
400x4.5 $15.00 7.4 2 $222.00
100x3.5 $11.17 4.8 2 $107.23
Paint
Nails $10.00
Total $339.23
Barge Flashing
Long side-top $29.00 7.4 1 $214.60
Sides $29.00 4.8 2 $278.40
Total $493.00
Sub Floor Timber
140x45 Joists $11.00 3.51 19 $733.59
90x45 Bearers $5.00 7.2 6 $216.00
Wire Dogs $0.43 34 $14.62
Joist Hangers $4.36 30 $130.80
125x125 Piles - $24/1.2m so $20/m, ie  $10 for 0.5m $10.00 21 $210.00
Concrete-pad is 0.0064 cu m $300.00 0.0064 21 $40.32
Total $1,345.33

Sunday, January 19, 2020

Rectangle Listing Autolisp

Code as below-see
https://www.youtube.com/watch?v=lus7WLJ2wJQ&feature=youtu.be

It numbers rectangles and then lists their coordintes in a comma delimited file, ie .csv

;Program written by Bill Le Couteur
;Auckland NZ
;Rev 0 date 29/11/17
;This program selects rectangles and labels them with coordinates,length, width and area
;
;

(defun  c:LR()
;(setvar "CMDECHO" 0)
(setq oldsnapmode (getvar "osmode"))
(setvar "osmode" 0)
(command "ucs" "w")
(setq the_count "500"); just a dummy so the while loop keeps going unless user escapes!
(setq count 0)
(setq SerialNo 1)
(setq SerialNos (itoa SerialNo))
(setq the_drg_path (getvar "DWGPREFIX"))
(setq the_file_name (getstring "/nEnter the file name, no prefixes or suffixes: "))
(setq the_text_height (getreal "/nEnter the text height needed: "))


(setq full_file_name (strcat the_drg_path the_file_name ".csv"))

;this makes sure the file is empty if first used!
 (if (not(equal beenthere T))
  (close (open full_file_name  "w"))
 )


;;;;;;;;;;;;;;;;;;WHILE LOOP TO GO PICK RECTANGLES ONE BY ONE;;;;;;;;;;;;

(while (not(equal the_count "1000"))
(progn

(prompt "/npick the rectangle")
(setq edata(entget(car(entsel))))                             ;getting the pline's data
(setq ename (cdr(assoc -1 edata)))
(setq the_item (cdr (assoc 0 edata))) ;IF THE USER PICKS A CIRCLE, IT IS A SIGN TO STOP NOW, IE CLOSE THE FILE
;(if (eq "CIRCLE" the_item)
; (progn
; (print "now closing")
; (close fp)
; (exit)
; )progn
;);end if

(print edata)
;you can see the points in the edata list- they are the dotted pairs that start with 10.

(foreach thing edata
  (progn
        (if(eq (car thing) 10 ); -ie only interested in the points
             (progn;if progn
(print thing)
                (if (eq count 0)(setq the_point0 thing))
(if (eq count 1)(setq the_point1 thing))
(if (eq count 2)(setq the_point2 thing))
(if (eq count 3)(setq the_point3 thing))


(setq count (+ count 1))

         );end progn
    );end if
  );end foreach progn
);end foreach

(setq xvalue1 (nth 1 the_point0))
(setq xvalue1s (rtos xvalue1 2 4))
(setq yvalue1 (nth 2 the_point0))
(setq yvalue1s (rtos yvalue1 2 4))
(setq coordsA (strcat xvalue1s "," yvalue1s))

(setq xvalue2 (nth 1 the_point1))
(setq xvalue2s (rtos xvalue2 2 4))
(setq yvalue2 (nth 2 the_point1))
(setq yvalue2s (rtos yvalue2 2 4))
(setq coordsB (strcat xvalue2s "," yvalue2s))

(setq xvalue3 (nth 1 the_point2))
(setq xvalue3s (rtos xvalue3 2 4))
(setq yvalue3 (nth 2 the_point2))
(setq yvalue3s (rtos yvalue3 2 4))
(setq coordsC (strcat xvalue3s "," yvalue3s))

(setq xvalue4 (nth 1 the_point3))
(setq xvalue4s (rtos xvalue4 2 4))
(setq yvalue4 (nth 2 the_point3))
(setq yvalue4s (rtos yvalue4 2 4))
(setq coordsD (strcat xvalue4s "," yvalue4s))


(setq header_line "Sn,Ax,Ay,Bx,By,Cx,Cy,Dx,Dy,Length,Area")
(setq the_length (- xvalue2 xvalue1))


;;;;;;;;;FOR A NORMAL RECTANGLE;;;;;;;;;;;;;;;;;;;;
(if (> the_length 0)
(progn
(setq the_lengths (rtos the_length 2 4))
(setq the_width (- yvalue3 yvalue1))
(setq insert_pointx (+ xvalue1 (/ the_length 2)))
(setq insert_pointy (+ yvalue1 (/ the_width 2)))
(setq insert_point (list insert_pointx insert_pointy))
);end if progn
);end if
;;;;;;;;END OF FOR A NORMAL RECTANGLE;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;FOR A REVERSE RECTANGLE;;;;;;;;;;;;;;;;;;;;
(if (< the_length 0)
(progn
(print "hello")
(setq the_length (* the_length -1))
(setq the_lengths (rtos the_length 2 4))
(setq the_width (- yvalue3 yvalue1))
(setq insert_pointx (- xvalue1 (/ the_length 2)))
(setq insert_pointy (+ yvalue1 (/ the_width 2)))
(setq insert_point (list insert_pointx insert_pointy))
);end if progn
);end if
;;;;;;;;END OF FOR A REVERSE RECTANGLE;;;;;;;;;;;;;;;;;;;;


(if (< the_width 0)(setq the_width (* the_width -1)))
(setq the_area (* the_length the_width))
(setq the_areas (rtos the_area))

(setq the_line (strcat SerialNos "," CoordsA ","   CoordsB ","  CoordsC ","  CoordsD "," the_lengths "," the_areas))


(setq the_text_height 300)


(setq fp (open full_file_name "a"))
(if (not(equal beenthere2 T)) (write-line header_line  fp))
(write-line the_line  fp)
(command "text" "j" "m" insert_point the_text_height 0 SerialNos)

(setq SerialNo (+ SerialNo 1))
(setq SerialNos (itoa SerialNo))

(setq beenthere2 T)

(setq count 0)

);END OF WHILE PROGN
);END OF WHILE

;;;;;;;;;;;;;;;;;;END OF WHILE LOOP TO GO PICK RECTANGLES ONE BY ONE;;;;;;;;;;;;





(close fp)
 (setq beenthere T)


(command "ucs" "w")
 ;(setvar "CMDECHO" 1)
(setvar "osmode" oldsnapmode)
(princ)
)
 

Tuesday, October 8, 2019

Finally retired?

Maybe.  I have been doing domestic stuff , and in between times entering competitions on Freelancer.

My designs are OK, but there is always some genius out there who usually trumps me at the last minute - and especially when the job needs an artistic sense, it seems I am not in the game.

For things like phone holders and so on I am using a combination of Autocad and Showcase to do my entries, so I cannot blame the tools.

This is the phone holder:


The Mall Kiosk:


:


A kitchen bin:



As the saying goes: "Don't give up your day job!"




Friday, April 19, 2019

The Old Draftsman

Once Upon a Time, a young engineer went for a walk in the forest.
He came upon an old man, sitting on a tree stump, staring into space.

"Hello," he said, "What are you doing here?"
"Ah," said the old man, "I used to be a draftsman, but then I went mad, so they sent me here."
"Oh? Why did you go mad?" said the young engineer.
"It does not matter now, " the old draftsman replied, "but it was something about drawings that had to be changed,
 and then they wanted me to draw a diagram of the Hazardous Areas in the plant, anyway, I see you are an engineer."

"How did you pick that?"
"Well, it's easy. You have in your hand a bunch of drawings that are printed out with grey lines instead of black."
"Oh that....Well I just get into Autocad and hit the Print button and that's what I get."

A glimmer of hope entered the old draftsman's eye and he said:
"You know, you don't have to do that. It is very simple not to, can I explain how to do it?"
"Noooooo!" wailed the young engineer, "I'm an engineer, I don't have to know that stuff!"

"Please!" entreated the old draftsman, falling to his knees and tugging on the young engineer's sleeve,"you can do it!
 After all, you must be reasonably clever just to do those Engineer's Exams?"

"Well...I suppose so." he answered.

"OK," said the old draftsman "it goes like this: Once upon a time in a land far away and long ago,two elves were designing Autocad."
One turned to the other and said: "How are we going to get thick and thin lines to come out?"
To which the other replied "I know, let's make it one colour for thin lines and another for thick lines."
Then the other said: "How can we make the computer remember which colours are related to which fat or thin lines?"
"That's easy," replied the other, "we can store the values in a separate file,let's call the file extension .ctb,
which stands for colour table....hmm dunno what the b stands for but we have to have 3 letters so there you go."

The old draftsman, sighed, and said:
"Well that's all there is to it: Just hit the print button and in the top right hand corner of the dialog box
there is a selection of ctb files to choose from. I'd suggest you choose the one your draftsman seems to use-
you can spot it right away usually,because it is right at the bottom of the list, called something like 'Freds.ctb'."

The young engineer lived happily ever after.

Thursday, December 13, 2018

Hardware and Software for CAD

I must be nuts! Writing on 3 CAD blogs?
Autocad 
Revit
Sketchup

Software: 
Not such an easy question to answer, mine at the moment is swinging towards using Autocad 3D solids to model houses.   This after a brief foray into the land of Sketchup.  Revit I find wonderful and maddening in equal measure, and will probably end up going down that rabbit hole.

Common to all of these is you have to have a suitable computer to run any of them.

Hardware:
My computer is getting on a bit now (like me) and just lately has started freeze up crashes that are only fixed by disconnecting the power.

So my options are:

1. Replace the hard drive in my existing Z230 with a new SSD for around NZ$150. My wife would certainly see that one as a no-brainer. The Z230 has had it's original K2000 graphics card replaced with a P2000 Quadro, which gives life to the old girl. Using Enscape on it is a delight. but paying for Enscape, not quite so much fun.

2.Buy a new computer. Immediately there is  a choice: Workstation or PC?  A man who started work with me, suggested the following PC:
 
Item                                                                                                                                     
CPU - Intel i7-8700k                                                                                                         $659.00
Arctic Silver 5 High-Density Silver AS5-3.5G Thermal Compound 3.5          $20.00  
Cooler Master Hyper H411R CPU Cooler with 92mm White LED PWM Fan$44.00
Motherboard - Gigabyte Z390 I AORUS PRO WIFI ITX                                       $401.00
"Hard drive - Samsung 970 Evo M.2 (2280),NVMe SSD R/W(Max)
3,400MB/s/2,300MB/s"                                                                                                 $228.00
Memory - G.SKILL Trident Z Series 32GB (2 x 16GB) DDR4 3200Mhz CL16                $616.00
Power Supply Unit - Cooler Master MWE Gold 650W 80Plus Gold Full
 Modular Power Supply                                                                                                 $162.00
Case - Cooler Master Elite 130 Ultra Compact Mini-ITX USB3.0                     $79.35
"Monitor - Philips BDM4350UC/75 43"" 4K"                                                          $885.00
Mouse - LG Wired                                                                                                           $109.00
Mouse mat                                                                                                                         $26.00
Keyboard - Mechanical (cherry brown) (PB Tech G413
Mechanical Backlit gaming-carbon)                                                                          $148.00
CD/DVD Writer  (PB Tech LG gs40N)                                                                        $54.00
Windows 10 home                                                                                                          $182.00
                                                                                                                                                $3,613.35






























Apologies for the above blank space- it seems importing stuff from Excel is tricky!

2. The other option is a high spec HP Workstation, which has a supposedly better graphics card in the P4000, namely a HP Z6 G4 3FF57PA

Processor model: Intel Xeon Silver 4116RAM size: 32 GB Graphics processor: Quadro P4000 Type of chassis: MiditowerFlash/SSD
One of these is around NZ$7000, so unless you had huge amounts of highly paid work in front of you, is probably a bit on the high side. 

A friend has pointed me in the direction of some articles, which can be found on the Cadalyst site:
http://www.cadalyst.com/hardware/workstations.

Just to make things even more painful, I am still running with Autocad 2016, which may or may not run 4K nicely, should I go completely mad and get a 43" 4K monitor.  It may run, but with a bit of tweaking.