' Set up a grid with a texture and an XY projection.

CreatePrim "Grid", "MeshSurface"

CreateProjection "grid", , siTxtDefaultPlanarXY, , "Texture_Projection"

BlendInTextureLayers , , 1, True, siReplaceAndNoBlendInTextureLayers

SetDisplayMode "Camera", "texturedecal"

SelectObj "grid.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection"

' Pin all components 

set uvprop = Selection(0)

PinAllUVComponents uvprop

' Check the pinned component indices with the UVProperty object

componentIndices = uvprop.PinComponentArray

for i = lbound( componentIndices ) to ubound( componentIndices )

	logmessage componentIndices(i)

next

' Unpin all components 

UnPinAllUVComponents uvprop

' Number of pinned components is now zero

componentIndices = uvprop.PinComponentArray

logmessage UBound(componentIndices)+1