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

#INPUT#

L = get($LANGUAGE)

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

Hdr$ = getprompt("ADD_SRVH")
Prompt1$ = getprompt("SEL_PCE_OK")
Prompt2$ = getprompt("SEL_HPSTN")

if L==0 then
  then Hdr$ = "Suorakaiderein lisys uumaan"
  Prompt1$ = "Valitse osat valmis"
  Prompt2$ = "Osoita rein paikka"
endif

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

# include connection.def

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

HOLE_SIZE$= get_obj_param(This,"PRE~SIZE")

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

Depth= mm_to_dwg(5)
Depth$= Depth

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

  get_origin_pos(Pce) P,X,Y,Z

  Ip = new_iterator("",0,"ROLED","PNT")
  loop
    Pnt= next_item(Ip)
    exitif !Pnt
    get_origin_pos(Pnt) PH,X,Y,Z

    point_to_piece(P) Pce,PH

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

    set_djmember(Jnt) Pce,"PCE"

    Hole = new_feature("HOLE",SHOLE_TYPE$)
    if !Hole then exit
    Ptr= findstr(HOLE_SIZE$,"x")
    if Ptr then
      HH$= H$[1,Ptr-1]
      HL$= H$[Ptr+1,0]
      set_obj_param(Hole) "W",HH$
      set_obj_param(Hole) "H",HL$
      set_obj_param(Hole) "TYPE","RT"
    else
      set_obj_param(Hole) "DIA",HOLE_SIZE$
      set_obj_param(Hole) "TYPE","C"
    endif
    set_obj_param(Hole) "T","1"
    set_obj_param(Hole) "D",Depth$
    set_obj_param(Hole) "T","1"
    set_obj_param(Hole) "IDENTS","1"
    add_sobj(Pce) Hole
    set_djmember(Jnt) Hole,"W",1

    Box= new_macro("MACRO_SYS","CYLINDER",P,X,Y,Z,1,1,0,0)
    set_djmember(Jnt) Box,"B",1,Pce
    set_obj_param(Box) "DIA",HOLE_SIZE$
    set_same_tlink(Box) Pce
    set_same_visib(Box) Pce  

    set RETURN "1"
  endloop
endloop

#BUILD#
