0
点赞
收藏
分享

微信扫一扫

RationalDMIS 7.1 DMIS Beispiel

芝婵 2022-06-06 阅读 80

RationalDMIS 7.1 DMIS Beispiel_java

$$ *******************************************************************
$$ Allgemeine Initialisierungen
$$ *******************************************************************
DISPLY/TERM, DMIS

UNITS/MM,ANGDEC
MODE/MAN
DECL/CHAR, 1, ch


$$ *******************************************************************
$$ Messgeräte Einstellungen (KMG Parameter)
$$ *******************************************************************
SNSET/APPRCH,2.00000
SNSET/RETRCT,2.00000
SNSET/SEARCH,2.00000
ACLRAT/MESACL,PCENT,1.00
ACLRAT/POSACL,PCENT,0.80
FEDRAT/MESVEL,PCENT,0.60
FEDRAT/POSVEL,PCENT,0.50


$$ *******************************************************************
$$ Auswahldialog
$$ *******************************************************************
(Auswahldialog)
DECL/CHAR, 255, auswahl
TEXT/OPER,' '
TEXT/OPER,'============================================================'
TEXT/OPER,' '
TEXT/OPER,'Bitte wählen Sie das Programm aus :'
TEXT/OPER,' '
TEXT/OPER,' W = Würfel (Kreise über Makro)'
TEXT/OPER,' K = Kurvenscheibe (Spirale) '
TEXT/OPER,' N = NDN-Teil (Volumenberechnung)'
TEXT/OPER,' '
TEXT/OPER,' E = Ende'
TEXT/OPER,' '
auswahl = PROMPT/'Eingabe : '

IF/((auswahl .EQ. 'n') .OR. (auswahl .EQ. 'N'))
JUMPTO/(NDN)
ENDIF

IF/((auswahl .EQ. 'w') .OR. (auswahl .EQ. 'W'))
JUMPTO/(Wuerfel)
ENDIF

IF/((auswahl .EQ. 'k') .OR. (auswahl .EQ. 'K'))
JUMPTO/(Kurvenscheibe)
ENDIF

IF/((auswahl .EQ. 'e') .OR. (auswahl .EQ. 'E'))
JUMPTO/(Ende)
ENDIF

TEXT/OPER,' '
TEXT/OPER,'Ihre Eingabe "' + auswahl + '" ist nicht zulässig.'
auswahl = PROMPT/'Bitte versuchen Sie es noch einmal!'
TEXT/OPER,' '
TEXT/OPER,' '
TEXT/OPER,' '
JUMPTO/(Auswahldialog)





$$ *******************************************************************
$$ Wuerfel
$$ *******************************************************************
(Wuerfel)

$$ KreisMakro Definition
$$ ---------------------
M(XY_Kreismessung) = MACRO/cir_name, x, y, z, dm, mt
F(@cir_name)=FEAT/CIRCLE,INNER,CART, x, y, z, 0, 0, 1, dm
GOTO/ x, y, z + 5
TEXT/OPER,'Makro-Aufruf mit X=' + STR(x,8:2) + ' Y=' + STR(y,8:2) + $
' Z='+STR(z,8:2)

MEAS/CIRCLE,F(@cir_name),4
GOTO/x, y, z + 5
GOTO/x, y, z - mt
PTMEAS/CART,x + dm / 2, y , z - mt,-1, 0, 0
PTMEAS/CART,x , y + dm / 2, z - mt, 0,-1, 0
PTMEAS/CART,x - dm / 2, y , z - mt, 1, 0, 0
PTMEAS/CART,x , y - dm / 2, z - mt, 0, 1, 0
GOTO/x, y, z + 5
ENDMES

ENDMAC

TEXT/OPER,' '
TEXT/OPER,'Die Kreise werden mittels Makro gemessen'
TEXT/OPER,' '

MODE/PROG, MAN
GOTO/135, 220, 110
CALL/M(XY_Kreismessung),'Kreis1', 57.5, 34.5, 0.0, 16.0, 3.0
CALL/M(XY_Kreismessung),'Kreis2', 57.5, 9.5, 0.0, 12.0, 3.0
CALL/M(XY_Kreismessung),'Kreis3', 75.2, 16.8, 0.0, 8.0, 3.0
CALL/M(XY_Kreismessung),'Kreis4', 75.2, 52.2, 0.0, 8.0, 3.0
CALL/M(XY_Kreismessung),'Kreis5', 57.5, 59.5, 0.0, 12.0, 3.0
GOTO/135, 220, 110

JUMPTO/(Auswahldialog)




$$ *******************************************************************
$$ Kurvenscheibe
$$ *******************************************************************
(Kurvenscheibe)
DECL/INTGR, zaehler, anzahl
DECL/REAL, x, y, z, dx, dy, umdr, weite
DECL/CHAR, 255, pt_name

TEXT/OPER,' '
TEXT/OPER,'Dieses Beispiel zeigt, wie die Tastpunkte berechnet werden können.'
TEXT/OPER,'Punkte werden spiralförmig angetastet.'
TEXT/OPER,' '

z = ASSIGN/ 0.000
dx = ASSIGN/ 60.000
dy = ASSIGN/ 60.000
umdr = ASSIGN/ 3.5 * 3.141592654

(Eingabe)

anzahl = PROMPT/'Bitte Anzahl Punkte eingeben [20-100]: '
IF/((anzahl .LT. 20) .OR. (anzahl .GT. 100))
JUMPTO/(Eingabe)
ENDIF

MODE/PROG, MAN
GOTO/-166.175, -153.242, 145.507
GOTO/ -34.000, -12.000, 118.000

DO/ zaehler, 1, anzahl
pt_name = ASSIGN/ 'Punkt' + STR(zaehler)
weite = ASSIGN/ 11.0 + zaehler * 35.0 / anzahl
x = ASSIGN/ dx + weite * SIN(zaehler / (anzahl / umdr))
y = ASSIGN/ dy + weite * COS(zaehler / (anzahl / umdr))
F(@pt_name)=FEAT/POINT,CART, x, y, z, 0, 0, 1
MEAS/POINT,F(@pt_name),1
PTMEAS/CART, x, y, z, 0, 0, 1
ENDMES
ENDDO



GOTO/ 0.000, -30.000, 100.000
GOTO/-166.175, -153.242, 145.507

TEXT/OPER,' '
TEXT/OPER,'Schauen Sie sich die Punktverteilung in der Grafik an.'
ch = PROMPT/'Pause..'
JUMPTO/(Auswahldialog)




$$ *******************************************************************
$$ NDN Teil
$$ *******************************************************************
(NDN)
TEXT/OPER,' '
TEXT/OPER,'Es werden geometrische Elemente erfasst.'
TEXT/OPER,'Anschliessend werden die Volumen der gemessenen Körper berechnet.'
TEXT/OPER,' '


MODE/PROG,MAN
GOTO/301.319566,61.857319,165.237830
GOTO/156.178501,112.092458,27.601640
F(Ebene_unten)=FEAT/PLANE,CART,185.94938,80.92968,0.11396,0.00250,0.00012, $
1.00000
MEAS/PLANE,F(Ebene_unten),4
PTMEAS/CART,137.974685,112.130824,0.261009,0.002504,0.000116,0.999997
PTMEAS/CART,137.694377,39.393168,0.186327,0.002504,0.000116,0.999997
PTMEAS/CART,215.360283,58.154954,0.113078,0.002504,0.000116,0.999997
PTMEAS/CART,252.768162,114.039758,-0.104579,0.002504,0.000116,0.999997
ENDMES
GOTO/252.546906,114.078536,31.061410
F(Zylinder)=FEAT/CYLNDR,OUTER,CART,186.75299,111.97838,13.11051,0.02995, $
0.00811,0.99952,15.03348
MEAS/CYLNDR,F(Zylinder),8
PTMEAS/CART,194.422403,111.566131,18.101477,0.997152,-0.069480,-0.029316
GOTO/195.757584,119.561115,18.084973
PTMEAS/CART,187.594127,119.506363,18.118131,0.105505,0.994355,-0.011225
GOTO/179.627210,119.561120,18.125360
PTMEAS/CART,179.380842,111.585703,18.108385,-0.997356,-0.066000,0.030421
GOTO/178.811299,103.914535,18.129219
PTMEAS/CART,186.901281,104.501719,18.099412,0.000060,-0.999967,0.008107
GOTO/186.889681,100.158940,13.109413
PTMEAS/CART,186.840206,104.436791,8.096278,0.036683,-0.999302,0.007005
GOTO/178.786261,103.913374,8.129251
PTMEAS/CART,179.086369,111.983644,8.111618,-0.999527,0.007271,0.029892
GOTO/178.786261,120.095227,8.127372
PTMEAS/CART,186.840403,119.438795,8.115216,0.036141,0.999304,-0.009187
GOTO/194.968063,120.095222,8.086857
PTMEAS/CART,194.121068,111.996191,8.105325,0.999511,0.008710,-0.030021
GOTO/197.452602,112.006550,27.508563
GOTO/186.925803,112.006553,27.534919
ENDMES
F(Ebene_Zylinder_oben)=FEAT/PLANE,CART,187.01565,111.98388,20.38419, $
0.02907,0.00765,0.99955
MEAS/PLANE,F(Ebene_Zylinder_oben),5
PTMEAS/CART,186.940645,111.990998,20.402145,0.029072,0.007652,0.999548
PTMEAS/CART,181.510076,111.982866,20.540164,0.029072,0.007652,0.999548
PTMEAS/CART,187.277336,106.288846,20.416298,0.029072,0.007652,0.999548
PTMEAS/CART,193.161124,112.494453,20.197637,0.029072,0.007652,0.999548
PTMEAS/CART,186.189047,117.162255,20.364681,0.029072,0.007652,0.999548
ENDMES
GOTO/209.074349,31.622073,21.161975
F(Kugel)=FEAT/SPHERE,OUTER,CART,209.09502,31.52591,6.99933,20.00050
MEAS/SPHERE,F(Kugel),6
PTMEAS/CART,208.996190,31.609248,16.999170,-0.009901,0.008300,0.999917
PTMEAS/CART,209.197218,31.612964,16.998238,0.010212,0.008722,0.999910
GOTO/205.390094,27.829638,20.065482
GOTO/199.908219,22.402781,12.500127
PTMEAS/CART,201.993834,24.485704,7.076106,-0.710154,-0.704003,0.007835
GOTO/203.659917,18.568515,7.120295
GOTO/214.416539,18.522582,7.123103
PTMEAS/CART,216.140745,24.429069,7.071856,0.704552,-0.709613,0.007402
GOTO/222.049454,26.090730,7.057016
GOTO/222.095079,36.846506,6.966166
PTMEAS/CART,216.193094,38.569449,6.941835,0.709808,0.704373,-0.005693
GOTO/214.519523,44.480883,6.897571
GOTO/203.768734,44.522735,6.903996
PTMEAS/CART,202.046531,38.620242,6.957352,-0.704860,0.709335,-0.004009
ENDMES
GOTO/199.750333,40.772435,35.483215
GOTO/250.288669,19.549087,24.865485
F(Klotz_S1)=FEAT/PLANE,CART,250.37639,13.92504,15.46338,-0.71525,0.69866, $
0.01701
MEAS/PLANE,F(Klotz_S1),4
PTMEAS/CART,257.614694,21.167991,22.349683,-0.715250,0.698661,0.017010
PTMEAS/CART,257.345452,21.203692,9.525564,-0.715250,0.698661,0.017010
PTMEAS/CART,243.305694,6.833268,9.454597,-0.715250,0.698661,0.017010
PTMEAS/CART,243.239722,6.495215,20.523676,-0.715250,0.698661,0.017010
ENDMES
GOTO/242.480608,9.200625,28.748670
F(Klotz_oben)=FEAT/PLANE,CART,259.83356,3.48937,24.72361,0.01076,0.00252, $
0.99994
MEAS/PLANE,F(Klotz_oben),4
PTMEAS/CART,244.781467,2.788786,24.942755,0.010763,0.002517,0.999939
PTMEAS/CART,258.731388,17.556095,24.645109,0.010763,0.002517,0.999939
PTMEAS/CART,275.678778,4.904709,24.599247,0.010763,0.002517,0.999939
PTMEAS/CART,260.142603,-11.292106,24.707343,0.010763,0.002517,0.999939
ENDMES
F(Klotz_S2)=FEAT/PLANE,CART,269.57298,-5.40190,15.58480,0.71879,-0.69505, $
-0.01572
MEAS/PLANE,F(Klotz_S2),4
GOTO/266.493395,-16.030496,27.752102
PTMEAS/CART,262.803559,-12.525535,20.955715,0.718790,-0.695050,-0.015720
PTMEAS/CART,263.285342,-11.779304,10.138102,0.718790,-0.695050,-0.015720
PTMEAS/CART,275.343743,0.666914,11.028319,0.718790,-0.695050,-0.015720
PTMEAS/CART,276.859292,2.030321,20.217064,0.718790,-0.695050,-0.015720
ENDMES
GOTO/282.458465,2.692242,20.248952
F(Klotz_S4)=FEAT/PLANE,CART,268.40711,14.37709,15.94542,0.70111,0.71286, $
-0.01660
MEAS/PLANE,F(Klotz_S4),4
PTMEAS/CART,275.514607,7.494673,20.214642,0.701107,0.712863,-0.016604
PTMEAS/CART,275.297198,7.469748,10.688005,0.701107,0.712863,-0.016604
PTMEAS/CART,261.283851,21.264974,10.589306,0.701107,0.712863,-0.016604
PTMEAS/CART,261.532771,21.278963,22.289707,0.701107,0.712863,-0.016604
ENDMES
GOTO/264.087402,22.005387,42.360640
GOTO/239.994501,-1.670749,42.217955
F(Klotz_S3)=FEAT/PLANE,CART,251.35148,-7.01578,15.90694,-0.70268,-0.71127, $
0.01823
MEAS/PLANE,F(Klotz_S3),4
PTMEAS/CART,244.511029,-0.070291,23.364055,-0.702685,-0.711268,0.018228
PTMEAS/CART,244.818501,-0.722108,9.501326,-0.702685,-0.711268,0.018228
PTMEAS/CART,257.906253,-13.657756,9.589445,-0.702685,-0.711268,0.018228
PTMEAS/CART,258.170124,-13.612971,21.172914,-0.702685,-0.711268,0.018228
ENDMES
GOTO/254.680693,-14.199537,132.610812
GOTO/301.437737,91.555234,132.814857


$$ Verarbeitungsfunktionen
$$ -----------------------

F(Zyl_Pt_u)=FEAT/POINT,CART,186.30400,111.88000,0.09100,0.00300,0.00000, $
1.00000
CONST/POINT,F(Zyl_Pt_u),INTOF,FA(Zylinder),FA(Ebene_unten)
F(Zyl_Pt_o)=FEAT/POINT,CART,186.91200,112.05300,20.34400,0.02999,0.00900, $
0.99951
CONST/POINT,F(Zyl_Pt_o),INTOF,FA(Zylinder),FA(Ebene_Zylinder_oben)

F(Klotz_L1)=FEAT/LINE,UNBND,CART,250.22615,13.53471,24.79038,0.69863, $
0.71542,-0.00944,0.00000,0.00000,0.00000
CONST/LINE,F(Klotz_L1),INTOF,FA(Klotz_S1),FA(Klotz_oben)
F(Klotz_L2)=FEAT/LINE,UNBND,CART,269.57342,-5.60242,24.63388,-0.69498, $
-0.71897,0.00941,0.00000,0.00000,0.00000
CONST/LINE,F(Klotz_L2),INTOF,FA(Klotz_S2),FA(Klotz_oben)
F(Klotz_L3)=FEAT/LINE,UNBND,CART,251.00608,-6.43699,24.83582,-0.71115, $
0.70302,0.00575,0.00000,0.00000,0.00000
CONST/LINE,F(Klotz_L3),INTOF,FA(Klotz_S3),FA(Klotz_oben)
F(Klotz_L4)=FEAT/LINE,UNBND,CART,269.06683,13.92706,24.58670,0.71306, $
-0.70108,-0.00578,0.00000,0.00000,0.00000
CONST/LINE,F(Klotz_L4),INTOF,FA(Klotz_S4),FA(Klotz_oben)

F(Klo_Pt_1)=FEAT/POINT,CART,-124.57100,406.03100,55.31800,-0.02000, $
-0.00300,0.99980
CONST/POINT,F(Klo_Pt_1),INTOF,FA(Klotz_L3),FA(Klotz_L2)
F(Klo_Pt_2)=FEAT/POINT,CART,-143.52000,386.49000,54.89600,-0.02000, $
-0.00300,0.99980
CONST/POINT,F(Klo_Pt_2),INTOF,FA(Klotz_L2),FA(Klotz_L4)
F(Klo_Pt_3)=FEAT/POINT,CART,-124.19800,367.42700,55.22500,-0.02000, $
-0.00300,0.99980
CONST/POINT,F(Klo_Pt_3),INTOF,FA(Klotz_L4),FA(Klotz_L1)
F(Klo_Pt_4)=FEAT/POINT,CART,-105.20300,386.81700,55.64800,0.02000,0.00300, $
-0.99980
CONST/POINT,F(Klo_Pt_4),INTOF,FA(Klotz_L1),FA(Klotz_L3)
F(Klo_Pt_1u)=FEAT/POINT,CART,-124.29000,406.03300,30.50000,0.00000,0.00000, $
0.00000
CONST/POINT,F(Klo_Pt_1u),PROJPT,FA(Klo_Pt_1),FA(Ebene_unten)
F(Klo_Pt_2u)=FEAT/POINT,CART,-143.24100,386.49200,30.28300,0.00000,0.00000, $
0.00000
CONST/POINT,F(Klo_Pt_2u),PROJPT,FA(Klo_Pt_2),FA(Ebene_unten)
F(Klo_Pt_3u)=FEAT/POINT,CART,-123.91700,367.42900,30.50100,0.00000,0.00000, $
0.00000
CONST/POINT,F(Klo_Pt_3u),PROJPT,FA(Klo_Pt_3),FA(Ebene_unten)
F(Klo_Pl_4u)=FEAT/POINT,CART,-104.92000,386.81900,30.71800,0.00000,0.00000, $
0.00000
CONST/POINT,F(Klo_Pl_4u),PROJPT,FA(Klo_Pt_4),FA(Ebene_unten)
F(Klo_Pt_o)=FEAT/POINT,CART,-124.38400,386.72900,55.27200,0.00000,0.00000, $
0.00000
CONST/POINT,F(Klo_Pt_o),MIDPT,FA(Klo_Pt_1),FA(Klo_Pt_3)
F(Klo_Pt_u)=FEAT/POINT,CART,-124.10300,386.73100,30.50000,0.00000,0.00000, $
0.00000
CONST/POINT,F(Klo_Pt_u),PROJPT,FA(Klo_Pt_o),FA(Ebene_unten)


$$ Merkmale bestimmen
$$ ------------------

T(Zylinder_Hoehe)=TOL/DISTB,NOMINL,20.000000,-0.500000,0.500000,PT2PT
OUTPUT/F(Ebene_Zylinder_oben),F(Ebene_unten),T(Zylinder_Hoehe)
OUTPUT/FA(Ebene_Zylinder_oben),FA(Ebene_unten),TA(Zylinder_Hoehe)
T(Zylinder_Durchmesser)=TOL/DIAM,-0.100000,0.100000
OUTPUT/F(Zylinder),T(Zylinder_Durchmesser)
OUTPUT/FA(Zylinder),TA(Zylinder_Durchmesser)
T(Kugel_Radius)=TOL/RAD,-0.100000,0.100000
OUTPUT/F(Kugel),T(Kugel_Radius)
OUTPUT/FA(Kugel),TA(Kugel_Radius)
T(Klotz_Hoehe)=TOL/DISTB,NOMINL,25.000000,-0.500000,0.500000,PT2PT
OUTPUT/F(Klotz_oben),F(Ebene_unten),T(Klotz_Hoehe)
OUTPUT/FA(Klotz_oben),FA(Ebene_unten),TA(Klotz_Hoehe)
T(Klotz_Breite)=TOL/DISTB,NOMINL,27.000000,-0.500000,0.500000,PT2PT
OUTPUT/F(Klotz_L1),F(Klo_Pt_1),T(Klotz_Breite)
OUTPUT/FA(Klotz_L1),FA(Klo_Pt_1),TA(Klotz_Breite)
T(Klotz_Tiefe)=TOL/DISTB,NOMINL,27.000000,-0.500000,0.500000,PT2PT
OUTPUT/F(Klotz_L3),F(Klo_Pt_2),T(Klotz_Tiefe)
OUTPUT/FA(Klotz_L3),FA(Klo_Pt_2),TA(Klotz_Tiefe)


$$ ZylinderVolumen berechnen
$$ -------------------------
DECL/REAL, zylVolumen, zylHoehe, zylRadius
DECL/REAL, p1x, p1y, p1z, p2x, p2y, p2z, $
p3x, p3y, p3z, p4x, p4y, p4z, vx, vy, vz
DECL/VECTOR, v

p1x = OBTAIN/ FA(Zyl_Pt_u), 3
p1y = OBTAIN/ FA(Zyl_Pt_u), 4
p1z = OBTAIN/ FA(Zyl_Pt_u), 5

p2x = OBTAIN/ FA(Zyl_Pt_o), 3
p2y = OBTAIN/ FA(Zyl_Pt_o), 4
p2z = OBTAIN/ FA(Zyl_Pt_o), 5

vx = ASSIGN/ p1x - p2x
vy = ASSIGN/ p1y - p2y
vz = ASSIGN/ p1z - p2z

v = ASSIGN/ VCART(vx, vy, vz)

zylHoehe = ASSIGN/ VMAG(v)
zylRadius = OBTAIN/ FA(Zylinder), 10
zylRadius = ASSIGN/ zylRadius / 2
zylVolumen = ASSIGN/ zylHoehe * zylRadius * zylRadius * 3.141592654

TEXT/OPER,'Berechnung des Zylindervolumens :'
TEXT/OPER,'---------------------------------'
TEXT/OPER,'Durchmesser = ' + STR(zylRadius * 2,10:3)
TEXT/OPER,'Höhe = ' + STR(zylHoehe,10:3)
TEXT/OPER,' '
TEXT/OPER,'Volumen = ' + STR(zylVolumen,10:3) + ' mm3'
TEXT/OPER,' ============='
TEXT/OPER,' '

$$ KugelVolumen berechnen
$$ ----------------------
DECL/REAL, kugelVolumen, kugelRadius
kugelRadius = OBTAIN/ FA(Kugel), 7
kugelRadius = ASSIGN/ kugelRadius / 2
kugelVolumen = ASSIGN/ 4 / 3 * kugelRadius * kugelRadius $
* kugelRadius * 3.141592654
TEXT/OPER,'Berechnung des Kugelvolumens :'
TEXT/OPER,'------------------------------'
TEXT/OPER,'Radius = ' + STR(kugelRadius,10:3)
TEXT/OPER,' '
TEXT/OPER,'Volumen = ' + STR(kugelVolumen,10:3) + ' mm3'
TEXT/OPER,' ============='
TEXT/OPER,' '

$$ KlotzVolumen berechnen
$$ ----------------------
DECL/REAL, klotzVolumen, klotzHoehe, klotzBreite, klotzTiefe

p1x = OBTAIN/ FA(Klo_Pt_1), 3
p1y = OBTAIN/ FA(Klo_Pt_1), 4
p1z = OBTAIN/ FA(Klo_Pt_1), 5

p2x = OBTAIN/ FA(Klo_Pt_2), 3
p2y = OBTAIN/ FA(Klo_Pt_2), 4
p2z = OBTAIN/ FA(Klo_Pt_2), 5

p3x = OBTAIN/ FA(Klo_Pt_3), 3
p3y = OBTAIN/ FA(Klo_Pt_3), 4
p3z = OBTAIN/ FA(Klo_Pt_3), 5

p4x = OBTAIN/ FA(Klo_Pt_4), 3
p4y = OBTAIN/ FA(Klo_Pt_4), 4
p4z = OBTAIN/ FA(Klo_Pt_4), 5

klotzBreite = ASSIGN/ (VMAG(VCART(p1x - p2x, p1y - p2y, p1z - p2z)) + $
VMAG(VCART(p4x - p3x, p4y - p3y, p4z - p3z))) / 2

klotzTiefe = ASSIGN/ (VMAG(VCART(p1x - p4x, p1y - p4y, p1z - p4z)) + $
VMAG(VCART(p2x - p3x, p2y - p3y, p2z - p3z))) / 2

p1x = OBTAIN/ FA(Klo_Pt_o), 3
p1y = OBTAIN/ FA(Klo_Pt_o), 4
p1z = OBTAIN/ FA(Klo_Pt_o), 5

p2x = OBTAIN/ FA(Klo_Pt_u), 3
p2y = OBTAIN/ FA(Klo_Pt_u), 4
p2z = OBTAIN/ FA(Klo_Pt_u), 5

klotzHoehe = ASSIGN/ VMAG(VCART(p1x - p2x, p1y - p2y, p1z - p2z))

klotzVolumen = ASSIGN/ klotzHoehe * klotzBreite * klotzTiefe


TEXT/OPER,'Berechnung des Klotzvolumens :'
TEXT/OPER,'------------------------------'
TEXT/OPER,'Hoehe = ' + STR(klotzHoehe,10:3)
TEXT/OPER,'Breite = ' + STR(klotzBreite,10:3)
TEXT/OPER,'Tiefe = ' + STR(klotzTiefe,10:3)
TEXT/OPER,' '
TEXT/OPER,'Volumen = ' + STR(klotzVolumen,10:3) + ' mm3'
TEXT/OPER,' ============='
TEXT/OPER,' '

JUMPTO/(Auswahldialog)






$$ *******************************************************************
$$ Ende
$$ *******************************************************************
(Ende)
TEXT/OPER,' '
TEXT/OPER,' '
TEXT/OPER,' _=======_ '
TEXT/OPER,' = = '
TEXT/OPER,' I O O I '
TEXT/OPER,' I I '
TEXT/OPER,' I I___I I '
TEXT/OPER,' =_ _= '
TEXT/OPER,' ======= '
TEXT/OPER,' ------------------------------------------------------ '
TEXT/OPER,' Vielen Dank für Ihr Interesse an Metrosoft QUARTIS'
TEXT/OPER,' ------------------------------------------------------ '



ENDFIL

RationalDMIS 7.1 DMIS Beispiel_java_02


举报

相关推荐

0 条评论