!*****************************************************************
! PIN_0209A_PRE / 2008-03-07 / Vertex Systems UK                  *
!                                                                *
!*****************************************************************

#INPUT#

It = new_iterator("MACROBJ",0,"ROLED","THIS")
This = next_item(It)

Hdr$ = getprompt("ADD_PNCH_PROFILES")
Prompt1$ = getprompt("SEL_PCE_TO_PUNCH")
Prompt2$ = getprompt("SEL_PUNCH_POS") 

P = 1
X = 2
Y = 3
Z = 4

vec_to(P) 0,0,0
vec_to(X) 1,0,0
vec_to(Y) 0,1,0
vec_to(Z) 0,0,1

M = new_macro("","",P,X,Y,Z,1,1,0)
set_macro_param(M) "TASK","PICK_PIECES"
set_macro_param(M) "HEADER",Hdr$
set_macro_param(M) "PROMPT",Prompt1$
set_macro_param(M) "ROLE","PCE"

M = new_macro("","",P,X,Y,Z,1,1,0)
set_macro_param(M) "TASK","MARKINGS"
set_macro_param(M) "INPUT","0"

M= new_macro("","",P,X,Y,Z,1,1,0)
set_macro_param(M) "TASK","PICK_POINTS"
set_macro_param(M) "HEADER",Hdr$
set_macro_param(M) "PROMPT",Prompt2$
set_macro_param(M) "ROLE","PNT"

#INPUT#


#BUILD#

debug ./build.dbg

It = new_iterator("MACROBJ",0,"ROLED","THIS")
This = next_item(It)
if !This then exit

P = 1
X = 2
Y = 3
Z = 4
PH= 5

File$= get_obj_param(This,"FILE")
CustomType$= get_obj_param(This,"TYPE")

It = new_iterator("PROFOBJ",0,"ROLED","PCE")
loop
  Pce = next_item(It)
  exitif (!Pce)

  Ip = new_iterator("",0,"ROLED","PNT")
  loop
    Pnt= next_item(Ip)
    exitif !Pnt

    get_origin_pos(Pnt) P,X,Y,Z
    point_to_piece(PH) Pce,P

    Jnt = new_djoint("","",PH,X,Y,Z,0)
    exitif (!Jnt)

    set_djmember(Jnt) Pce,"PCE"

    Punch=new_feature("MODSUB",CustomType$,"0",File$,"1+2",File$)
    set_djmember(Jnt) Punch,"P",1
    add_sobj(Pce) Punch
    set_origin_pos(Punch) P,X,Y,Z

    Punch=new_feature("MODSUB",CustomType$,"0",File$,"1+2",File$)
    set_djmember(Jnt) Punch,"P2",1
    add_sobj(Pce) Punch
    set_origin_pos(Punch) P,X,Y,Z

    Box= new_macro("MACRO_SYS","CYLINDER",PH,X,Y,Z,1,1,0,0)
    set_djmember(Jnt) Box,"B",1,Pce
    set_same_tlink(Box) Pce
    set_same_visib(Box) Pce

    set RETURN "1"
  endloop
endloop

#BUILD#
