hi, I need to find the command that allow you to change your cursor in 45 degree. I also need to know the macro of this command ?
Thanks !
|
hi, I need to find the command that allow you to change your cursor in 45 degree. I also need to know the macro of this command ?
Thanks !
I have the following in my acad.lsp file...
;;===================SHORTCUT COMMANDS============================
(defun C:0()(command "SNAPANG" 0))
(defun C:45()(command "SNAPANG" 45))
(defun C:30()(command "SNAPANG" 30))
(defun C:60()(command "SNAPANG" 60))
I use a lisp routine called RCH.lsp. I found it on the Internet and use it extensively. Thanks to whom ever wrote it. I do not take credit for it ...
(prompt "\n...RCH loaded. Type RCH to start.......")
(defun C:RCH (/ r e p1 p2)
(graphscr)
(initget "Entity")
(setq r
(getangle "\nSnap rotation angle/<Entity>: "))
(cond
( (numberp r)
(setvar "snapang" r))
( (and (or (not r) (eq r "Entity"))
(setq e (entsel))
(setq p1 (osnap (cadr e) "qui,end"))
(setq p2 (osnap (cadr e) "qui,mid")))
(setvar "snapang" (angle p1 p2)))
(t (princ "\nInvalid selection.")))
(princ)
)
(princ)
One must remember that SNAPANG only works with your ortho turned on. If polar tracking is set, ortho turns off, but the cursor still turns at the specified SNAPANG, but does not snap to it. I prefer using polar tracking and setting the POLARANG variable.