subform.il

用skill语言编写

;######################################################################
;  Author: spring                                              
; Version: 1.0
;    Date: 1/21 2009
;######################################################################
active_name="ACTIVE"
implant_name="IMPLANT"
w=2.00
s=0.2

procedure(subForm()
active_id=hiCreateStringField(
?name 'active
?prompt "active"
?value active_name
?defValue active_name
)
implant_id=hiCreateStringField(
?name 'implant
?prompt "implant"
?value implant_name
?defValue implant_name
)
width_id=hiCreateFloatField(
?name 'width
?prompt "active_w"
?value w
?defValue w
)
over_id=hiCreateFloatField(
?name 'over
?prompt "implant_s"
?value s
?defValue s
)

form_id=hiCreateForm(
'form
"Make Sub"
list( "")
list(
    active_id
    implant_id
    width_id
    over_id
    )
  nil nil
)
hiDisplayForm(form_id 0:0)
                                                                                
  active_name= form_id->active->value
  implant_name= form_id->implant->value
  w= form_id->width->value
  s= form_id->over->value

cv=geGetWindowCellView()
box=enterBox(?prompts list("Please digitize"))
x_ld_point=xCoord(nth(0 box))
y_ld_point=yCoord(nth(0 box))
x_ru_point=xCoord(nth(1 box))
y_ru_point=yCoord(nth(1 box))

list_act=list(list(x_ld_point-w/2 y_ld_point) list(x_ru_point y_ld_point) nth(1 box) list(x_ld_point y_ru_point) list(x_ld_point y_ld_point+w/2))
list_imp=list(list(x_ld_point-w/2-s y_ld_point) list(x_ru_point y_ld_point) nth(1 box) list(x_ld_point y_ru_point) list(x_ld_point y_ld_point+w/2+s))

leCreatePath(cv active_name list_act w)
leCreatePath(cv implant_name list_imp w+s*2)
)