C : CREATED BY SHREEPAD GOKHALE  DT: 09/25/02
C : VERSION 1.2
C : PROGRAM IS TESTED FOR C3P 9.2 
C :
C : ----------------------------------------------------------- 
C : PROGRAM INFO ..
C : -----------------------------------------------------------
C : 
C : THIS PROGRAM SHOULD BE RUN IN MASTER MODELLER. THIS PROGRAM
C : WILL CREATES MUTIPLE SECTION FOR SELECTED PART/ASSEMBLIES
C : EACH SECTION WILL BE A NEW PART ALL THE SECTIONS WOULD BE
C : PARALLEL TO EACH OTHER AND THEY ARE EQUALLY SPACED.
C :
C : ------------------------------------------------------------
C : IF YOU HAVE ANY QUESTION/COMMENTS BUG REPORT PLEASE CONTACT 
C : ME AT 
C :
C :        shreegokhale@hotmail.com
C :
C : ------------------------------------------------------------
C : UPDATES......
C : ------------------------------------------------------------ 
C : 12/09/02
C : NAMES FOR SECTION CHANGED TO REFLECT INCREMENT DISTANCE
C : e.g. FROM X_1,X_2  TO X_10,X_20 etc.
C :
C : ------------------------------------------------------------
C : Variables Defination
C : ------------------------------------------------------------
K : #ECHO none
K : $ return
K : # count=0
K : # sec_org = "wqwq12345gdadg"
K : # sec_name = "dfdssdffdsg"
K : # sec_dist= 1000000
K : # sec_num = 1222
K : # sec_offset = 0
C :
C :
K : cl
K :
K : #OUTPUT "*******************************************************"
K : #OUTPUT "*  ! ! ! WARNING ! ! !  WARNING  ! ! ! WARNING ! ! !  *"
K : #OUTPUT "*   All named parts and assemblies will be put away   *"
K : #OUTPUT "*  ! !   NO PARTS SHOULD BE ON WORKBENCH       ! ! !  *"
K : #OUTPUT "*******************************************************"
K : #INPUT YES_NO " Do you want to continue?" CHOICE NO
K : #IF (CHOICE EQ 0) THEN GOTO the_end
K : /ta pm
K : !MA
K : PU
K : ALL
C :
C :
K : # input " Enter Number of sections to be cut:" sec_num
K : # input " Enter Distance between two sections :" sec_dist
K : # input " Enter Name of the first section: " sec_org
C :
C : ----------------------------------------------------------------
C : Create section-assembly & prompt user for adding part/assemblies
C : ----------------------------------------------------------------
C :
K : cl
K :
K : #output"********************************************************"
K : #output"                                                        "
K : #output" Please select Parts &/or Assemblies fo cutting sections "
K : #output"                                                        "
K : #output"********************************************************"  
C :
C :
K : !AM
K : A
K : AA
K :  N section-assembly
K : OKAY
K : g b ;
? :K :  ET 8;
K : OKAY
K : cl
K : #output"********************************************************"
K : #output" Now you will be prompted to create a co-ord system     "
K : #output" Align XY pane of co-ord system to section plane        "
K : #output" Section would be cut in + ve direction of Z axis       "
K : #output"********************************************************" 
K : #output" Pick any part for creating reference co-ord system    "
K : $ /mm cr ref cs
K : OWN
K :  SE 1;
K : OKAY
? :
K : Y
C :
C :
C :
K : # sec_name=sec_org
C :
C :
K : cl
K : # output"********************************************************"
K : # output"                                                        "
K : # output"      Completed Section number --> 1                    "
K : # output"                                                        "
K : # output"********************************************************"
C :
C : ------------------------------------------------------------------
C : Loop for cutting section
C : ------------------------------------------------------------------
C :
K : cl
K : #loop:
C :
C :
K : $ mpos :; /am co cs
K : Q
K :  SE 1;
K : OKAY
K : OFS
K : LAB
K : section-assembly
K : CS
K : Hi1
K : cs2
K : XY
K : sec_offset
K :  N sec_name
K : OKAY
K : # count=count+1
K : # sec_offset=sec_offset+sec_dist
K : # sec_name=sec_org+"_"+sec_offset
K : cl
K : # output"********************************************************"
K : # output"                                                        "
K : # output"      Completed Section number --> "count
K : # output"                                                        "
K : # output"********************************************************"
K : # if (count LT sec_num) then goto loop
C :
C : -------------------------------------------------------------------
C :  Delete section-assembly
C : -------------------------------------------------------------------
K :/ma mb
K : VIE
K : AS
K : FE
K : C
K :  FE
K :  QG I section-assembly*
K : OKAY
K :  IS 2;
K :  D
K : OKAY
K : CANC
C :
C : -------------------------------------------------------------------
C : Reset manage bin filter option
C : -------------------------------------------------------------------
K :/ma mb
K :  FE
K :  C
K : OKAY
K : CANC
C :
C :
K : # the_end:
C :
K : $ return
K : $ mpos :; /F PR E
E : **** END OF SESSION ****