MI-L Insert The Selected's Node Into The Cosmetic

[Mehmet Doldur]

Hi Listers,

 

I want to draw a selected polygon’s nodes on the cosmetic layer. I have tried 
the codes below in MapInfo Professional 7.0 as an MBX and in VB.NET

The first one is ok; when I have tried the VB.NET example, it put some nodes on 
the cosmetic layer but not on correct places. What should I do?

 

For both of code examples the coordinate system is like below

appMapInfo.Do("Set CoordSys Earth Projection 1, 104")
 
MBX EXAMPLE
Declare Sub Main
Declare Sub Node_Ciz()

Sub Main

    Create Buttonpad "ddd" As Toolbutton Drawmode 34 Calling   

    Node_Ciz
End Sub

Sub Node_Ciz()

    Dim lCokgenNodeSayisi, lCokgenNodeSayac As SmallInt
    Dim PolyX, PolyY As Float

    lCokgenNodeSayisi = ObjectInfo(SELECTION.OBJ, 21+1)
    For lCokgenNodeSayac = 1 To lCokgenNodeSayisi - 1
        PolyX = ObjectNodeX(SELECTION.OBJ, 1, lCokgenNodeSayac)
        PolyY = ObjectNodeY(SELECTION.OBJ, 1, lCokgenNodeSayac)
        Insert Into Cosmetic1 (OBJ) Values (CreatePoint(PolyX, PolyY))
    Next
End Sub

VB.NET EXAMPLE
Dim lCokgenNodeSayisi, lCokgenNodeSayac As Short
Dim PolyX, PolyY As Double

appMapInfo.Do("Set CoordSys Window FrontWindow()")


lCokgenNodeSayisi = Val(appMapInfo._Eval("ObjectInfo(SELECTION.OBJ, " & 
Str(OBJ_INFO_NPOLYGONS) & " + 1)"))
For lCokgenNodeSayac = 1 To lCokgenNodeSayisi - 1
    PolyX = Val(appMapInfo._Eval("ObjectNodeX(SELECTION.OBJ, 1, " &     

    Str(lCokgenNodeSayac) & ")"))

    PolyY = Val(appMapInfo._Eval("ObjectNodeY(SELECTION.OBJ, 1, " & 

    Str(lCokgenNodeSayac) & ")"))

    appMapInfo.Do("Insert Into Cosmetic1 (OBJ) Values (CreatePoint(" &  

    Str(PolyX) & ", " & Str(PolyY) & " ) )")
Next


Thanks for help 

 
Mehmet DOLDUR
 

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com