Pan command lisp

[Efeezy]

The Pan command doesn't work on my mouse. The button died.

does anyone have a Pan lisp? the Pan version I am looking for is the Pan with the hand cursor. not -pan.

I made this but it is garbage. I would like the dufun = 11 for my hot key.

-----------------------

Pan

(defun c:11()

(command "Pan"))

------------------

 

Thank you for your time

[ronjonp]

Ummmm .. buying a new mouse seems like the most direct answer.

Or try (setvar 'mbuttonpan 1) .. maybe it's not the mouse.

[Efeezy]

Yeah I know but I am at work right now...

[ronjonp]

Ummmm .. buying a new mouse seems like the most direct answer.

Or try (setvar 'mbuttonpan 1) .. maybe it's not the mouse.

Did you try this?

[Efeezy]

I tried to modify my pan command to 11 months ago but I suck at writing lisp.

[Efeezy]

Yes it is set to one. My poor little mouse is dying. we had a good time together at work.

[ronjonp]

Yes it is set to one. My poor little mouse is dying. we had a good time together at work.

 

... when you say you're trying to make '11' hotkey lisp are you referring to mapping to a function key?

[Efeezy]

Sorry I am not sure what you are asking. I do a lot of wire runs and fillet command so I use:

----------------------------------------------------------------------

(defun c:5()

(command "LINE"))

--------------------------------------------------------------------------

(defun c:6()

(command "fillet"))

--------------------------------------------------------------------------

 

I would like pan set up as 11 if possible and add it to my lisp list.

[Grrr]

How about RMB:

(defun pancakes:CB ( rtr args )
 (vla-SendCommand (vla-get-ActiveDocument (vlax-get-acad-object)) "PAN")
)

(foreach rtr (cdar (vlr-reactors :VLR-Mouse-reactor)) (if (= "pancakes" (vlr-data rtr)) (vlr-remove rtr)) )
(vlr-Mouse-Reactor "pancakes" '((:VLR-BeginRightClick . pancakes:CB)))
(vl-load-com)(princ)

Edited February 28, 2018 by Grrr

[Efeezy]

Unknown command "PANCAKES". Press F1 for help.

CB Constainbar ?

[Grrr]

Just load it and then use right-mouse-button to pan.

[ronjonp]

Using Grrr's idea .. this should do what you want:

(defun c:11 nil (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "PAN "))

[ronjonp]

How about RMB:

(defun pancakes:CB ( rtr args )
 (vla-SendCommand (vla-get-ActiveDocument (vlax-get-acad-object)) "PAN")
)

(foreach rtr (cdar (vlr-reactors :VLR-Editor-reactor)) (if (= "pancakes" (vlr-data rtr)) (vlr-remove rtr)) )
(vlr-Mouse-Reactor "pancakes" '((:VLR-BeginRightClick . pancakes:CB)))
(vl-load-com)(princ)

 

Cool idea but breaks the right click menu

[Grrr]

Cool idea but breaks the right click menu

 

Thanks Ron, I know I know..

Reminds me of Lee's reactor that retrieves the last command call (due my request) - I find it awesome!

 

Duh, corrected a mistake:

(cdar (vlr-reactors :VLR-[b]Mouse[/b]-reactor)

[Efeezy]

yes i tried this thank you