Assign Certain Layer to a Toolbar

[gazzalp]

That one doesnt seem to work Lee, its not adding the layers if theyre not in the drawing already. Also what you said about viewports is correct, if i do it the way you said it does change the layer back. However i usually use the viewport toolbar (much easier to click one button rather than go into the menu. When i use the button it doesnt work.

[Lee Mac]

Sorry, missed out something, edited the post, try now.

[Lee Mac]

 ; Layer Director by Lee McDonnell

 ; V1.1 Hatch, QLeader Commands Added, Layer Construction Updated.

(vl-load-com)

(vlr-command-reactor
   nil
   '((:vlr-commandWillstart . startCommand))
) ; end command reactor
(vlr-command-reactor
   nil
   '((:vlr-commandEnded . endcommand))
) ; end command reactor
(vlr-command-reactor
   nil
   '((:vlr-commandCancelled . cancelCommand))
) ; end command reactor

(defun startCommand (calling-reactor startcommandInfo / thecommandstart)
   (setq oldlay (getvar "clayer"))
   (setq thecommandstart (nth 0 startcommandInfo))
   (cond
   ((= thecommandstart "TEXT")
    (setvar "clayer" "TEXT")
   ) ; end condition 1
   ((= thecommandstart "MTEXT")
    (setvar "clayer" "TEXT")
   ) ; end condition 2
   ((= thecommandstart "DTEXT")
    (setvar "clayer" "TEXT")
   ) ; end condition 3

 ;        ---------------------------

   ((= thecommandstart "DIMLINEAR")
    (setvar "clayer" "Dimensions")
   ) ; end condition 4
   ((= thecommandstart "DIMALIGNED")
    (setvar "clayer" "Dimensions")
   ) ; end condition 5
   ((= thecommandstart "DIMRADIUS")
    (setvar "clayer" "Dimensions")
   ) ; end condition 6
   ((= thecommandstart "DIMDIAMETER")
    (setvar "clayer" "Dimensions")
   ) ; end condition 7
   ((= thecommandstart "DIMANGULAR")
    (setvar "clayer" "Dimensions")
   ) ; end condition 8
   ((= thecommandstart "DIMORDINATE")
    (setvar "clayer" "Dimensions")
   ) ; end condition 9
   ((= thecommandstart "QLEADER")
    (setvar "clayer" "Dimensions")
   ) ; end condition 10

 ;        ---------------------------

   ((= thecommandstart "+VPORTS")
    (setvar "clayer" "DEFPOINTS")
   ) ; end condition 11
   ((= thecommandstart "-VPORTS")
    (setvar "clayer" "DEFPOINTS")
   ) ; end condition 12

 ;        ---------------------------

   ((= thecommandstart "BHATCH")
    (setvar "clayer" "HATCH")
   ) ; end condition 13
   ) ; end cond
   (princ)
) ; end startcommand

(defun endCommand (calling-reactor endcommandInfo / thecommandend)
   (setq thecommandend (nth 0 endcommandInfo))
   (cond
   ((= thecommandend "TEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 1
   ((= thecommandend "MTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 2
   ((= thecommandend "DTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 3

 ;        ---------------------------

   ((= thecommandend "DIMLINEAR")
    (setvar "clayer" oldlay)
   ) ; end condition 4
   ((= thecommandend "DIMALIGNED")
    (setvar "clayer" oldlay)
   ) ; end condition 5
   ((= thecommandend "DIMRADIUS")
    (setvar "clayer" oldlay)
   ) ; end condition 6
   ((= thecommandend "DIMDIAMETER")
    (setvar "clayer" oldlay)
   ) ; end condition 7
   ((= thecommandend "DIMANGULAR")
    (setvar "clayer" oldlay)
   ) ; end condition 8
   ((= thecommandend "DIMORDINATE")
    (setvar "clayer" oldlay)
   ) ; end condition 9
   ((= thecommandend "QLEADER")
    (setvar "clayer" oldlay)
   ) ; end condition 10

 ;        ---------------------------

   ((= thecommandend "+VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 11
   ((= thecommandend "-VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 12

 ;        ---------------------------

   ((= thecommandend "BHATCH")
    (setvar "clayer" oldlay)
   ) ; end condition 13
   ) ; end cond
   (princ)
) ; end endCommand

(defun cancelCommand (calling-reactor cancelcommandInfo / thecommandcancel)
   (setq thecommandcancel (nth 0 cancelcommandInfo))
   (cond
   ((= thecommandcancel "TEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 1
   ((= thecommandcancel "MTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 2
   ((= thecommandcancel "DTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 3

 ;        ---------------------------

   ((= thecommandcancel "DIMLINEAR")
    (setvar "clayer" oldlay)
   ) ; end condition 4
   ((= thecommandcancel "DIMALIGNED")
    (setvar "clayer" oldlay)
   ) ; end condition 5
   ((= thecommandcancel "DIMRADIUS")
    (setvar "clayer" oldlay)
   ) ; end condition 6
   ((= thecommandcancel "DIMDIAMETER")
    (setvar "clayer" oldlay)
   ) ; end condition 7
   ((= thecommandcancel "DIMANGULAR")
    (setvar "clayer" oldlay)
   ) ; end condition 8
   ((= thecommandcancel "DIMORDINATE")
    (setvar "clayer" oldlay)
   ) ; end condition 9
   ((= thecommandcancel "QLEADER")
    (setvar "clayer" oldlay)
   ) ; end condition 10

 ;        ---------------------------

   ((= thecommandcancel "+VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 11
   ((= thecommandcancel "-VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 12

 ;        ---------------------------

   ((= thecommandcancel "BHATCH")
    (setvar "clayer" oldlay)
   ) ; end condition 13
   ) ; end cond
   (princ)
) ; end cancelCommand

(defun makelay (lay / oldlay)
   (if    (not (tblsearch "LAYER" lay))
   (progn
       (setq oldlay (getvar "clayer"))
       (setvar "cmdecho" 0)
       (command "-layer" "m" lay "")
       (setvar "cmdecho" 1)
       (setvar "clayer" oldlay)
   ) ;_  end progn
   ) ;_  end if
) ;_  end defun

(mapcar 'makelay '("Dimensions" "DEFPOINTS" "HATCH"))

(if (not (tblsearch "LAYER" "TEXT"))
   (progn
   (setq oldlayer (getvar "clayer"))
   (setvar "cmdecho" 0)
   (command "-layer" "m" "TEXT" "c" "2" "TEXT" "")
   (setvar "cmdecho" 1)
   (setvar "clayer" oldlayer)
   ) ;_  end progn
) ;_  end if

 

This will active the defpoints layer when a viewpoint is drawn, but I can't work out why it won't go back to the original, sorry.

[Raggi_Thor]

Interesting post!

 

Allways use "-layer;m" in stead of "-layer;s", because one day the layer is not there for youand then Make is better than Set.

 

I have sometimes used VBA and different events to set layer, for example in the "BeginCommand" (if I remember correct), se if CommandName is like Dim* and then activate the dim layer. You can also turn off all layers made by SolDraw and SolProf when yiu switch layout to the model tab, or add a dim layer for the current layout. Lots of events that can be used.

[Lee Mac]

Thanks for your input Raggi - I wish I knew more about reactors, they can be so useful. But I mostly just stick to LISP and haven't even touched on VBA, but I have heard of the BeginCommand mentioned on here before.

[Raggi_Thor]

But you know more about the new visual lisp stuff than I do.

You have reactors there also?

 

This is what you get if you navigate to the VB Editor (Shift+F11) and select first AcadDocument and then BeginCommand:

 

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
                      Debug.Print CommandName
End Sub

 

 

I just typed Debug.Print CommandName

but you can do whatever you want based on what the CommandName is.

[Lee Mac]

Nice, thats interesting. Thanks.

 

By the way, just out of interest, would you happen to know why my posted reactor does not revert back to the original layer only on the "-VPORT" command call? When all the other command calls function correctly.

[Raggi_Thor]

No sorry, I got Lost In Silly Parentheses

[Lee Mac]

No sorry, I got Lost In Silly Parentheses

 

Haha like it.

[gazzalp]

Lee, it doesnt seem to add a text layer. Also how would i go about changing the "hatch" layer that is created to colour 8?

[Lee Mac]

Lee, it doesnt seem to add a text layer. Also how would i go about changing the "hatch" layer that is created to colour 8?

 

The LISP creates all layers upon loading fine on my machine. I have updated the Hatch layer for you.

 

 ; Layer Director by Lee McDonnell

 ; V1.1 Hatch, QLeader Commands Added, Layer Construction Updated.

 ; V1.2 Hatch Layer Colour Change.

(vl-load-com)

(vlr-command-reactor
   nil
   '((:vlr-commandWillstart . startCommand))
) ; end command reactor
(vlr-command-reactor
   nil
   '((:vlr-commandEnded . endcommand))
) ; end command reactor
(vlr-command-reactor
   nil
   '((:vlr-commandCancelled . cancelCommand))
) ; end command reactor

(defun startCommand (calling-reactor startcommandInfo / thecommandstart)
   (setq oldlay (getvar "clayer"))
   (setq thecommandstart (nth 0 startcommandInfo))
   (cond
   ((= thecommandstart "TEXT")
    (setvar "clayer" "TEXT")
   ) ; end condition 1
   ((= thecommandstart "MTEXT")
    (setvar "clayer" "TEXT")
   ) ; end condition 2
   ((= thecommandstart "DTEXT")
    (setvar "clayer" "TEXT")
   ) ; end condition 3

 ;        ---------------------------

   ((= thecommandstart "DIMLINEAR")
    (setvar "clayer" "Dimensions")
   ) ; end condition 4
   ((= thecommandstart "DIMALIGNED")
    (setvar "clayer" "Dimensions")
   ) ; end condition 5
   ((= thecommandstart "DIMRADIUS")
    (setvar "clayer" "Dimensions")
   ) ; end condition 6
   ((= thecommandstart "DIMDIAMETER")
    (setvar "clayer" "Dimensions")
   ) ; end condition 7
   ((= thecommandstart "DIMANGULAR")
    (setvar "clayer" "Dimensions")
   ) ; end condition 8
   ((= thecommandstart "DIMORDINATE")
    (setvar "clayer" "Dimensions")
   ) ; end condition 9
   ((= thecommandstart "QLEADER")
    (setvar "clayer" "Dimensions")
   ) ; end condition 10

 ;        ---------------------------

   ((= thecommandstart "+VPORTS")
    (setvar "clayer" "DEFPOINTS")
   ) ; end condition 11
   ((= thecommandstart "-VPORTS")
    (setvar "clayer" "DEFPOINTS")
   ) ; end condition 12

 ;        ---------------------------

   ((= thecommandstart "BHATCH")
    (setvar "clayer" "HATCH")
   ) ; end condition 13
   ) ; end cond
   (princ)
) ; end startcommand

(defun endCommand (calling-reactor endcommandInfo / thecommandend)
   (setq thecommandend (nth 0 endcommandInfo))
   (cond
   ((= thecommandend "TEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 1
   ((= thecommandend "MTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 2
   ((= thecommandend "DTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 3

 ;        ---------------------------

   ((= thecommandend "DIMLINEAR")
    (setvar "clayer" oldlay)
   ) ; end condition 4
   ((= thecommandend "DIMALIGNED")
    (setvar "clayer" oldlay)
   ) ; end condition 5
   ((= thecommandend "DIMRADIUS")
    (setvar "clayer" oldlay)
   ) ; end condition 6
   ((= thecommandend "DIMDIAMETER")
    (setvar "clayer" oldlay)
   ) ; end condition 7
   ((= thecommandend "DIMANGULAR")
    (setvar "clayer" oldlay)
   ) ; end condition 8
   ((= thecommandend "DIMORDINATE")
    (setvar "clayer" oldlay)
   ) ; end condition 9
   ((= thecommandend "QLEADER")
    (setvar "clayer" oldlay)
   ) ; end condition 10

 ;        ---------------------------

   ((= thecommandend "+VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 11
   ((= thecommandend "-VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 12

 ;        ---------------------------

   ((= thecommandend "BHATCH")
    (setvar "clayer" oldlay)
   ) ; end condition 13
   ) ; end cond
   (princ)
) ; end endCommand

(defun cancelCommand (calling-reactor cancelcommandInfo / thecommandcancel)
   (setq thecommandcancel (nth 0 cancelcommandInfo))
   (cond
   ((= thecommandcancel "TEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 1
   ((= thecommandcancel "MTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 2
   ((= thecommandcancel "DTEXT")
    (setvar "clayer" oldlay)
   ) ; end condition 3

 ;        ---------------------------

   ((= thecommandcancel "DIMLINEAR")
    (setvar "clayer" oldlay)
   ) ; end condition 4
   ((= thecommandcancel "DIMALIGNED")
    (setvar "clayer" oldlay)
   ) ; end condition 5
   ((= thecommandcancel "DIMRADIUS")
    (setvar "clayer" oldlay)
   ) ; end condition 6
   ((= thecommandcancel "DIMDIAMETER")
    (setvar "clayer" oldlay)
   ) ; end condition 7
   ((= thecommandcancel "DIMANGULAR")
    (setvar "clayer" oldlay)
   ) ; end condition 8
   ((= thecommandcancel "DIMORDINATE")
    (setvar "clayer" oldlay)
   ) ; end condition 9
   ((= thecommandcancel "QLEADER")
    (setvar "clayer" oldlay)
   ) ; end condition 10

 ;        ---------------------------

   ((= thecommandcancel "+VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 11
   ((= thecommandcancel "-VPORTS")
    (setvar "clayer" oldlay)
   ) ; end condition 12

 ;        ---------------------------

   ((= thecommandcancel "BHATCH")
    (setvar "clayer" oldlay)
   ) ; end condition 13
   ) ; end cond
   (princ)
) ; end cancelCommand

(defun makelay (lay / oldlay)
   (if    (not (tblsearch "LAYER" lay))
   (progn
       (setq oldlay (getvar "clayer"))
       (setvar "cmdecho" 0)
       (command "-layer" "m" lay "")
       (setvar "cmdecho" 1)
       (setvar "clayer" oldlay)
   ) ;_  end progn
   ) ;_  end if
) ;_  end defun

(mapcar 'makelay '("Dimensions" "DEFPOINTS"))

(if (not (tblsearch "LAYER" "TEXT"))
   (progn
   (setq oldlayer (getvar "clayer"))
   (setvar "cmdecho" 0)
   (command "-layer" "m" "TEXT" "c" "2" "TEXT" "")
   (setvar "cmdecho" 1)
   (setvar "clayer" oldlayer)
   ) ;_  end progn
) ;_  end if

(if (not (tblsearch "LAYER" "HATCH"))
   (progn
   (setq oldlayer (getvar "clayer"))
   (setvar "cmdecho" 0)
   (command "-layer" "m" "HATCH" "c" "8" "HATCH" "")
   (setvar "cmdecho" 1)
   (setvar "clayer" oldlayer)
   ) ;_  end progn
) ;_  end if

[gazzalp]

I get this with dimlinear: Command: _dimlinear ; error: AutoCAD variable setting rejected: "clayer" but its happening with all the commands... i dont see how it could be working on yours and not on mine though

[Lee Mac]

See video.

Reactor.zip

[chulse]

Try this:

 

-layer;"m";"Dimension";;

 

Oops. Forgot the "-"...

 

Thanks for covering me!

[Lee Mac]

Oops. Forgot the "-"...

 

Thanks for covering me!

 

 

No probs - you had the right idea anyway