Fun Batt Insulation

[RFRUSSO]

I know I have done it before, I just can't remember how! Any ways, I would like to put batt insulation along my ceiling. I think it would look ever so nice to have it go from pinched on the end, to thick in the middle and then back to pinched. Any one know how to do this?

[Strix]

we had an interesting and informative thread on this a while back!

 

did you look for it?

[RFRUSSO]

DAMN IT! I started a thread last time I ran into this! Only problem, I didn't post the answer once I figured it out. So NOW I have the same dumb issue and still no gosh darn answer! GRRRRRRRR

[Strix]

as we say in Liverpool - thar'll lairn yer!

 

so where's the drawing you were working on last time? is there no way of interrogating that to find out how you did it?

 

I'm pretty certain your thread concluded that one of the suggestions half way down was the way to go - which wasn't perfect, but kinda worked

[RFRUSSO]

IT SEEMS AS THOUGH THE ANSWER IS TO USE A LINE TYPE. (ahh cads lock is now off) Any how, I am working on over time at the moment so I just decided to let it go and fake it. I used the batt insulation from my detail component generator so that I can get nifty curves and then trimmed it.

[Noahma]

DAMN IT! I started a thread last time I ran into this! Only problem, I didn't post the answer once I figured it out. So NOW I have the same dumb issue and still no gosh darn answer! GRRRRRRRR

 

 

does your version of Architectural desktop have it in the detail component manager?

[GhostRider]

I use this occasionally for batt but I don't think it changes thickness very well

;;Routine to draw insulation symbol into roof/ wall sections
;;written by Andrew NIELSEN Melbourne Australia - andysan1@bigpond.com
;;up dated by Alastair Mallett
;; call as <INSUL1>
;;first pick origin of insulation ; second pick end of insulation
;;third pick height of insulation from first pick
;; draws polyline onto layer "insulation"
(defun newerr (NE)
 (if (/= NE "Function bombed out ...")
    (princ (strcat "\nError:  " NE))
 )
 (command".LAYER""S"CLYR"")
 (setvar"OSMODE" OS)
 (setvar"ORTHOMODE" OM)
 (setvar"CMDECHO" CE)
 (setvar"BLIPMODE" BM)
 (command".UNDO""end")
 (princ)
);dfn
(defun C:INSUL1 (/ SP EP HT OM CE BM DX AN NX NU
            AX PX P1 P2 P3 P4 P5 P6 P7 P8 P9 XT SLST)
 (command".UNDO""group")
 (setq OS (getvar "OSMODE"))(setvar "OSMODE" 1)
 (setq OM (getvar "ORTHOMODE"))(setvar "ORTHOMODE" 1)
 (setq CE (getvar "CMDECHO"))(setvar "CMDECHO" 0)
 (setq BM (getvar "BLIPMODE"))(setvar "BLIPMODE" 0)
 (while (= SP nil) (setq SP
   (getpoint "\nPick Start Point of Insulation (Ortho is ON; O/S is End):  ")))
 (while (= EP nil) (setq EP
   (getpoint SP "\nPick Ending Point of Insulation:  ")))
  (setvar "OSMODE" 0)
 (while (= HT nil) (setq HT
   (getdist SP "\nPick or Enter Height of Insulation: ")))
 (setq CLYR (getvar"CLAYER")) ;(command".LAYER""M""A2INSULATION""C""8""""") revised 2-22-08
 (setq AN (angle SP EP)
       DX (distance SP EP)
       NX (/ HT 2)
       NU (/ DX NX)
       NX (/ HT 2)
       AX (+ AN (/ PI 2))
       PX (polar SP AX HT)
       P1 (polar SP AX (/ HT 1.25))
       P2 (polar P1 AN (/ HT 20))
       P3 (polar P1 AN (/ HT 4))
       P4 (polar P2 AN (/ HT 2.5))
       P5 (polar SP AX (/ HT 5))
       P6 (polar P5 AN (/ HT 5))
       P7 (polar P6 AN (/ HT 10))
       P8 (polar P5 AN (/ HT 2))
       P9 (polar SP AN (/ HT 2))
 )
 (setq SLST (ssadd))
 (repeat (fix NU)
   (command ".ARC" "C" P5 SP P6)
   (setq SLST (ssadd (entlast) SLST))
   (command ".LINE" P6 P2 "" )
   (setq SLST (ssadd (entlast) SLST))
   (command ".ARC" P2 "C" P3 "A" "-180" )
   (setq SLST (ssadd (entlast) SLST))
   (command ".LINE" P4 P7 "" )
   (setq SLST (ssadd (entlast) SLST))
   (command ".ARC" "C" P8 P7 P9)
   (setq SLST (ssadd (entlast) SLST))
   (setq SP (polar SP AN NX)
         P2 (polar P2 AN NX)
         P3 (polar P3 AN NX)
         P4 (polar P4 AN NX)
         P5 (polar P5 AN NX)
         P6 (polar P6 AN NX)
         P7 (polar P7 AN NX)
         P8 (polar P8 AN NX)
         P9 (polar P9 AN NX)
   )
 )
 (setq XT (distance SP EP))
 (if (>= XT (/ HT 5))
 (progn
   (command ".ARC" "C" P5 SP P6 )
   (setq SLST (ssadd (entlast) SLST))
   (command ".LINE" P6 P2 "" )
   (setq SLST (ssadd (entlast) SLST))
   (command ".ARC" P2 "C" P3 "A" "-75")
   (setq SLST (ssadd (entlast) SLST))
 )); end if
   (command ".PEDIT" "L" "Y" "J" SLST "" "")
  (command ".LAYER" "S" CLYR "")
 (setvar "OSMODE" OS)
 (setvar "ORTHOMODE" OM)
 (setvar "CMDECHO" CE)
 (setvar "BLIPMODE" BM)
 (command".UNDO""end")
 (princ)
);end
(princ)