Group and dimensions

Discussion in 'AutoCAD' started by Marc Sylvain, Jan 12, 2004.

  1. Marc Sylvain

    Marc Sylvain Guest

    With VB

    In a GROUP, how I can get the dimensions informations ?

    (Coordinates and textString)

    Thank

    Marc



    'If I use block information

    For Each AA In ThisDrawing.Blocks

    If Left(AA.Name, 2) = "*D" Then

    Set oDef = AA

    For Each DPnt In oDef

    If DPnt.EntityName = "AcDbPoint" Then

    Set OPnt = DPnt

    Debug.Print OPnt.Coordinates(0)

    Debug.Print OPnt.Coordinates(1)

    ElseIf DPnt.EntityName = "AcDbMText" Then

    Debug.Print DPnt.textString

    End If

    Next

    End If

    Next
     
    Marc Sylvain, Jan 12, 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. DXF file, HEADER, and group codes for direction

  2. Group Codes and Normal Z

  3. DXF group code 10 and 11

  4. Group Code 71 and Block def's

  5. Can you Group Palettes and networking them

  6. Excellent OrCAD , HDL , Matlab and Circuits Group

  7. Extracting group codes from multiple dimensions in VBA

  8. Create Group and Access by Name - Invalid Group Name Error

Loading...