Need a wave - seriously

Tim Neumann

Didn't know I'd ever need this but here I am. I'm trying create a section view of a corrugated piece of sheet metal which resembles a wave.

It needs to have a peak of 1/2" with a interval of 2.67". Tried doing this with Splines but it's not working or I'm just screwing it up. Anybody

have a lisp or idea how to do this? Thanks!

John Gaunt

You could download a roof section such as

http://www.lysaght.com/product/lysaght-custom-orb

There are probably similar, this section is bigger than you want but you could scale it.

Ian Johnson

Heres something I wrote nearly 20 years ago. Maybe of some use.;;;; *SHEETING.LSP**;;;;;;;; draws LYSAGHT's sheeting TRIM-DEK, SPAN-DEK or CUSTOM ORB;;;; (metric version);;;; I&L Johnson 4/11/92;;;;;;;;(defun dtr (Y) (* pi (/ y 180.0)))(defun sheeting (/ p1 p2 l1 p1a p1b p1c p1c ang1 cnt _TYP) (setq olderr *error* *error* newerr) (setvar "cmdecho" 0) (setq orblp(getvar "blipmode")) (initget "S,s T,t C,c") (setq _TYP (getkword "\n_TYP of sheeting ustom orb, pandek or rimdek : ")) (if(= _TYP nil)(setq _TYP "T")) (setq p1 (getpoint "\nPick start point of sheeting: ") p2 (getpoint p1 "\nPick end point: ") ang1(angle p1 p2) ) (setvar "blipmode" 0) (if (= _TYP "T") (progn (setq l1(distance p1 p2) cnt(fix (/ l1 190)) cnt(1+ cnt) ) (if(> l1 190) (repeat cnt (setq p1a(polar p1 (+ ang1 (dtr 60)) 34) p1b(polar p1a ang1 26) p1c(polar p1 ang1 60) p1d(polar p1c ang1 130) ) (command "pline" p1 "w" "0" "0" p1a p1b p1c p1d "") (setq p1 p1d) ) ) ) ) (if (= _TYP "S") (progn (setq l1(distance p1 p2) cnt(fix (/ l1 86)) ) (if(> l1 86) (repeat cnt (setq p1a(polar p1 (+ ang1 (dtr 60)) 34) p1b(polar p1a ang1 26) p1c(polar p1b (+ ang1 (dtr 300)) 34) p1d(polar p1c ang1 26) ) (command "pline" p1 "w" "0" "0" p1a p1b p1c p1d "") (setq p1 p1d) ) ) ) ) (if (= _TYP "C") (progn (setq l1(distance p1 p2) cnt(fix (/ l1 76)) ) (if(> l1 76) (repeat cnt (setq p1a(polar p1 (+ ang1 (dtr 26.5)) 25) p1b(polar p1a ang1 38) p1c(polar p1b (+ ang1 (dtr 333.5)) 25) ;metric=25 ) (command "pline" p1 "w" "0" "0" "a" "r" "24" p1a p1b p1c "") (setq p1 p1c) ) ) ) ) (setvar "cmdecho" 1) (setvar "blipmode" orblp))

Patrik Sparrman

Have you tried googling for a batting lisp. There are a few around.

Patrik

Tim Neumann

Never thought of it being applied to roofing but certainly would've helped googling for it. I forget most here have an architectural background. Thanks to all.