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.PROGRAM WILL ASK USER TO
C : INPUT POINT THR' WHICH SECTION NEEDS TO BE CUT. ALL THE
C : SECTIONS WOULD BE PARALLEL TO EACH OTHER.SECTIONS WOULD BE 
C : NAMED AS e.g. SECTION_1,SECTION_2,SECTION_3 etc.
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 : -------------------------------------------------------- 
C : 
C :
C : ---------------------------------------------------------
C : Variables Defination
C : ---------------------------------------------------------
K : #ECHO none
K : $ return
K : # count=0
K : # sec_org = "wqwq12345gdadg"
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 PART 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 :
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 : OKAY
C :
C :
K : # sec_name=sec_org
C :
C :
K : cl
K : # output"********************************************************"
K : # output" Pick a point thr' which you would like a section. After"
K : # output" selecting point please type @ to continue the program. "
K : # output"                                                        "
K : # output"********************************************************"
C :
C : ------------------------------------------------------------------
C : Loop for cutting section
C : ------------------------------------------------------------------
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 : MEA
K : PLA
K : LAB
K : section-assembly
K : CS
K : Hi1
K : cs2
K : XY
K : POI
? :
K :
K :
K :  N sec_name
K : OKAY
K : # count=count+1
K : # sec_name=sec_org+"_"+count
K : cl
K : # output"********************************************************"
K : # output"      Press  @  to continue the program                 " 
K : # output"      Completed Section number --> "count
K : # output"                                                        "
K : # output"********************************************************"
K : #INPUT YES_NO " Do you want to continue?" CHOICE YES
K : #IF (CHOICE EQ 1) 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 ****