create and load layer in acaddoc

[jimpcfd]

hi All, many thanks
the only problem i get is that the layer is a bylayer colour, which for us is a nightmare, as on of out CNC machines when reading a DXF file defaults all bylayer colours to white.
is there a way around this, can the layer have a colour that is not linked to the bylayer ?

thanks
jimpcfd

[MSasu]

So, are you saying that the entities from said layer EDGE had the color set as ByLayer and this isn't interpreted well by your CNC? Therefore you want to have the color set directly on entities. I'm afraid there is no way to control that from layer; what you can do instead is after the sketch is done use QSELECT to gather all entities from that layer and fix their color to red. Or, it you are looking to automate this step you can redefine the SAVE command to add the run of a small AutoLISP routine that will perform that fix prior to save.

Regards,
Mircea

[pBe]

cecolor 1?

[jimpcfd]

many thanks pBe that cracked it
so what does ce mean then?
thanks
jimpcfd

[pBe]

many thanks pBe that cracked it
so what does ce mean then?
thanks
jimpcfd

Current Entity Color
same goes for Linetypes CELTYPE and Lineweights CELWEIGHT and also for Linetype scales CELTSCALE

All system variables, that you can also include on your acaddoc.lsp

(setvar 'Cecolor "1")

[jimpcfd]

thanks again pBe, being able to do that in acaddoc.lsp will be very handy.

thanks
jmpcfd

[pBe]

thanks again pBe, being able to do that in acaddoc.lsp will be very handy.

thanks
jmpcfd

You are welcome.

Glad I could help

Cheers

[Lee Mac]

If your Layers are set up correctly, another option might be to use the following code to set the Colour of all objects to the colour of the Layer on which each resides (not ByLayer):

(defun c:SetColours ( / a c e i l s x )
    (while (setq a (tblnext "LAYER" (null a)))
        (setq l (cons (cons (cdr (assoc 2 a)) (cons 62 (abs (cdr (assoc 62 a))))) l))
    )
    (if (setq s (ssget "_X"))
        (repeat (setq i (sslength s))
            (setq e (entget (ssname s (setq i (1- i))))
                  c (cdr (assoc (cdr (assoc 8 e)) l))
            )
            (if (setq x (assoc 62 e))
                (entmod (subst c x e))
                (entmod (append e (list c)))
            )
        )
    )
    (princ)
)

[pBe]

I supposed a reactor would be too much to ask Lee.
For Entity creation commands: i.e. Line, Polyline....

Detect current layer color then set it to CECOLOR
will that be overkill Lee?

[Lee Mac]

I supposed a reactor would be too much to ask Lee.
For Entity creation commands: i.e. Line, Polyline....

Detect current layer color then set it to CECOLOR
will that be overkill Lee?

Maybe not too much overkill, but certainly very annoying to code since you would have to account for every entity creation command and check the required colour from the current layer, but also allow for when the user changes an entity's layer / colour independently and react on those events too, using perhaps Object Reactors monitoring every entity created... if you want to code it, be my guest