Procedure SetClTextureT sets the roof top texture of the specified class.
PROCEDURE SetClTextureT(
className : STRING;
textureRef : LONGINT);def vs.SetClTextureT(className, textureRef):
return None| Name | Type | Description |
|---|---|---|
| className | STRING | Class name. |
| textureRef | LONGINT | Texture reference index value. |
Sets the roof top texture of the class named className.
BEGIN
regtex := GetClTextureG(roof_class);
rooftex := GetClTextureT(roof_class);
IF ((rooftex = 0) & (regtex <> 0)) THEN SetClTextureT(roof_class,regtex);
END;import vs
# Procedure SetClTextureT sets the roof top texture of the specified class.
className = 'None'
textureRef = 1
vs.SetClTextureT(className, textureRef)Availability: from VectorWorks8.0