Roof Tile hatching

Discussion in 'AutoCAD' started by Leothebuilder, Jun 13, 2004.

  1. Leothebuilder

    Leothebuilder Guest

    Forgot the bit of code I had to start with

    Case "BHATCH"
    Set cLayer = ActiveLayer
    tempCmdName = CommandName
    Set newLayer = ThisDrawing.Layers.Item("A-PATT")
    If Err Then
    Set newLayer = Layers.Add("A-PATT")
    newLayer.Color = 65
    End If
    ActiveLayer = newLayer
    End Select
    End Sub


    Thanks again

    Leo
     
    Leothebuilder, Jun 13, 2004
    #1
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. roof lines

  2. Gaines roof and elevations.

  3. Hatching for Patent Drawings - Adding New Types of Hatching

  4. Seeking tile roof hatch patterns

  5. A routine 4 a roof layout ?

  6. Hatching Roof Tiles

Loading...