topic Betreff: Create custom buttons to freeze/ thaw a specific layer in Visual LISP, AutoLISP and General Customization Forum

Create custom buttons to freeze/ thaw a specific layer

dan.luxford — Mon, 11 Dec 2017 11:08:45 GMT

Hi All, I am trying to create two buttons to freeze and thaw a specific layer.

To elaborate, I have two layers - 2D Arch Xref and 3D Arch Xref (these are the layers that the xreferences are placed in. With nearly all the drawings I work on I have multiple xrefs with multiple layers, which means I have somewhere between 100 and 500 layers in a drawing/ model.

Rather than scroll through all these layers to get to the ones I want (the above layers) I would like to create buttons to quickly freeze/ thaw the layers.

If someone out the could provide me with the correct button syntax or point me to a tutorial it would be most appreciated.

Thanks in advance

Dan

Betreff: Create custom buttons to freeze/ thaw a specific layer

cadffm — Mon, 11 Dec 2017 12:02:13 GMT

The command is -LAYER for using LAYER in commandlineversion.
So you can see the snytax of that command.
Command: -LAYER follow the command..

In Macro use ; as Enter

'-LAYER;freeze;*|MyXREFlayer;;
freeze all MyXREFlayer in all XREFs

'-LAYER;freeze;*ARC*|MyXREFlayer
freeze MyXREFlayer in all XREFs with refname pattern *ARC*

For Wildcards in Acad look at F1 and Lispfunction WCMATCH

Re: Create custom buttons to freeze/ thaw a specific layer

ВeekeeCZ — Mon, 11 Dec 2017 12:10:46 GMT

... or lisp maybe...

(ToggleFreeze-Thaw "2D Arch Xref")
  
(defun ToggleFreeze-Thaw (layer / )
  (if (and (or (tblsearch "LAYER" layer)
               (prompt (strcat "\nLayer '" layer "' not found it the drawing. ")))
           (setq laydef (entget (tblobjname "LAYER" layer))))
    (if (= 1 (logand (cdr (assoc 70 (entget (tblobjname "LAYER" layer)))) 1))
      (command "_.LAYER" "_ON" layer "_Thaw" layer "")
      (if (= layer (getvar 'CLAYER))
        (command "_.LAYER" "_S" "0" "_Freeze" layer "")
        (command "_.LAYER" "_Freeze" layer ""))))
  (princ)
)

Betreff: Create custom buttons to freeze/ thaw a specific layer

dan.luxford — Mon, 11 Dec 2017 12:46:30 GMT

Works perfectly! Thank you for your reply.

Re: Create custom buttons to freeze/ thaw a specific layer

dan.luxford — Mon, 11 Dec 2017 12:51:29 GMT

Thank you for the reply, but the button way works for me.

Re: Create custom buttons to freeze/ thaw a specific layer

Juergen_Becker — Mon, 11 Dec 2017 12:54:08 GMT

Hi,

please insert into the CUI following command:

^C^C_Layer;_make;"2D Arch Xref";;

For the 3D layer it's similar.

Reagards Jürgen

Re: Create custom buttons to freeze/ thaw a specific layer

ВeekeeCZ — Mon, 11 Dec 2017 13:11:05 GMT

@dan.luxford wrote:

Thank you for the reply, but the button way works for me.

Sure, you're welcome, whatever fits you better!

Just for you to know, that was meant to be a (single) button as well - not two buttons, just one.... which is hard to achieve with macros only.

Re: Create custom buttons to freeze/ thaw a specific layer

dan.luxford — Mon, 11 Dec 2017 13:14:02 GMT

BeeKeeCZ, to be honest I have absolutely no idea about LISP routines, how to make them, or initiate them in Autocad. Maybe one day I'll get on to them.