NewScene

CreatePrim "Sphere", "MeshSurface"

CreatePrim "Cone", "MeshSurface"

CreatePrim "Torus", "MeshSurface"

SetUserKeyword "sphere,cone", "blue,orange"

AddUserKeyword "sphere", "red,brown"

AddUserKeyword "torus", "yellow,teal"

RemoveUserKeyword "sphere,cone,torus","yellow,orange"

dim KeywordCollection 

set KeywordCollection = GetUserKeyword( "sphere" )

for each keyword in KeywordCollection

LogMessage "sphere keyword:" & keyword

next

LogMessage "All Keywords:"

set KeywordCollection = GetUserKeyword( "sphere,cone,torus" )

for each keyword in KeywordCollection

LogMessage keyword

next