(GET-FILL-SETTINGS)

This returns a pair containing the standard fill style number and the fill color. If the fill style number is 12 ({\itt 'USER-FILL}), you can issue a call to GET-FILL-PATTERN to get the exact pattern.