Applying a Tile Resource to a Polygon

[Julian Carr]

Anyone have a code snippet for applying a Tile resource to a polygon? Not having much luck.

 

TIA.

[_c_]

Just by reversed index:

SetFPat(PolyHandle, -Name2Index('tileFill'));

[Julian Carr]

Thanks Orso. Next question.

 

How to get the tile fill name of a wall component. If I use GetComponentFill() then index2name() on the returned fill, it doesn't work.

 

Thanks.

[_c_]

Julian, it is indeed so tricky.

You must first check for the by class of the fill type. Otherwise GetComponentFill will return the fill type of the component, "below" the by class.

Edit: here the test file:

wall comp fill style test.vwx.zip

 

Example:

 

 

 

PROCEDURE TEST;
VAR
    sty : HANDLE;
    i, numComponents : INTEGER;
    resIndx : LONGINT;
    useClassFillStyleForFill : BOOLEAN;
    className : STRING;
    
    FUNCTION ResolveFillIndex(indx : LONGINT): STRING;
        BEGIN
            CASE indx OF
            0 : ResolveFillIndex := 'none';
            1 : ResolveFillIndex := 'solid';
            OTHERWISE
                ResolveFillIndex := Index2Name(-indx);
            END;
        END;
    
BEGIN
    sty := GetObject('sty');
    { a wall style named 'sty' with some components }
    { some have a fill by class, some don't }
    
    IF GetNumberOfComponents(sty, numComponents) THEN
        FOR i:=1 TO numComponents DO BEGIN
            useClassFillStyleForFill := FALSE; { init }
            
            { check if it's by class }
            IF GetCompUseClassFill(sty, i, useClassFillStyleForFill) THEN
                IF useClassFillStyleForFill THEN 
                    IF GetComponentClass(sty, i, resIndx) THEN BEGIN
                        className := Index2Name(resIndx);
                        
                        AlrtDialog(Concat(
                            'Component ', i, chr(13),
                            'Has fill by class. Class name: ', chr(13),
                            className, chr(13),
                            'Fill: ', ResolveFillIndex(GetClFPat(className))
                        ));
                        
                        { the underlying fill, without the by class }
                        IF GetComponentFill(sty, i, resIndx) THEN
                            AlrtDialog(Concat(
                                'Component ', i, chr(13),
                                'UNDERLYING Fill, if it wasn''t by class: ', chr(13),
                                ResolveFillIndex(resIndx)
                            ));
                    END;
            
            IF (useClassFillStyleForFill = FALSE) & GetComponentFill(sty, i, resIndx) THEN
                    AlrtDialog(Concat(
                        'Component ', i, chr(13),
                        'Fill indx not by class: ', chr(13),
                        ResolveFillIndex(resIndx)
                    ));   
                    { index 1: solid fill }
                    { index negative: vectorial fill: hatch, tile, img, gradient }
        END;
END;
RUN(TEST);

 

 

 

Edited November 12, 2018 by _c_
Img too large