Standard/Ideal PDMS Person?

--
var !HERVARVI refe
!NU = 0
var !WONAME |$_PLACAR_PLNAME|
handle any
   var !WONAME |notset|
endhandle
if ( |$!WONAME| eq |notset| ) then
   var !WONAME |unset|
   var !PLKOEAST ( 0.0 )
   var !PLKONORD ( 0.0 )
   var !PLKOUP  ( 0.0 )
else
   var !WONAME |$_PLACAR_PLNAME|
   var !PLKOEAST ( $_PLACAR_PLKOEAST )
   var !PLKONORD ( $_PLACAR_PLKONORD )
   var !PLKOUP  ( $_PLACAR_PLKOUP )
endif
kill _PLACAR
handle any
endhandle
if (|$!WONAME| eq |unset| or |$!WONAME| eq || ) then
   var !WONAME |PLANTCON_CAR|
   LABEL /TESTIGEN
   /$!WONAME
   handle any
      golabel /OKCREATE
   endhandle
   !NU = $!NU + 1
   var !WONAME |PLANTCON_CAR| + STRING($!NU)
   GOLABEL /TESTIGEN
endif
label /OKCREATE
-- ready for creting car
NEW EQUIPMENT /$!WONAME
POS E $!PLKOEAST N $!PLKONORD U $!PLKOUP wrt /*
Desc 'car'
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW SUBEQUIPMENT /$!WONAME_TIRE
POS E 0 N 1728 D 5
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW CTORUS
POS W 750.5 N 1817 U 350
ORI Y is N and Z is W
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
NEW CTORUS
POS W 750.5 N 1817 U 350
ORI Y is S and Z is W
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
NEW RTORUS
POS W 750.5 N 1817 U 350
ORI Y is S and Z is W
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW RTORUS
POS W 750.5 N 1817 U 350
ORI Y is N and Z is W
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW RTORUS
POS E 750.5 N 1817 U 350
ORI Y is S and Z is E
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW CTORUS
POS E 750.5 N 1817 U 350
ORI Y is S and Z is E
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
NEW RTORUS
POS E 750.5 N 1817 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW CTORUS
POS E 750.5 N 1817 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
NEW RTORUS
POS W 749.5 S 886 U 350
ORI Y is S and Z is E
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW CTORUS
POS W 749.5 S 886 U 350
ORI Y is S and Z is E
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
NEW CTORUS
POS W 749.5 S 886 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
NEW RTORUS
POS W 749.5 S 886 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW RTORUS
POS E 750.5 S 886 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW CTORUS
POS E 750.5 S 886 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
NEW RTORUS
POS E 750.5 S 886 U 350
ORI Y is S and Z is E
LEVE 0 6
OBST 1
RINS 300
ROUT 345
HEIG 110
ANGL 180

END
NEW CTORUS
POS E 750.5 S 886 U 350
ORI Y is S and Z is E
LEVE 0 6
OBST 1
RINS 160
ROUT 345
ANGL 180

END
END
NEW SUBEQUIPMENT /$!WONAME_PANELS
POS E 0 N 2550 D 55
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW PYRAMID
POS E 0 S 212.5 U 465
LEVE 0 6
OBST 1
XBOT 1589
YBOT 4466
XTOP 1740
YTOP 4675
HEIG 250
YOFF -100

NEW NRTORUS
POS E 17.444559 S 720.729125 U 1610.107055
ORI Y is E 14.6939 N 4.95699 D and Z is S 3.13463 E 66.5953 D
LEVE 0 6
OBST 1
RINS 3400
ROUT 4000
HEIG 1000
ANGL 32

END
NEW NBOX
POS E 0 S 2387.5 U 82.5
ORI Y is W and Z is U
XLEN 20
YLEN 560
ZLEN 90

END
NEW NRTORUS
POS W 17.444559 N 944.757812 U 844.836242
ORI Y is W 15.4366 S 1.30106 D and Z is N 7.59832 W 80.545 D
LEVE 0 6
OBST 1
RINS 3400
ROUT 4000
HEIG 1000
ANGL 32

END
NEW NCYLINDER
POS W 750 S 1495.5 D 40
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
NEW NCYLINDER
POS E 750 N 1207.5 D 50
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
NEW NCYLINDER
POS W 750 N 1207.5 D 40
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
NEW NCYLINDER
POS E 750 S 1495.5 D 50
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
END
NEW BOX
POS E 0 S 262.5 U 702
ORI Y is N and Z is D
LEVE 2 10
XLEN 1740
YLEN 4600
ZLEN 224

NEW NRTORUS
POS W 0.006619 S 885.000183 U 2950.998046
ORI Y is E 3.97269 S 19.6173 D and Z is S 11 U
LEVE 0 6
OBST 1
RINS 3400
ROUT 4200
HEIG 1500
ANGL 40

END
NEW NBOX
POS E 0 S 2232 U 74
LEVE 0 6
OBST 1
XLEN 950
YLEN 200
ZLEN 15

END
NEW NBOX
POS E 0 S 2232 D 26
LEVE 0 6
OBST 1
XLEN 1030
YLEN 200
ZLEN 15

END
NEW NBOX
POS E 0 S 2232 D 1
LEVE 0 6
OBST 1
XLEN 1010
YLEN 200
ZLEN 15

END
NEW NBOX
POS E 0 S 2232 U 24
LEVE 0 6
OBST 1
XLEN 990
YLEN 200
ZLEN 15

END
NEW NBOX
POS E 0 S 2232 U 49
LEVE 0 6
OBST 1
XLEN 970
YLEN 200
ZLEN 15

END
NEW NCYLINDER
POS W 750 S 1445.5 U 287
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
NEW NCYLINDER
POS E 750 S 1445.5 U 277
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
NEW NCYLINDER
POS E 750 N 1257.5 U 277
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
NEW NCYLINDER
POS W 750 N 1257.5 U 287
ORI Y is N and Z is E
DIAM 720
HEIG 300

END
NEW NRTORUS
POS W 17.477321 N 996.628784 U 779.510925
ORI Y is W 15.1703 S 3.10873 D and Z is N 1.00326 W 77.4886 D
LEVE 0 6
OBST 1
RINS 3400
ROUT 3700
HEIG 1000
ANGL 32

END
END
NEW PYRAMID
POS E 0 N 37.5 U 1164
LEVE 0 6
OBST 1
XBOT 1740
YBOT 4600
XTOP 1350
YTOP 4800
HEIG 700
YOFF 600

NEW NRTORUS
POS E 0 N 1110 D 3398
ORI Y is E 3.61639 N 19.6835 U and Z is N 9.99998 D
LEVE 0 6
OBST 1
RINS 3400
ROUT 4200
HEIG 1100
ANGL 40

END
NEW NRTORUS
POS W 0.001067 S 1078.210571 D 2542.793701
ORI Y is E 11.2125 N 16.669 U and Z is N 33 D
LEVE 0 6
OBST 1
RINS 3400
ROUT 4200
HEIG 1000
ANGL 40

END
NEW NRTORUS
POS W 0.001067 N 1354.999755 D 2236
ORI Y is E 13.43 S 14.9589 U and Z is N 41 U
LEVE 0 6
OBST 1
RINS 3400
ROUT 4200
HEIG 1000
ANGL 40

END
NEW NRTORUS
POS W 0.001067 N 794.999389 D 782.998779
ORI Y is E 19.773 S 3.06694 U and Z is N 81 U
LEVE 0 6
OBST 1
RINS 3400
ROUT 3700
HEIG 1000
ANGL 40

END
NEW NRTORUS
POS E 0.001067 S 1294.999389 D 682.998779
ORI Y is W 19.773 N 3.06694 U and Z is S 81 U
LEVE 0 6
OBST 1
RINS 3400
ROUT 4400
HEIG 1000
ANGL 40

END
NEW NRTORUS
POS W 0.001129 S 1285 D 3453
ORI Y is E 3.97281 S 19.6173 U and Z is N 11 U
LEVE 0 6
OBST 1
RINS 3400
ROUT 4200
HEIG 1500
ANGL 40

END
NEW NRTORUS
POS W 0 N 64.739868 D 1617.576049
ORI Y is N 4.15 D and Z is W
OBST 1
RINS 2000
ROUT 2500
HEIG 2000
ANGL 30

END
NEW NRTORUS
POS E 0 N 214.286788 D 1498.139526
ORI Y is N 44.85 U and Z is W
OBST 1
RINS 2000
ROUT 2500
HEIG 2000
ANGL 25

END
NEW NPYRAMID
POS E 0 N 10 D 105
LEVE 0 6
OBST 1
XBOT 1600
YBOT 2600
XTOP 1300
YTOP 1800
HEIG 800
YOFF 600

END
NEW NPYRAMID
POS E 0 S 920 U 125
ORI Y is N 20 D and Z is N 70 U
OBST 1
XBOT 1500
YBOT 500
XTOP 1300
YTOP 800
HEIG 550

END
NEW NPYRAMID
POS E 0 S 552.5 U 80
ORI Y is W and Z is U
LEVE 0 6
OBST 1
XBOT 900
YBOT 2000
XTOP 375
YTOP 2000
HEIG 420
XOFF 250

END
NEW NPYRAMID
POS E 0 N 180 U 80
ORI Y is W and Z is U
LEVE 0 6
OBST 1
XBOT 600
YBOT 2000
XTOP 480
YTOP 2000
HEIG 420
XOFF -85

END
NEW NPYRAMID
POS E 0 N 570 U 80
ORI Y is W and Z is U
LEVE 0 6
OBST 1
XBOT 350
YBOT 2000
YTOP 2000
HEIG 420
XOFF -330

END
NEW NRTORUS
POS W 618 N 235 U 270
ORI Y is U and Z is N
RINS 80
ROUT 120
HEIG 4500

END
NEW NRTORUS
POS E 618 N 235 U 270
ORI Y is U and Z is S
RINS 80
ROUT 120
HEIG 4500

END
END
NEW DISH
POS W 880 S 905.5 U 1110
ORI Y is D and Z is S 9.99999 W
LEVE 0 6
OBST 1
DIAM 200
HEIG 40
RADI 1

NEW NBOX
POS E 20.000486 N 89.999511 U 10.000004
ORI Y is U and Z is E
LEVE 0 6
OBST 1
XLEN 50
YLEN 40
ZLEN 300

END
NEW NBOX
POS E 20.000488 S 90.000488 U 10
ORI Y is U and Z is E
OBST 1
XLEN 50
YLEN 40
ZLEN 300

END
END
NEW DISH
POS E 860 S 905.5 U 1110
ORI Y is D and Z is S 9.99999 E
LEVE 0 6
OBST 1
DIAM 200
HEIG 40
RADI 1

NEW NBOX
POS W 20.000486 N 89.999511 U 10.000004
ORI Y is U and Z is W
LEVE 0 6
OBST 1
XLEN 50
YLEN 40
ZLEN 300

END
NEW NBOX
POS W 20.000488 S 90.000488 U 10
ORI Y is U and Z is W
OBST 1
XLEN 50
YLEN 40
ZLEN 300

END
END
NEW DISH
POS E 650 S 500 U 1510
LEVE 0 6
OBST 1
DIAM 20
HEIG 10
RADI 8

END
NEW CYLINDER
POS E 608.353881 S 307.879882 U 1665.425292
ORI Y is N 17.1423 E 47.7265 D and Z is N 12.2529 W 38.3808 U
LEVE 0 6
OBST 1
DIAM 4
HEIG 500

END
END
NEW SUBEQUIPMENT /$!WONAME_INNER
POS E 0 N 2550 D 55
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW CTORUS
POS E 400 S 900 U 1010
ORI Y is S 65 U and Z is S 25 D
RINS 200
ROUT 220
ANGL 180

END
NEW PYRAMID
POS E 400 S 899.999023 U 1010.000061
ORI Y is S 35 D and Z is N 55 D
XBOT 400
YBOT 10
XTOP 100
YTOP 10
HEIG 100

END
NEW CYLINDER
POS E 400 S 1309.575073 U 723.211914
ORI Y is N 55 D and Z is N 35 U
LEVE 0 6
OBST 1
DIAM 20
HEIG 1000

END
NEW PYRAMID
POS W 400 S 166 U 900
ORI Y is W and Z is U
LEVE 0 6
OBST 1
XBOT 150
YBOT 700
XTOP 80
YTOP 550
HEIG 500
XOFF 100

END
NEW PYRAMID
POS E 400 S 166 U 900
ORI Y is W and Z is U
LEVE 0 6
OBST 1
XBOT 150
YBOT 700
XTOP 80
YTOP 550
HEIG 500
XOFF 100

END
NEW CYLINDER
POS E 400 S 126 U 1200
ORI Y is N and Z is E
LEVE 0 6
OBST 1
DIAM 100
HEIG 300

END
NEW CYLINDER
POS W 400 S 126 U 1200
ORI Y is N and Z is E
LEVE 0 6
OBST 1
DIAM 100
HEIG 300

END
NEW CYLINDER
POS E 400 N 824 U 1200
ORI Y is N and Z is E
LEVE 0 6
OBST 1
DIAM 100
HEIG 300

END
NEW CYLINDER
POS W 400 N 824 U 1200
ORI Y is N and Z is E
LEVE 0 6
OBST 1
DIAM 100
HEIG 300

END
NEW PYRAMID
POS E 0 N 784 U 900
ORI Y is W and Z is U
LEVE 0 6
OBST 1
XBOT 150
YBOT 1500
XTOP 80
YTOP 1350
HEIG 500
XOFF 100

END
NEW PYRAMID
POS E 0 N 1034 U 840
ORI Y is W and Z is U
LEVE 0 6
OBST 1
XBOT 150
YBOT 1500
XTOP 400
YTOP 1450
HEIG 500
XOFF 100

END
NEW CTORUS
POS E 400 S 899.998901 U 1010.000244
ORI Y is N 65 D and Z is S 25 D
RINS 200
ROUT 220
ANGL 180

END
END
NEW SUBEQUIPMENT /$!WONAME_BACKLIGHT
POS E 0 N 2550 D 55
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW BOX
POS W 775 N 1989.5 U 700
LEVE 2 10
XLEN 200
YLEN 100
ZLEN 200

END
NEW BOX
POS E 775 N 1989.5 U 700
LEVE 2 10
XLEN 200
YLEN 100
ZLEN 200

END
END
NEW SUBEQUIPMENT /$!WONAME_AXES
POS E 0 N 1728 D 5
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW CYLINDER
POS E 0 S 886 U 350
ORI Y is N and Z is E
DIAM 100
HEIG 1500

END
NEW CYLINDER
POS E 0 N 1817 U 350
ORI Y is N and Z is E
DIAM 100
HEIG 1500

END
NEW CYLINDER
POS E 750 S 886 U 350
ORI Y is N and Z is W
LEVE 0 6
OBST 1
DIAM 380
HEIG 140

END
NEW CYLINDER
POS E 750 N 1817 U 350
ORI Y is N and Z is W
LEVE 0 6
OBST 1
DIAM 380
HEIG 140

END
NEW CYLINDER
POS W 750 N 1817 U 350
ORI Y is S and Z is E
LEVE 0 6
OBST 1
DIAM 380
HEIG 140

END
NEW CYLINDER
POS W 750 S 886 U 350
ORI Y is S and Z is W
LEVE 0 6
OBST 1
DIAM 380
HEIG 140

END
END
NEW SUBEQUIPMENT /$!WONAME_WHEELCAPS
POS E 0 N 1728 D 5
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW DISH
POS E 820 S 886 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
DIAM 350
HEIG 20

END
NEW CYLINDER
POS E 850 N 569.5 U 852
ORI Y is W and Z is S
LEVE 0 6
OBST 1
DIAM 20
HEIG 120

END
NEW CYLINDER
POS W 850 N 569.5 U 852
ORI Y is E and Z is S
LEVE 0 6
OBST 1
DIAM 20
HEIG 120

END
NEW CYLINDER
POS E 850 N 1519.5 U 852
ORI Y is W and Z is S
LEVE 0 6
OBST 1
DIAM 20
HEIG 120

END
NEW CYLINDER
POS W 850 N 1519.5 U 852
ORI Y is E and Z is S
LEVE 0 6
OBST 1
DIAM 20
HEIG 120

END
NEW DISH
POS E 820 N 1817 U 350
ORI Y is N and Z is E
LEVE 0 6
OBST 1
DIAM 350
HEIG 20

END
NEW DISH
POS W 820 N 1817 U 350
ORI Y is N and Z is W
LEVE 0 6
OBST 1
DIAM 350
HEIG 20

END
NEW DISH
POS W 820 S 886 U 350
ORI Y is N and Z is W
LEVE 0 6
OBST 1
DIAM 350
HEIG 20

END
END
NEW SUBEQUIPMENT /$!WONAME_FRONTLIGHT
POS E 0 N 2150 D 55
BUIL false
DSCO unset
PTSP unset
INSC unset

NEW PYRAMID
POS E 703.000305 S 2025.5 U 660
ORI Y is N 5 W and Z is U
LEVE 0 6
OBST 1
XBOT 400
YBOT 250
XTOP 300
YTOP 250
HEIG 130
XOFF 40
YOFF 10

NEW NRTORUS
POS W 98.713737 N 572.897521 D 127.798088
ORI Y is E 7.81882 S 1.65738 U and Z is N 0.618688 E 77.0005 U
RINS 700
ROUT 900
HEIG 200
ANGL 36

END
END
NEW PYRAMID
POS W 703.000305 S 2025.5 U 660
ORI Y is N 5 E and Z is U
LEVE 0 6
OBST 1
XBOT 400
YBOT 250
XTOP 300
YTOP 250
HEIG 130
XOFF -40
YOFF 10

NEW NRTORUS
POS E 98.713737 N 572.897521 D 127.798088
ORI Y is W 7.81882 S 1.65737 U and Z is S 0.618739 E 77.0005 D
RINS 700
ROUT 900
HEIG 200
ANGL 36

END
END
NEW PYRAMID
POS W 703.000305 S 2025.5 U 660
ORI Y is N 5 E and Z is U
LEVE 0 6
OBST 1
XBOT 400
YBOT 250
XTOP 300
YTOP 250
HEIG 130
XOFF -40
YOFF 10

NEW NRTORUS
POS E 98.713737 N 572.897521 D 127.798088
ORI Y is W 7.81882 S 1.65737 U and Z is S 0.618739 E 77.0005 D
RINS 700
ROUT 900
HEIG 200
ANGL 36

END
END
NEW PYRAMID
POS E 530 S 2012.5 U 510
ORI Y is N 5 W and Z is U
LEVE 0 6
OBST 1
XBOT 200
YBOT 225
XTOP 200
YTOP 270
HEIG 90
YOFF -20

END
NEW PYRAMID
POS W 530 S 2013.5 U 510
ORI Y is N 5 E and Z is U
LEVE 0 6
OBST 1
XBOT 200
YBOT 225
XTOP 200
YTOP 270
HEIG 90
YOFF -20

END
END

END
END
END
$!HERVARVI
$.