Karl Lehenbauer writes:
On Mar 10, 2006, at 5:58 PM, salah jubeh wrote:
CAN ANY BODY HELP ME IN TRANSLATE THIS TO TCL
map = mapscript.Map('rquery.map')
set map [mapscript::mapObj -args "rquery.map"]
layer = map.getLayer(0)
set layer [$map getLayer 0]
pnt = mapscript.Point()
pnt.x = 440780 pnt.y = 3751260
set pnt [::mapscript::new_pointObj 440780 3751260]
layer.queryByPoint( map, pnt, mapscript.MS_MULTIPLE, 180.0 )
$layer queryByPoint $map $pnt $::mapscript::MS_MULTIPLE 180.0
layer.open() for i in range(1000):
result = layer.getResult( i )
if result is None:
break
$layer open
for {set i 0} {$i < [$layer getNumResults]} {incr i} {
set result [$layer getResult]
if {$result == "NULL"} break
print '(%d,%d)' % (result.shapeindex, result.tileindex)
puts [format "%d,%d" [$result shapeindex] [$result tileindex]]
s = layer.getShape( result.shapeindex, result.tileindex )
set s [$layer getShape [$result shapeindex] [$result tileindex]
etc etc etc
for i in range(layer.numitems):
print '%s: %s' % (layer.getItem(i), s.getValue(i))
layer.close()
Don't listen to people who tell you Tcl mapscript is all broken. Take a
look at flightaware.com -- it's Tcl all the way.
Karl,
I didn't see anybody else reply to the thread and indicate that anything was
"all broken". That would leave my reply, which certainly was not intended to
indicate anything along those lines either.
Lowell
