Pembuatan Program Script File
Contoh Dasar-dasar Pembuatan Program Script File
Dasar pembuatan program Script file adalah perintah manual AutoCad yang dapat dibuat
menjadi kode program untuk menggantikan perintah manual AutoCad sehingga AutoCad
dapat membaca list data dari hasil Script file tersebut untuk dikerjakan.
Pada program AutoCad mempunyai fasilitas perintah “Run Script” yang terdapat pada menu
bar “Tools”. Perintah ini digunakan untuk membuka Script file yang dibuat program lain
dengan obyek perintah manual AutoCad.
Script file adalah file yang mempunyai ekstension “.scr”, dan dengan membuat script file
untuk obyek perintah tertentu dari AutoCad kemudian dilanjutkan dengan membuka script
file tersebut pada program AutoCad maka obyek tersebut akan tergambar/dikerjakan secara
otomatis.
Pokok-pokok perintah manual AutoCad yang akan dibuat kode programnya menjadi Script
file :
1. Limits drawing
Limits drawing adalah batasan dalam bidang gambar pada AutoCad sesuai dengan
ukuran kertas yang akan dipakai sebagai keluarannya.
Ukuran A1 misalnya 840 mm x 594 mm, dengan ukuran A1 ini maka perintah
manual AutoCadnya adalah sebagai berikut :
a). Buka program AutoCad
b). Command : Limits, setelah memberikan perintah ini kemudian tekan enter
maka perintah selanjutnya adalah :
c). Specify lower left corner or [ON/OFF] <0.0000,0.0000>: isikan 0,0 dan
tekan enter maka perintah selanjutnya adalah :
d). Specify upper right corner <420.0000,297.0000>: isikan 840,594 dan tekan
enter maka perintah selanjutnya adalah :
e). Command : Zoom, setelah memberikan perintah ini kemudian tekan enter
maka perintah selanjutnya adalah :
f). Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] : all, maka
AutoCad akan terjadi Regeneratng model dan bidang layar dari AutoCad
akan mempunyai limits A1 (840,594).
Kode Programnya adalah sebagai berikut :
Print #1, "LIMITS": Write #1, 0, 0: Write #1, 840, 594
Print #1, "ZOOM": Print #1, "ALL"
2. OSNAP dalam kondisi Off, agar gambar yang dihasilkan sesuai dengan koordinatnya.
Kode programnya :
Print #1, "OSNAP": Print #1, "OFF"
3. Pembuatan Layer baru
Layer baru yang akan dibuat dapat disesuaikan Nama, Warna, Type garis juga ketebalan
garisnya.
a). Command : Layer, setelah memberikan perintah ini kemudian tekan enter maka
perintah selanjutnya seperti terlihat pada gambar 1
Gambar 1 Setting layer baru
b). Tekan Tool “New” maka form diatas memuat deretan default setting layer baru,
sebagai contoh untuk Layer baru dengan nama : GREEN
Kode Programnya adalah sebagai berikut :
Print #1, "LAYER": Print #1, "N": Print #1, "GREEN"
Print #1, "C": Print #1, "3": Print #1, "GREEN"
Print #1, "L": Print #1, "CONTINUOUS": Print #1, "GREEN"
Print #1, ""
Apabila ingin menambahkan ketebalan garis maka perlu ditambahkan kode programnya pada
baris ke 4 dengan notasi “LW”, contoh layer : DBLUE
Print #1, "LAYER": Print #1, "N": Print #1, "DBLUE"
Print #1, "C": Print #1, "5": Print #1, "DBLUE"
Print #1, "L": Print #1, "CONTINUOUS": Print #1, "DBLUE"
Print #1, "LW": Print #1, "0.3": Print #1, "DBLUE"
Print #1, ""
Apabila kode program di atas dijadikan Script file dengan Microsoft Excel makro, maka
setelah dijalankan di AutoCad akan terlihat pada AutoCad Text Window sebagai
berikut :
Command: LAYER
Current layer: "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]: N
Enter name list for new layer(s): GREEN
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]: C
Enter color name or number (1-255): 3
Enter name list of layer(s) for color 3 (green) <0>: GREEN
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]: L
Enter loaded linetype name or [?] : CONTINUOUS
Enter name list of layer(s) for linetype "CONTINUOUS" <0>: GREEN
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]:
4. Merubah ke layer baru
Untuk merubah ke layer baru perlu sub perintah perubah layer dengan kode
programnya sebagai berikut :
Sub perintah untuk contoh layer : GREEN
Sub GREEN()
Print #1, "LAYER": Print #1, "S": Print #1, "GREEN"
Print #1, ""
End Sub
Sub perintah untuk contoh layer : DBLUE
Sub DBLUE()
Print #1, "LAYER": Print #1, "S": Print #1, "DBLUE"
Print #1, ""
End Sub
Apabila kode program di atas dijadikan Script file dengan Microsoft Excel makro, maka
setelah dijalankan di AutoCad akan terlihat pada AutoCad Text Window sebagai
berikut :
Command: LAYER
Current layer: "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]: S
Enter layer name to make current <0>: GREEN
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]:
5. LineType Scale
Line Type Scale gunanya untuk menskalakan garis (contoh LTSCALE = 5)
a). Command : LTSCALE, setelah memberikan perintah ini kemudian tekan enter
maka perintah selanjutnya adalah :
b). Enter new linetype scale factor <1.0000>: 5, kemudian tekan enter.
Kode programnya adalah sebagai berikut :
Print #1, "LTSCALE": Write #1, 5
6. Membuat Nama Text dan Font baru
Nama text dan font baru pada perintah manual AutoCad adalah :
a). Command : STYLE, setelah memberikan perintah ini kemudian tekan enter maka
perintah selanjutnya seperti terlihat pada gambar 2
Gambar 2 Form membuat font baru
b). Tekan Tool “New” maka akan muncul form isian untuk nama Text yang akan dibuatnya
seperti gambar 3
Gambar 3 form isian nama text baru
Jenis font dapat dipilih pada “Font Name” yang ada pada form.
Contoh : Nama text “ARIAL” dan font “[Link]”
Kode programnya adalah sebagai berikut :
Print #1, "STYLE": Print #1, "ARIAL"
Print #1, "[Link]": Write #1, 0: Write #1, 1
Write #1, 0: Print #1, "N": Print #1, "N"
Apabila kode program di atas dijadikan Script file dengan Microsoft Excel makro, maka
setelah dijalankan di AutoCad akan terlihat pada AutoCad Text Window sebagai
berikut :
Command: STYLE
Enter name of text style or [?] : ARIAL
New style.
Specify full font name or font filename (TTF or SHX) : [Link]
Specify height of text <0.0000>: 0
Specify width factor <1.0000>: 1
Specify obliquing angle <0>: 0
Display text backwards? [Yes/No] : N
Display text upside-down? [Yes/No] : N
"ARIAL" is now the current text style.
7. Menulis Text pada Koordinat tertentu
Perintah manual AutoCad untuk menulis text akan terlihat pada AutoCad Text Window
sebagai berikut :
Command: text
Current text style: "ARIAL" Text height: 2.5000
Specify start point of text or [Justify/Style]: J
Enter an option
[Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]: C
Specify center point of text: 100,100
Specify height <2.5000>: 2.5
Specify rotation angle of text <0>: 0
Enter text: COBA
Enter text:
Kode programnya adalah :
Print #1, "TEXT": Print #1, "C": Write #1, X1, Y1
Write #1, 2.5: Write #1, 0: Print #1, "COBA"
8. Membuat garis
Perintah manual AutoCad untuk membuat garis akan terlihat pada AutoCad Text Window
sebagai berikut :
Command: PLINE
Specify start point: 100,100
Current line-width is 0.0000
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: 100,300
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Command: PLINE
Specify start point: 400,200
Current line-width is 0.0000
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: W
Specify starting width <0.5000>: .5
Specify ending width <0.5000>: .5
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: 700,300
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Command: PLINE
Specify start point: 400,100
Current line-width is 0.5000
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: W
Specify starting width <0.5000>: 0
Specify ending width <0.5000>: 0
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: 700,200
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Kode programnya adalah :
Print #1, "PLINE": Write #1, 100, 100
Write #1, 100, 300: Print #1, ""
Print #1, "PLINE": Write #1, 400, 200
Print #1, "W": Write #1, 0.5: Write #1, 0.5
Write #1, 700, 300: Print #1, ""
Print #1, "PLINE": Write #1, 400, 100
Print #1, "W": Write #1, 0: Write #1, 0
Write #1, 700, 200: Print #1, ""
9. Membuat Kotak
Perintah manual AutoCad untuk membuat kotak akan terlihat pada AutoCad Text Window
sebagai berikut :
Command: rectang
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]: 100,100
Specify other corner point: 400,400
Kode programnya adalah :
Print #1, "RECTANG": Write #1, 100, 100: Write #1, 400, 400
10. Membentuk Chamfer
Perintah manual AutoCad untuk membentuk Chamfer akan terlihat pada AutoCad Text
Window sebagai berikut :
Command: PLINE
Specify start point: 100,100
Current line-width is 0.0000
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: 100,300
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: 300,300
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Command: CHAMFER
(TRIM mode) Current chamfer Dist1 = 10.0000, Dist2 = 10.0000
Select first line or [Polyline/Distance/Angle/Trim/Method]: D
Specify first chamfer distance <10.0000>: 25
Specify second chamfer distance <25.0000>: 25
Command:
CHAMFER
(TRIM mode) Current chamfer Dist1 = 25.0000, Dist2 = 25.0000
Select first line or [Polyline/Distance/Angle/Trim/Method]: P
Select 2D polyline: L
1 line was chamfered
Kode programnya adalah :
Print #1, "PLINE": Write #1, 100, 100: Write #1, 100, 300
Write #1, 100, 300: Write #1, 300, 300
Print #1, ""
Print #1, "CHAMFER": Print #1, "D": Write #1, 25: Write #1, 25
Print #1, "": Print #1, "P": Print #1, "L"
11. Arsiran/Hatch
Perintah manual AutoCad untuk membuat Arsiran/Hatch akan terlihat pada AutoCad
Text Window sebagai berikut :
Command: RECTANG
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]:
100,100
Specify other corner point: 300,300
Command: BHATCH
Current hatch pattern: ANSI33
Specify internal point or [Properties/Select/Remove islands/Advanced]: P
Enter a pattern name or [?/Solid/User defined] : "ANSI33"
Specify a scale for the pattern <1.2500>:
Specify an angle for the pattern <0>: 0
Current hatch pattern: ANSI33
Specify internal point or [Properties/Select/Remove islands/Advanced]:
Command: HPSCALE
Enter new value for HPSCALE <1.2500>: 1.25
Command: BHATCH
Current hatch pattern: ANSI33
Specify internal point or [Properties/Select/Remove islands/Advanced]: 150,150
Selecting everything...
Selecting everything visible...
Analyzing the selected data...
Analyzing internal islands...
Current hatch pattern: ANSI33
Specify internal point or [Properties/Select/Remove islands/Advanced]:
Kode programnya adalah :
Print #1, "RECTANG": Write #1, 100, 100: Write #1, 400, 400
Print #1, "BHATCH": Print #1, "P": Write #1, "ANSI33"
Print #1, "": Print #1, "0": Print #1, ""
Print #1, "HPSCALE": Write #1, 1.25
Print #1, "BHATCH"
Write #1, 150, 150: Print #1, ""
12. Dimension Style
Dimension Style melalui form tampilan seperti terlihat pada gambar 4
Gambar 4 Tampilan form Dimension Style
Kode programnya adalah :
Print #1, "DIMTXSTY": Write #1, "Standard"
Print #1, "DIMTXT": Write #1, 2.5
Print #1, "DIMLUNIT": Write #1, 2
Print #1, "DIMDEC": Write #1, 2
Print #1, "DIMDSEP": Print #1, "."
Print #1, "DIMRND": Write #1, 0.01
Print #1, "DIMLFAC": Write #1, 1
Print #1, "DIMZIN": Write #1, 1
Print #1, "DIMTMOVE": Write #1, 2
Keterangan Dimension Styles ini dapat dilihat pada Help
13. Dimlinear dan DimContinue
Dimlinear dan DimContinue untuk posisi horizontal maupun posisi vertical kode programnya
adalah sebagai berikut :
Print #1, "DIMLINEAR": Write #1, 100, 100: Write #1, 150, 100
Print #1, "H": Write #1, 125, 90
Print #1, "DIMCONTINUE": Write #1, 200, 100
Write #1, 225, 100: Print #1, "": Print #1, ""
Print #1, "DIMLINEAR": Write #1, 100, 300: Write #1, 100, 250
Print #1, "V": Write #1, 110, 275
Print #1, "DIMCONTINUE": Write #1, 100, 200
Write #1, 100, 150: Print #1, "": Print #1, ""
Perintah manual AutoCad untuk Dimlinear dan Dimcontinue akan terlihat pada AutoCad
Text Window sebagai berikut :
Command: DIMTXSTY
Enter new value for DIMTXSTY <"Standard">: "Standard"
Command: DIMTXT
Enter new value for DIMTXT <2.5000>: 2.5
Command: DIMLUNIT
Enter new value for DIMLUNIT <2>: 2
Command: DIMDEC
Enter new value for DIMDEC <2>: 2
Command: DIMDSEP
Enter new value for DIMDSEP <".">: .
Command: DIMRND
Enter new value for DIMRND <0.0100>: .01
Command: DIMLFAC
Enter new value for DIMLFAC <1.0000>: 1
Command: DIMZIN
Enter new value for DIMZIN <1>: 1
Command: DIMTMOVE
Enter new value for DIMTMOVE <2>: 2
Command: DIMLINEAR
Specify first extension line origin or <"select object">:100, 100
Specify second extension line origin :150, 100
Specify dimension line location or
[Mtext/Text/Angle/Horizontal/Vertical/Rotated]: H
Specify dimension line location or [Mtext/Text/Angle]: 125,90
Dimension text = 50.00
Command: DIMCONTINUE
Specify second extension line origin or [Undo/Select] <"Select">:200, 100
Dimension text = 50.00
Specify second extension line origin or [Undo/Select] <"Select">:225, 100
Dimension text = 25.00
Specify second extension line origin or [Undo/Select] <"Select">:
Select continued dimension:
Command: DIMLINEAR
Specify first extension line origin or <"select object">:100, 300
Specify second extension line origin :100, 250
Specify dimension line location or
[Mtext/Text/Angle/Horizontal/Vertical/Rotated]: V
Specify dimension line location or [Mtext/Text/Angle]: 110,275
Dimension text = 50.00
Command: DIMCONTINUE
Specify second extension line origin or [Undo/Select] <"Select">:100, 200
Dimension text = 50.00
Specify second extension line origin or [Undo/Select] <"Select">:100, 150
Dimension text = 50.00
Specify second extension line origin or [Undo/Select] <"Select">:
Select continued dimension:
Tidak ada komentar:
Selasa, September 08, 2009