Crtanje sinusoide (AutoCAD 2008)

svebee — Fri, 02 Oct 2009 23:00:30 +0000

Kako se sve češće susrećem s crtanjem sinusoida, postojeća copy/paste ili ručna metoda ne dolaze u obzir. Copy/paste iz logičnog razloga što trebam specifične sinusoide (amplituda i frekvencija), a ne jednu te istu samo zbog demonstracije. Ručna metoda je vrlo kvalitetna, no traje – poprilično. Inače sve tehničke crteže crtam u AutoCADu verzija 2008 jednostavno zato što sam se naviknuo na takav princip i ide mi najbrže, a opet rezultati su savršeni (barem što se tiče mjera). No, za crtanje sinuosoida nisam mogao naći konkretnu opciju pa sam čak razmišljao o kombinaciji nekog drugog programa i AutoCADa, što je opet usporavalo cijeli proces (import, export, convert…) te sam želio imati kompletan crtež u AutoCAD formatu - .dwg. Rješenje je u kreaciji vlastitih malih skripti koje će raditi što god želite, a možete ih jednostavno napisati u Notepadu i pozvati pomoću AutoCADa.

Radi se o AutoLISP programskom jeziku koji je posebno dizajniran za punokrvne verzije AutoCADa i njegove derivacije (AutoCAD Map 3D, AutoCAD Arhitecture, AutoCAD Mechanical). Ekstenzija takve skripte jest – .lsp. Skriptu za sinusoidu možete ručno programirati ili potražiti gotovo rješenje (pogotovo ukoliko ste početnik na tom polju ili jednostavno trebate samo nekoliko skripti, bez neke velike filozofije i učenja jezika). Ja sam pronašao gotovo rješenje za crtanje sinusoide i radi i više nego dobro. Potrebno je kreirati novi .lsp dokument (možete kreirati New Text Document (.txt) i samo mu promijeniti ekstenziju u .lsp i dalje ju otvarati s Notepadom) te kopirati i spremiti slijedeći kod (kod je originalno by David Bethel, ja sam samo stavio hrvatski prijevod).

(initget 7)
(setq amp (getdist "\nAmplituda: "))
(initget 7)
(setq frq (getdist "\nFrekvencija: "))
(initget 6)
(setq rep (getint "\n# tocaka po valu <1000>: "))
(and (not rep)
(setq rep 1000))
(setq i 0
inc (/ (* 2 pi) rep))
(command "_.PLINE")
(repeat (1+ rep)
(command (list (* i frq) (* amp (sin i))))
(setq i (+ i inc)))
(command "")

Otvorite AutoCAD (NAPOMENA: neke gotove skripte ne rade sa svim verzijama već samo određenim, ja koristim verziju 2008) te možete ili u komandnu liniju na dnu upisati “appload” ili kliknuti na Tools – AutoLISP – Load application… ili samo Tools – Load application… Dobit ćete slijedeći prozor.

Jednostavno locirajte i otvorite svoju malu skriptu klikom na Load. U komandnoj liniji će pisati sinusoida.lsp successfully loaded te kliknite na Close. Upišite amplitudu,

frekvenciju

i broj točaka po valu

i dobit ćete svoju sinusoidu kreiranu u roku – odmah.

svebee » sinusoida autocad

Crtanje sinusoide (AutoCAD 2008)