iqbalsahid
Newbie level 4
I wrote this script in skill. All keys are working except Shift+0. I cant understand why? need help plz..
Code:
[B]hiSetBindKeys("Layout" list( list("Shift<Key>0" "Simcreatevia( geGetWindowCellView() hiGetPoint( getCurrentWindow() ) 0 )")
list("Shift<Key>1" "Simcreatevia( geGetWindowCellView() hiGetPoint( getCurrentWindow() ) 1 )")
list("Shift<Key>2" "Simcreatevia( geGetWindowCellView() hiGetPoint( getCurrentWindow() ) 2 )")))
procedure( Simcreatevia( cv xy num )
let( ( x1 x2 y1 y2 pos)
case( num
( 0
x1 = car(xy) - 0.034
x2 = car(xy) + 0.034
y1 = cadr(xy) - 0.022
y2 = cadr(xy) + 0.022
pos = list( list(x1 y1) list(x2 y2) )
dbCreateRect( cv list( "v0" "drawing" ) pos )
leSetLayerVisible( `("v0" "drawing") t )
leSetLayerSelectable( `("v0" "drawing") t )
leSetEntryLayer( `("v0" "drawing") )
)
( 1
x1 = car(xy) - 0.03
x2 = car(xy) + 0.03
y1 = cadr(xy) - 0.022
y2 = cadr(xy) + 0.022
pos = list( list(x1 y1) list(x2 y2) )
dbCreateRect( cv list( "v1" "drawing" ) pos )
leSetLayerVisible( `("v1" "drawing") t )
leSetLayerSelectable( `("v1" "drawing") t )
leSetEntryLayer( `("v1" "drawing") )
)
( 2
x1 = car(xy) - 0.022
x2 = car(xy) + 0.022
y1 = cadr(xy) - 0.029
y2 = cadr(xy) + 0.029
pos = list( list(x1 y1) list(x2 y2) )
dbCreateRect( cv list( "v2" "drawing" ) pos )
leSetLayerVisible( `("v2" "drawing") t )
leSetLayerSelectable( `("v2" "drawing") t )
leSetEntryLayer( `("v2" "drawing") )
)
)
)
)
[/B]
Last edited by a moderator: