PC Pro 1998 November/Dppcpro1198.iso/Nov/Intelcad/Uncompressed/API/Scripts/MoveCopyOffsetScale.scr

Text File | 1998-03-18 | 7.7 KB | 590 lines

;---------------------------------------------
;File name: MoveCopyOffsetScale.SCR
;Purpose: Demonstrate Move, Copy, Offset and Scale
;
;Last Modified: 3/18/98
;---------------------------------------------
CMDECHO
0
PICKBOX
3
APERTURE
10
;
GRID
ASPECT
10
10
;Turn off blips
blipmode
off
;Erase everything that's already there
Erase
all

; Setting all the other necessary system variables:
vpoint
0,0,1
elev
0
0
gridmode
0
fillmode
1
snapmode
0
linetype
s
bylayer

layer
s
0

color
bylayer
color
red
grid
on
snap
on
snap
2
limits
0,0
200,200
zoom
window
0,0
200,200
line
0.0000,200.0000
200.0000,200.0000
200.0000,2.0000
0.0000,2.0000
0.0000,200.0000

offset
34
0.0000,80.0000
24.0000,82.0000
34.0000,76.0000
66.0000,78.0000
68.0000,74.0000
98.0000,78.0000
102.0000,76.0000
134.0000,78.0000
136.0000,74.0000
174.0000,78.0000
28.0000,200.0000
28.0000,184.0000
30.0000,166.0000
30.0000,110.0000
28.0000,132.0000
28.0000,104.0000
28.0000,98.0000
28.0000,70.0000
30.0000,64.0000
30.0000,26.0000

;       move portion
color
yellow
LINE
4.0000,196.0000
30.0000,196.0000

;draw entities in box 1 (section 1)
line
4.0000,192.0000
30.0000,192.0000

PLINE
4.0000,184.0000
6.0000,188.0000
10.0000,184.0000
14.0000,188.0000
18.0000,184.0000
22.0000,188.0000
26.0000,184.0000
30.0000,188.0000

ARC
2.0000,176.0000
16.0000,182.0000
30.0000,176.0000
;
;draw entities in box 2 (section 2)
CIRCLE
44.0000,190.0000
50.0000,186.0000
ELLIPSE
44.0000,190.0000
52.0000,178.0000
60.0000,194.0000
ZOOM
EXTENTS
RECTANG
48.0000,180.0000
62.0000,170.0000
hatch
u
0
1
NO
42.0000,174.0000
42.0000,184.0000

;draw entities in box 3 (section 3)
POLYGON
6
76.0000,192.0000
i
76.0000,188.0000
DONUT
86.0000,182.0000
92.0000,176.0000
94.0000,174.0000
84.0000,186.0000
90.0000,190.0000

SOLID
72.0000,178.0000
72.0000,168.0000
90.0000,178.0000
84.0000,172.0000
96.0000,170.0000


;draw entities in box 4 (section 4)
TRACE
106.0000,192.0000
116.0000,192.0000
130.0000,184.0000
110.0000,176.0000

text
108.0000,188.0000
108.0000,196.0000
116.0000,192.0000
hi
text
2.0000,168.0000
2.0000,170.0000
0
line,arc, pline
text
38.0000,168.0000
2
0
circle,ellipse,rect
text
74.0000,168.0000
2
0
pgon,donut,face
text
106.0000,168.0000
2
0
text,trace
;moving everything in box 1 (section 5)
zoom
extents
move
18.0000,196.0000
20.0000,192.0000
14,188
end
30.0000,176.0000
14.0000,168.0000

16.0000,172.0000
184.0000,138.0000
;move everything in box 2 (section 6)
move
c
60,142
64,144
nea
62.0000,176.0000
56,168

46.0000,180.0000
148.0000,146.0000
;Move everything in box 3 (section 7)
Move
16.0000,170.0000
14.0000,168.0000
76.0000,188.0000
94.0000,182.0000
92.0000,176.0000
80.0000,178.0000
88.0000,168.0000
;80.0000,172.0000

80.0000,178.0000
116.0000,146.0000
;move everything in box 4 (section 8)
move
108.0000,192.0000
;104.0000,196.0000
120.0000,190.0000
108.0000,196.0000
c
122.0000,190.0000
106.0000,196.0000
130.0000,184.0000
118.0000,170.0000

108.0000,170.0000
76.0000,136.0000
;      ------------------------copy portion
redraw
;copy from box 1 (section 1)
copy
188.0000,162.0000
190.0000,158.0000
178.0000,150.0000
end
198.0000,142.0000

184.0000,144.0000
184.0000,180.0000
text
172.0000,168.0000
2
0
Copy
;copy from box 2 (section 2)
copy
c
164.0000,164.0000
148.0000,142.0000

148.0000,138.0000
148.0000,172.0000
;copy from box 3 (section 3)
copy
120.0000,152.0000
114.0000,156.0000
118.0000,146.0000
;130.0000,142.0000

118.0000,146.0000
118.0000,178.0000
;copy from box 4 (section 4)
copy
94.0000,154.0000
82.0000,160.0000

86.0000,152.0000
86.0000,186.0000
;copy the copy text across (section 5)
copy
176.0000,170.0000

176.0000,168.0000
142.0000,168.0000
copy
144.0000,168.0000

142.0000,168.0000
108.0000,168.0000
copy
106.0000,170.0000

106.0000,170.0000
72.0000,170.0000
;
;  -----------------------------------offset portion
;draw all the shapes to offset (section 1)
line
4.0000,196.0000
4.0000,168.0000

line
8.0000,196.0000
28.0000,196.0000

line
10.0000,188.0000
26.0000,172.0000

arc
38.0000,184.0000
52.0000,196.0000
64.0000,184.0000
arc
c
50.0000,170.0000
44.0000,178.0000
60.0000,172.0000
pline
4.0000,162.0000
w
0
0
8.0000,156.0000
4.0000,150.0000
10.0000,146.0000
4.0000,140.0000
10.0000,134.0000

pline
24.0000,164.0000
26.0000,156.0000
a
22.0000,146.0000
26.0000,136.0000

pline
40.0000,158.0000
48.0000,152.0000
44.0000,150.0000
a
48.0000,144.0000
50.0000,138.0000
l
42.0000,136.0000

circle
14.0000,116.0000
24.0000,112.0000
polygon
6
48.0000,120.0000
i
54.0000,114.0000
rectang
50.0000,110.0000
64.0000,104.0000
ellipse
14.0000,88.0000
14.0000,74.0000
30.0000,82.0000
donut
44.0000,86.0000
52.0000,86.0000
40.0000,86.0000
56.0000,86.0000
50.0000,84.0000

pline
56.0000,158.0000
w
1
3
62.0000,142.0000

;print text for each box (section  2)
text
6.0000,168.0000


offset lines
text
36.0000,170.0000
2
0
offset arcs
text
4.0000,136.0000
2
0
offset polylines
text
38.0000,134.0000
2
0
offset polylines
text
4.0000,100.0000
2
0
offset circle
text
36.0000,102.0000
2
0
offset polygons & rect
text
2.0000,66.0000
2
0
offset ellipse
text
38.0000,66.0000
2
0
offset donut
color
green
;
;start offsetting things (section 3)
offset
4
22.0000,196.0000
22.0000,192.0000
20.0000,178.0000
16.0000,178.0000
4.0000,176.0000
6.0000,176.0000
50.0000,196.0000
50.0000,190.0000
50.0000,160.0000
50.0000,168.0000
50.0000,164.0000
50.0000,170.0000
54.0000,190.0000
54.0000,182.0000
56.0000,196.0000
56.0000,198.0000
60.0000,148.0000
62.0000,152.0000
58.0000,146.0000
56.0000,146.0000
44.0000,148.0000
40.0000,150.0000
22.0000,146.0000
20.0000,150.0000
4.0000,152.0000
16.0000,150.0000
22.0000,124.0000
20.0000,120.0000
22.0000,122.0000
24.0000,124.0000
50.0000,128.0000
50.0000,124.0000
56.0000,110.0000
58.0000,108.0000
16.0000,88.0000
18.0000,92.0000
18.0000,84.0000
18.0000,82.0000
58.0000,80.0000
66.0000,82.0000
54.0000,82.0000
52.0000,84.0000

;
;draw and offset strange plines
pline
74.0000,126.0000
96.0000,126.0000
width
0

arc
92.0000,118.0000
80.0000,114.0000
92.0000,110.0000

redraw
;More offsets (section  4)
offset
4
92.0000,118.0000
86.0000,114.0000
82.0000,118.0000
76.0000,118.0000

pline
78.0000,94.0000
90.0000,88.0000
74.0000,80.0000
92.0000,68.0000
96.0000,80.0000
74.0000,88.0000
92.0000,94.0000

offset
4
94.0000,74.0000
94,74
;b

pline
112.0000,118.0000
130.0000,126.0000
146.0000,120.0000
156.0000,126.0000
a
176.0000,122.0000
192.0000,122.0000

copy
152.0000,124.0000

152.0000,122.0000
152.0000,104.0000
copy
146.0000,102.0000

156.0000,110.0000
156.0000,80.0000
;-------------------taper with Pedit
;pedit
;164.0000,128.0000
;taper
;0
;5
regen
offset
4
146,118
;b
146,118

;--------------------scale portion
;scale 3 arcs
scale
58.0000,198.0000
58.0000,194.0000
56.0000,190.0000

50.0000,184.0000
.5
;scale the lines
scale
16.0000,192.0000
16.0000,196.0000
8.0000,178.0000
4.0000,180.0000
18.0000,180.0000
14.0000,178.0000

26.0000,172.0000
24.0000,174.0000
;scale the plines with width
scale
62.0000,142.0000

58.0000,140.0000
58.0000,142.0000

66.0000,148.0000

60.0000,160.0000
1.2
;-----------------------------------------------
scale
148.0000,122.0000

114.0000,120.0000
112.0000,120.0000
grid
off
;Now for the grand finale
color green
text
172,24,0
3
0
Done!
;----------------------------------------------------------------------
REDRAW
;----------------------------------------------------------------------