osman hömek / not defteri

http://www.robtex.com

http://www.mxtoolbox.com/

    select obj from TableName where ROADID=17519 into selectedRoad
Dim o_road As Object
o_road = selectedRoad.obj

Dim o_move As Object
select obj from TableNAme where ROADID=17420 into moveRoad
o_move = moveRoad.obj

Dim x, y As Float
dim nodeSayisi as integer
nodeSayisi = ObjectInfo(moveRoad.obj,OBJ_INFO_NPNTS)
x = ObjectNodeX(moveRoad.obj,1,nodeSayisi)
y = ObjectNodeY(moveRoad.obj,1,nodeSayisi)

Alter Object o_road Node Set Position 1,4 (x,y)
update TableNAme set obj=o_road where rowid=2

Böylelikle, snap etmeyen 2 yol, birbirlerine snaplenir