Author Topic: DXF remove ColorByLayer  (Read 468 times)

Juergen

  • Jr. Member
  • **
  • Posts: 94
DXF remove ColorByLayer
« on: December 04, 2014, 09:05:01 AM »
I step through each entity  in order to remove all ColorByLayer tags in a dxf.
This is snail slow, but it works. Is there a better way to remove all ColorbyLayer tags
in all entities in a selection?


        Dim SelCount As Long
        Dim i As Long
      
      DcSel = DcDoc.Selection

        DcSel.ExplodedSymbolLayer = 4
        DcSel.Explode()
        SelCount = DcSel.Count

        For i = 1 To SelCount

            DcEnt = DcSel.Item(i)
            DcEnt.ColorByLayer = False

        Next i
      
Thanks for any advice,

Juergen      

Juergen

  • Jr. Member
  • **
  • Posts: 94
Re: DXF remove ColorByLayer
« Reply #1 on: December 04, 2014, 10:14:07 AM »
Please see the attachment in this topic http://forum.designcadcommunity.com/index.php?topic=6018.0

If I unset 'Use original color attributes' I get the same result with stepping through the entities.
I wonder how to do this with a method.

Kind Regards,

Juergen