Registered forum members do not see this ad.
I'm wondering how ppl make those insulation hatchings for insulations - the one that looks like squizzed line and the curves are always touching edges - like the one in the attached file. I have a feeling that it's some kind of polyline or a dynamic block really.![]()
Talking bout hatchings, Where is AutoCAD storing all .pat files? I downloaded some hatches that may be interesting and dunno where to save them.
We are the Knights who say Ni! We shall say Ni again to you if you do not appease us!
"Work Smart, Not Hard"
Click to View My Portfolio ( Updated 05/21/2013 ) ---> http://www.rdeweese.com/
Hatch can be saved in
C:\Documents and Settings\Administrator\Applications Data\Autodesk\AutoCAD 2008\R17.1\enu\Support
HAVE A NICE DAY




It is not a hatching, but a linetype called BATTING![]()
*BATTING,Batting SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
A,.0001,-.1,[BAT,ltypeshp.shx,x=-.1,s=.1],-.2,[BAT,ltypeshp.shx,r=180,x=.1,s=.1],-.1
dum
'Suppose you were an idiot. And suppose you were a member of Congress.. But I repeat myself.'
--Mark Twain
http://www.flickr.com/photos/80049703@N00/ http://mtbnick.fotopic.net/
http://s240.photobucket.com/albums/ff241/dyNick_Scots/
http://designgraphicsshowcase.blogspot.com/
High School Classroom - 21 AutoCAD 2007, Inventor 11, COREL Draw & Paint 11. Very Unreliable Network.
Home - AMD 2.1GHZ - 512Ram, 64 Video,
Laptop Inventor 7, Autocad 2004, Corel 11
The batting in the attached drawing is not using the batting linetype.
It was probably created with a lisp program to draw insulation in a wall.
John Helton
Professor of CAD
Oklahoma City Community College
Oklahoma City, OK




; arcs only based on 90 mm high INSULATION
(progn
(setq N (fix (/ (distance p1 p9) (* 90.0 (/ insul_ht 90.0)) )))
(setq d1 (/ insul_ht 2.0))
(setq p2 (polar p1 (+ 1.5708 ang1) d1))
(command "pLINE" p2 "w" 0.0 0.0 "a")
(setq m 1)
(while (<= m N)
(setq p3 (polar p2 ang1 d1))
(setq p5 (polar p3 ang1 insul_ht))
(setq p6 (polar p5 ang1 d1 ))
; now put pts 3,4,5,6
(command "ce" p3 "a" "-180" "ce" p5 "a" "180")
; parallel lines now drawn
(setq m (+ 2 m))
(setq p2 p6)
)
(command "")
)
Registered forum members do not see this ad.
Hey BIGAL,
Where is the rest of the program?
John Helton
Professor of CAD
Oklahoma City Community College
Oklahoma City, OK
Bookmarks