User defined honeycomb hatch

 
  •  

    $S-  -- Synonym translation OFF
    -- ----------------------------------------------------------------
    -- Data Listing    Date : 13 Feb 2019 12:39
    
    ONERROR GOLABEL /ERROR3
    
    INPUT BEGIN
    NEW LINESTYLE /LineStyle-211
    PATDEF 4 -8
    PATREP 12mm
    TXALIGN Bottom
    FONT Template
    
    END
    INPUT END  LINESTYLE /LineStyle-211
    INPUT FINISH
    -- Switch synonyms back on if an error occurs.
    LABEL /ERROR3
    handle ANY
    $S+
    RETURN ERROR
    endhandle
    
    -- End Data Listing    Date : 13 Feb 2019 12:39
    $S+  -- Synonym translation ON
    -- ----------------------------------------------------------------