Maker Pro
Login Join Maker Pro
Or sign in with

Menu

Connect With Us

Network

Maker Pro

half a thermal

S

sycochkn

Jan 1, 1970
0
As polylines:

Aperture macro %AMTHERMAL80*7,0,0,0.080,0.055,0.0125,45*%


X# = 0#
Y# = 0#
OD# = .08
ID# = .055
CT# = .0125
RO# = 45

X1# = SQR((OD# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
Y1# = CT# / 2#
X2# = CT# / 2#
Y2# = SQR((OD# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
X3# = (CT# / 2#)
Y3# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
X4# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
Y4# = (CT# / 2#)
X5# = SQR(((OD# / 2#) ^ 2#) / 2#)
Y5# = SQR(((OD# / 2#) ^ 2#) / 2#)
X6# = X2# + ((X1# - X2#) / 2#)
Y6# = Y2# + ((Y1# - Y2#) / 2#)
C1# = SQR((X1# - X2#) ^ 2# + (Y1# - Y2#) ^ 2#)
C2# = SQR((X6# - X5#) ^ 2# + (Y6# - Y5#) ^ 2#)
B1# = 2# * (C2# / C1#)
X7# = SQR(((ID# / 2#) ^ 2#) / 2#)
Y7# = SQR(((ID# / 2#) ^ 2#) / 2#)
X8# = X4# + ((X3# - X4#) / 2#)
Y8# = Y4# + ((Y3# - Y4#) / 2#)
C3# = SQR((X3# - X4#) ^ 2# + (Y3# - Y4#) ^ 2#)
C4# = SQR((X8# - X7#) ^ 2# + (Y8# - Y7#) ^ 2#)
B2# = 2# * (C4# / C3#)

CLS
PRINT USING "##.########"; X5#
PRINT USING "##.########"; Y5#
PRINT USING "##.########"; X6#
PRINT USING "##.########"; Y6#
PRINT USING "##.########"; C1#
PRINT USING "##.########"; C2#
PRINT USING "##.########"; B1#

OUTFILE$ = "THERMAL.DXF"
OPEN "O", 1, OUTFILE$

REM HEADER
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "HEADER"
PRINT #1, " 9"
PRINT #1, "$INSBASE"
PRINT #1, " 10"
PRINT #1, "0.0"
PRINT #1, " 20"
PRINT #1, "0.0"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM CLASSES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "CLASSES"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM TABLES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "TABLES"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM BLOCKS
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "BLOCKS"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM ENTITIES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "ENTITIES"
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B1#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X2#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y2#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X3#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y3#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; -B2#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X4#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y4#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; -B1#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X2#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y2#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X3#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y3#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B2#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X4#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y4#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM OBJECTS
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "OBJECTS"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM END OF FILE
PRINT #1, " 0"
PRINT #1, "EOF"
REM END
CLOSE #1
END


Bob
 
You must log in or register to reply here.

Similar threads

N
How to use an H11AA1 optocoupler to make a missing half sine wave mains detector
Replies
2
Views
396
newbee
N
Maglatron
  • Locked
making two half bridges a "whole" h-bridge ir2103 and 55v bidirectional current
2
Replies
21
Views
1K
Harald Kapp
Harald Kapp
J
LED TV half screen is white
Replies
4
Views
4K
kellys_eye
kellys_eye
npomeroy
24vAC to 9vDC: half wave regulator input?
Replies
3
Views
2K
kellys_eye
kellys_eye
N
i have a mag 254 that shots off every 2 hours , i wait for half hour and then i reload and works 2
Replies
2
Views
1K
kellys_eye
kellys_eye
Top