Roof Tile hatching

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

  1. 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.