|
|
|
|
|
Isolatie Hatch
Laatste Bericht 30 jan 2012 21:07 door henri77. 7 Antwoorden.
|
Sorteer Berichten:
|
|
Vorig Volgende |
U bent niet gemachtigd om antwoord te kunnen geven. |
|
Mdbakker
 Basic Member
 Posts:28

 |
| 23 jan 2006 12:38 |
�
|
Ik ben op zoek naar een hatchpattern van spouwisolatie van rechtelijnen
(dus geen arc erin) /\/\/\/\/\/\/\/\/\/\/\/\
Heb al enige tijd gezocht maar helaas.
Kan iemand mij helpen ? |
|
|
|
|
Bastiaan van den Broek
 Veteran Member
 Posts:321

 |
| 23 jan 2006 14:32 |
�
|
Ik gebruik daarvoor altijd de standaard autocad arcering NET3. Je vinkt dan de optie Specified origin aan, klik dan op een begin punt van de isolatie. Dan kun je met behulp van Scale de arcering precies in de isolatie passen. En heb je eenmaal een isolatie dikte van bijv 100 mm gearceerd kan je deze door de hele tekening toepassen met Match Properties.
Succes! |
|
|
|
|
Mdbakker
 Basic Member
 Posts:28

 |
| 23 jan 2006 17:26 |
�
|
Op mijn werk wordt momenteel gebruik gemaakt van een bouwkundige applicatie 2DT van(kraan). Hierin is een functie gemaakt om gemakkelijk bouwkundige arceringen te maken. Helaas wordt de 2dt applicatie niet meer ondersteund in autocad 2006. Er zitten een aantal bugs in. Het liefst wil ik daarom van 2dt af. Dus ik zou graag de functies die ik veel gebruik vervangen door eventuele eigen gemaakte lisproutines. Ik heb al geprobeert om de lispfiles van 2DT de decrypten maar helaas lukt dat niet.
De functie om isolatie arcering te maken werkte perfect. Je klikt een lijn aan en perpend naar een tweede lijn en autocad tekent een isolatie hatch tussen de twee lijnen over de gehele lengte van de lijn. Heel simpel. Het is dan ook een echt hatch-object. (geen losse lijnen) /\/\/\/\/\/\/\/\/\/\\
Misschien zijn er nog meer tips ?? |
|
|
|
|
S Schevers
 Veteran Member
 Posts:444

 |
| 26 jan 2006 11:30 |
�
|
Je eigen hatch aanmaken is ook een optie. Dit kun je doen in notepad/kladblok.
De algemene vorm voor een arcerings-definitie is als volgt:
*naam-arcering, omschrijving in tekst
hoek, x,y,(beginpunt) x,y,(verplaatsing) omschrijving
bijvoorbeeld
*kruis, acering onder 45 en -45 graden - afstand 5
45, 0,0 ,0, 5
135, 0,0, 0,5
bestand opslaan als gewenstenaam.pat en in je zoekpad zetten. ( of je breid je acad.pat uit)
Zo kun je je eigen hatch patterns maken
succes. |
|
|
|
|
Theo Kaak
 Basic Member
 Posts:59

 |
| 09 jan 2007 12:00 |
�
|
Ik denk dat je deze nodig hebt.
je moet hem toevoegen aan je acad.pat
*TKa-Isolatie, Thermische isolatie (Bouwkundige Arcering)
60, 0, 0, 0, 10
120, 0, 0, 0, 10
ik heb er nog meer als je nodig hebt... |
|
|
|
|
Ben Quanjer
 Basic Member
 Posts:57

 |
| 20 jan 2007 21:12 |
�
|
De volgende lisproutine werkt in AutoCAD 2002 en 2006
Je moet een polyline selecteren, daarna een dikte van de isolatie opgeven en een punt aan die zijde van de lijn waar de isolatie moet komen.
Er mag geen UCS anders dan World actief zijn.
Ik hoop dat je hier wat aan hebt, de polylijn waar de arcering langs loopt mag uit meerdere delen bestaan. Als de lijn is gesloten, komt langs de sluitlijn geen arcering .
;----------------------------
; ISOLATIE
;----------------------------
(defun c:Isolatie ()
(setq SnapModeOud (getvar "SNAPMODE"))
(setq e nil elst nil b nil)
(setq elst (ssadd))
(setq Lijst1 '((0 . "LINE")))
(while (/= (cdr (assoc 0 Lijst1)) "LWPOLYLINE")
(setq Lijst1 (entget (setq E1 (car (entsel "\nSelecteer basislijn ")))))
)
(setvar "OSMODE" 0)
(setq Lijst1 (entget E1)) ; complete Lijst
(setq Nr1 0 Pnt1 0)
(while (nth Pnt1 Lijst1)
(setq Pnt1 (+ Pnt1 1))
(if (= 10 (car (nth Pnt1 Lijst1)))
(progn
(if (= Nr1 0) (setq Nr1 Pnt1)) ; eerste punt van lijn
(setq Laatstepunt1 Pnt1) ; tenslotte laatste punt lijn
)
)
)
(setq punt1nr1 (cdr (nth Nr1 Lijst1)))
(setq punt1nr2 (cdr (nth (+ Nr1 4) Lijst1)))
(setq Afstand (getdist "\n Geef dikte van de isolatie op: "))
(setq punt (getpoint "\n Prik een punt om de plaats van de isolatie te bepalen: "))
(command "OFFSET" Afstand e1 Punt "")
(setq E2 (entlast))
(setq Teller Nr1)
(setq Basis1 (entget E1))
(setq Buiten2 (entget E2))
(while (/= (car (nth (+ Teller 4) Basis1)) 210)
(setq X1 (cdr (nth Teller Basis1)))
(setq X2 (cdr (nth (+ Teller 4) Basis1)))
(setq X3 (cdr (nth (+ Teller 4) Buiten2)))
(setq X4 (cdr (nth Teller Buiten2)))
(setq XM (list (/ (+ (nth 0 X1)(nth 0 X2)) 2)
(/ (+ (nth 1 X1)(nth 1 X2)) 2)
)
)
(setq Hoek (* 180 (/ (angle X1 X2) pi)))
(if (= (substr (getvar "ACADVER") 1 2) "15")
(command "SNAP" "ROTATE" XM Hoek) ;AutoCAD 2002
(progn
(command "HPORIGIN" XM) ;AutoCAD 2006
(command "SNAP" "ROTATE" "0,0" Hoek)
)
)
; hier eventueel laag, kleur en lijntype aanpassen (lijn isolatie)
(command "PLINE" X1 X4 X3 X2 "")
(command "PLINE" X1 X2 X3 X4 "C")
(setq arc (entlast))
; hier eventueel laag, kleur en lijntype aanpassen (arcering)
(command "HATCH" "ISOLATIE" Afstand Hoek arc "")
(entdel arc)
(setq Teller (+ Teller 4))
)
(entdel E2)
(command "SNAP" "ROTATE" '(0.0 0.0) 0.0)
(setvar "SNAPMODE" SnapModeOud)
(setq SnapModeOud nil)
(princ)
)
Verder in de ACAD(ISO).pat de volgende regels toevoegen:
*isolatie,Isolatie mat.
60, 0, 0, 0, 1
120, 0, 0, 0, 1
Deze lijken op de vorige reactie alleen 10 wordt 1 |
|
|
|
|
ali70
 New Member
 Posts:1

 |
| 11 dec 2011 09:49 |
�
|
Ik heb arcering isolatie nodig voor autocad 2012?? kan iemand me daarmee helpen? |
|
|
|
|
henri77
 New Member
 Posts:34

 |
|
| U bent niet gemachtigd om antwoord te kunnen geven. |
|
Active Forums 4.1
|
|
|
|
|
|
|