Potřebujete si vytvořit vlastní šraf?
Máme pro Vás tip typu "Bez práce - koláče"!

Stáhněte si jeden Free LISP program - tzv. "Hatch Maker" z cadalystu z tohoto linku.

LISP je psán pro EN verzi AutoCADu nebo jiného DWG CADu. Pro použití v CZ verzi ho upravte následovně:

Upravte pouze řádky obsahující:

(command ... atd

kde před všechny příkazy, resp.podvoľby přidejte podtržítko Tedy například řádek:

(command "UCS" "w")

upravte takto:

(command "_UCS" "_w")

Pak po načtení do CADu vyvolejte příkaz: DRAWHATCH
- přizpůsobí se Vám prostředí a nastaví rastr ...
- nakreslete objekty (pouze úsečkami)
- a nakonec spusťte příkaz SAVEHATCH
- vyberte objekty šrafu, zadejte jeho popis a uložte jej

Získáte funkční PAT soubor - který v případě vzoru na obrázku obsahuje přes sto řádků a tedy ušetří Vám spoustu času.

Příklad části kódu definice šrafy z obrázku:

*ps,PrikladSrafu
270,0.64,0.16,0,1,0.09,-0.91
0,0.6,0.16,0,1,0.08,-0.92
0,0.53,0.12,0,1,0.04,-0.96
0,0.53,0.16,0,1,0.05,-0.95
90,0.53,0.07,0,1,0.09,-0.91
225,0.46,0.16,0.70710678,0.70710678,0.02828427,-1.38592929
180,0.49,0.16,0,1,0.03,-0.97
135,0.51,0.14,0.70710678,0.70710678,0.02828427,-1.38592929
90,0.51,0.09,0,1,0.05,-0.95
45,0.49,0.07,0.70710678,0.70710678,0.02828427,-1.38592929
0,0.46,0.07,0,1,0.03,-0.97
315,0.44,0.09,0.70710678,0.70710678,0.02828427,-1.38592929
......atď

Viz obr: