0

所以我有一个随机颜色函数，我想将其应用于选择的点，但它为每个点提供随机颜色，而不是选择点的随机颜色。我知道选择部分有效，但我不确定如何使其每种颜色仅调用该随机颜色生成器一次。这是我到目前为止所拥有的。感谢您的任何建议/帮助！

include "mapbasic.def"
include "menu.def"
include "icons.def"

Declare Sub Main
Declare Sub Color
Declare Sub RndColor



Declare Function ChangeSymbolColour (ByVal objTarget as Object, ByVal stringAttribute as String) as Object

' ==========================

Sub Main

Dim i, nRecords as integer
Dim ColValue As Alias
Dim s_ColValues(50) as String


'// - Query your table and group wanted column (list of unique values)
Select Symbology from YOUR_TABLE2 group by Symbology into UNIQUE_values

'// - Populate array with all unique values (from first column in UNIQUE_values table)
print "new"  
  For i = 1 to SelectionInfo(SEL_INFO_NROWS)         
    ReDim s_ColValues(i)
    Fetch rec i From UNIQUE_values

    ColValue = UNIQUE_values + ".col1"

    s_ColValues(i) = ColValue

Select * from Your_Table2 where Symbology= s_ColValues(i) into Selection

Call Color

Next

End Sub

Sub RndColor

Dim Color as integer

Color = RGB((254*Rnd(1)+1),(254*Rnd(1)+1),(254*Rnd(1)+1))

End Sub

Sub Color


Update Your_table2 set Obj = ChangeSymbolColour(obj, symbology)


End Sub



Function ChangeSymbolColour (ByVal objTarget as Object, ByVal stringAttribute as String) as Object

Dim newSymbol as Symbol
Dim nColour as Integer
'nColour=RGB((254*Rnd(1)+1),(254*Rnd(1)+1),(254*Rnd(1)+1))
ncolour=RED

newSymbol = MakeFontSymbol(36, nColour, 5, "Map Symbols", 0, 0) 
Alter Object objTarget Info OBJ_INFO_SYMBOL, newSymbol
ChangeSymbolColour = objTarget
End Function
4

1 回答 1

0

您需要在函数外部生成随机颜色，然后将其作为参数传入，而不是每次调用函数时都生成新颜色。另外，您似乎没有使用函数的 StringAttribute 参数，这真的需要吗？

例如

Sub Main

    Dim nColour as Integer
    
    ...
    Select * from MyTable where ... into MySelection
    nColour = GetRandomColour()
    Update MySelection Set Obj = ChangeSymbolColour(obj, nColour)

End Sub

Function GetRandomColour() as Integer

    GetRandomColour = RGB((254*Rnd(1)+1),(254*Rnd(1)+1),(254*Rnd(1)+1))

End Function

Function ChangeSymbolColour (ByVal objTarget as Object, ByVal nColour as Integer) as Object

    Dim newSymbol as Symbol

    newSymbol = MakeFontSymbol(36, nColour, 5, "Map Symbols", 0, 0) 
    Alter Object objTarget Info OBJ_INFO_SYMBOL, newSymbol
    ChangeSymbolColour = objTarget

End Function
于 2020-07-01T20:14:21.493 回答