Visual LISP, AutoLISP and General Customization
Re: Command | If layer is frozen : thaw it and vice versa
Troispistols wrote:....
I have a Layer named "Arch - Niveau 1"
I would like to enter in the command prompt "a1"
It would read if the layer is frozen or thawed and if it is frozen, it will thaw it ... And if the layer is thawed, it would freeze it
....
What could be added is:
To check up if the layer exists and if not, create it.
Would do the same for 2 other layer named "Arch - Niveau 2" command "a2" and "Arch - Niveau 3" command "a3". ....
Here's a pretty efficient way to thaw a Layer [with its name in the 'layn' variable] if it's frozen or Freeze it if it's thawed:
(setq layobj (vlax-ename->vla-object (tblobjname "Layer" layn)))
(vlax-put layobj 'Freeze (1- (abs (vlax-get layobj 'Freeze))))
It finds the Freeze property assigned to that Layer as converted to a VLA object, and if it's 0 [thawed], makes it -1 [frozen], or if it's -1, makes it 0.
So, you could define all three commands together, by putting this into a .lsp file:
(defun LFTTM (layn / layobj); = Layer Freeze-Thaw Toggle or Make [sub-routine]
(if (tblsearch "Layer" layn)
(progn ; then -- freeze/thaw toggle it
(setq layobj (vlax-ename->vla-object (tblobjname "Layer" layn)))
(vlax-put layobj 'Freeze (1- (abs (vlax-get layobj 'Freeze))))
); progn
(command "_.layer" "_make" layn ""); else - make it
); defun
(defun C:a1 ()
(LFTTM "Arch - Niveau 1")
)
(defun C:a2 ()
(LFTTM "Arch - Niveau 2")
)
(defun C:a3 ()
(LFTTM "Arch - Niveau 3")
)
Re: Command | If layer is frozen : thaw it and vice versa
Troispistols wrote:OK thanks, but I can't make it work....
....
Command: a11 -layer
Current layer: "0"
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Fre
eze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: new
....
I can only imagine there's some older definition of the same command name still in effect, which probably means the file you put that in did not load properly. There's nothing in your posted code that would be feeding in the layer command name with the hyphen in front of it [not needed when inside a (command) function], nor the new option, nor should it be calling up the Layer command at all if the Layer already exists. And the other oddball things happening later must also be coming from something else.
[And it looks like you have an extra right parenthesis at the very end. That might prevent it from loading, but I think you should get some kind of message about it.]
Re: Command | If layer is frozen : thaw it and vice versa
My fault -- I left out a closing parenthesis for an (if) function. Try it this way:
(defun LFTTM (layn / layobj); = Layer Freeze-Thaw Toggle or Make [sub-routine]
(if (tblsearch "Layer" layn)
(progn ; then -- freeze/thaw toggle it
(setq layobj (vlax-ename->vla-object (tblobjname "Layer" layn)))
(vlax-put layobj 'Freeze (1- (abs (vlax-get layobj 'Freeze))))
); progn
(command "_.layer" "_make" layn ""); else - make it
); if
); defun
(defun C:a11 ()
(LFTTM "Arch - Niveau 1")
)
(defun C:a22 ()
(LFTTM "Arch - Niveau 2")
)
(defun C:a33 ()
(LFTTM "Arch - Niveau 3")
)
One other thing I often forget -- add this line to the code somewhere [most people put it at the top, but I don't think it matters in this case]:
(vl-load-com)
[I often forget to include that, because we use Architectural Desktop which somehow loads that for us, so things always work here without our including that in our routines. Sometimes I remember in things I post, but obviously not always.]
