How to change Linetypes inside a block creation

Discussion in 'AutoCAD' started by steven, Sep 1, 2004.

  1. steven

    steven Guest

    I am creating a block on the fly and I need to change linetypes inside
    of it.
    IE: create a box(block) with continous linetype, inside that
    box(block) i need to add another box with a linetype of hidden.

    Set Block = ThisDrawing.Blocks.Add(F1, "box(block)")
    Pnt1(0) = F1(0)
    Pnt1(1) = F1(1)
    Pnt1(2) = F1(2)
    Pnt2(0) = Pnt1(0)
    Pnt2(1) = Pnt1(1)
    Pnt2(2) = Pnt1(2)
    Block.AddLine Pnt1, Pnt2
    Pnt1(0) = F1(0)
    Pnt1(1) = F1(1)
    Pnt1(2) = F1(2)
    Pnt2(0) = Pnt1(0)
    Pnt2(1) = Pnt1(1)
    Pnt2(2) = Pnt1(2)
    Block.AddLine Pnt1, Pnt2

    change linetype and do it again


    Pnt1(0) = F1(0)
    Pnt1(1) = F1(1)
    Pnt1(2) = F1(2)
    Pnt2(0) = Pnt1(0)
    Pnt2(1) = Pnt1(1)
    Pnt2(2) = Pnt1(2)
    Block.AddLine Pnt1, Pnt2
    Pnt1(0) = F1(0)
    Pnt1(1) = F1(1)
    Pnt1(2) = F1(2)
    Pnt2(0) = Pnt1(0)
    Pnt2(1) = Pnt1(1)
    Pnt2(2) = Pnt1(2)
    Block.AddLine Pnt1, Pnt2
     
    steven, Sep 1, 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. Getting information of an entity inside of a block

  2. Obtaining attribute values inside a block

  3. Help req. making lsp change ltscale of specific linetype after creation

  4. automatic block creation

  5. Fixed scale for attributes inside an attribute block?

  6. how to find/save PCELL CREATION TIME ? / How to solve this ?**URGENT**

  7. cut sweep inside a block

  8. Get block attributes from a block inside an xref

Loading...