Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

KeithSWD
310 Vistas, 1 Respuesta

Problem redefining hatch command

I have the following lines in a lisp routine which I load with Startup Suite. I want to redefine the hatch command to ensure hatch associativity is selected by default:

 

(defun c:hatch ()
(if (= (getvar “hpassoc”) 0)
(setvar “hpassoc” 1)
)
(command “.hatch”)
)


(command “undefine” “hatch”)

 

It doesn't seem to be working, and undefining 'HATCH' seems to break the 'h' keyboard shortcut defined in the PGP file, so that "h" brings up HALOGAP.

I've tried putting the "undefine" both before and after the replacement hatch function, but it doesn't seem to make any difference.

 

Not sure what I am doing wrong...?

 

thanks in advance