Topic: Freeze specific layer on each layout (NOT global freeze!)

[kruuger]

hello
is there any lisp magic which allows freeze specific layer on each layouts?
it is third icon (for layout) not second (global freeze)
thanks

[gile]

Hi,

AFAIK, with LISP (Vanilla or Visual) there's no other way than calling the VPLAYER command.

I tried to build some AutoLISP functions to override layer properties in viewports with .NET (see here).

[hawstom]

Calling a command is nothing to be ashamed of.

Here is little application I wrote that might have what you want somewhere inside it.  Sorry for any bad style and if you don't like all caps.  That's how it was.

Code - Auto/Visual Lisp: [Select]

1. (SETQ LAYER-OPERATION "_freeze")
2. (PROMPT "\nPick layers to freeze in current viewport:")
3. (COMMAND "mspace" "vplayer")
4. (HAWS-LAYER-LOOP T)
5. (COMMAND "" "")
6.  
7. (DEFUN
8.    HAWS-LAYER-LOOP (VIEWPORT-MODE-P / SELECTION-SET-LAYERS I ENTITY-NAME LAYER-NAME)
9.   (SETQ
10.     SELECTION-SET-LAYERS
11.      (SSGET)
12.     I 0
13.   )
14.   (COND
15.     (SELECTION-SET-LAYERS
16.      (WHILE (SETQ ENTITY-NAME (SSNAME SELECTION-SET-LAYERS I))
17.        (SETQ LAYER-NAME (CDR (ASSOC 8 (ENTGET ENTITY-NAME))))
18.        (COMMAND LAYER-OPERATION LAYER-NAME)
19.        (IF VIEWPORT-MODE-P
20.          (COMMAND "")
21.        )
22.     )
23.   )
24. )
25.  

[kruuger]

Hi,

AFAIK, with LISP (Vanilla or Visual) there's no other way than calling the VPLAYER command.

I tried to build some AutoLISP functions to override layer properties in viewports with .NET (see here).

hi gile
ok VPLAYER, i think i can deal with this. it freeze layers also in all viewport but that's not a big deal.
thanks for link. any chance to support 2017?

[hawstom]

thanks for link. any chance to support 2017?

When you use (command) calls, they are usually forward compatible nearly indefinitely.  I haven't been the most nerdy of programmers, but gratefully most of the stuff I programmed in the early 90s has needed very little tweaking to still be going strong today.

[gile]

thanks for link. any chance to support 2017?

LispVpLayer_19.dll should work with A2013 and later.

Edit: After testing, LispVpLayer_19.dll LISP functions do work with A2017

[roy_043]

@hawstom:
Reading your code I notice that the I variable is never incremented.

[roy_043]

Note:
In BricsCAD you can change the Xdata of the viewport to accomplish this. But you have to use vla-setxdata as entmod fails on viewports.

[hawstom]

@hawstom:
Reading your code I notice that the I variable is never incremented.

Thanks.  I must have deleted that inadvertently.  But if I were programming that today (instead of 20 years ago) it would of course be in the while condition (among other things I'd do differently)  Here's a still-quick-and-dirty-but-a-little-more-worthy version (not that it seems to really matter for the purposes of this thread):

Code - Auto/Visual Lisp: [Select]

1. (defun c:ffv () (c:haws-vpfreeze))
2. (defun
3.    c:haws-vpfreeze (/ selection-set-layers i entity-name layer-name)
4.   (command "._mspace")
5.   (princ "\nPick layers to freeze in current viewport: ")
6.   (setq
7.     selection-set-layers
8.      (ssget)
9.     layer-operation "_freeze"
10.     i -1
11.   )
12.   (cond
13.     (selection-set-layers
14.      (command "._vplayer")
15.      (while (setq entity-name (ssname selection-set-layers (setq i (1+ i))))
16.        (setq layer-name (cdr (assoc 8 (entget entity-name))))
17.        (command layer-operation layer-name)
18.        (if viewport-mode-p
19.          (command "")
20.        )
21.      )
22.      (command "" "")
23.     )
24.   )
25. )
26.  

But doesn't LAYFRZ do that now?

[kruuger]

thanks for link. any chance to support 2017?

LispVpLayer_19.dll should work with A2013 and later.

Edit: After testing, LispVpLayer_19.dll LISP functions do work with A2017

yes, works well, thanks

[kruuger]

But doesn't LAYFRZ do that now?

LAYFRZ freeze them globally. not per layout.

[didier]

Coucou

No, with the right settings LayFrz works

amicalement