平常我用的快捷键

50573265 · 发表于 2004-7-29 09:54:00

(defun c:vv () (command "box") (prin1))
(defun c:cc () (command "cylinder") (prin1))
(defun c:wf () (command "shademode"3) (prin1))
(defun c:gs () (command "shademode" "g") (prin1))
(defun c:30 () (setvar "snapang" (* 30 (/ pi 180))) (prin1))
(defun c:0 () (setvar "snapang" 0) (prin1))
(defun c:15 () (setvar "snapang" (* 15 (/ pi 180))) (prin1))
(defun c:45 () (setvar "snapang" (* 45 (/ pi 180))) (prin1))
(defun c:60 () (setvar "snapang" (* 60 (/ pi 180))) (prin1))
(defun c:75 () (setvar "snapang" (* 75 (/ pi 180))) (prin1))
(defun c:ss () (command "ucs" "o") (prin1))
(defun c:sd () (command "ucs" "x") (prin1))
(defun c:sa () (command "ucs" "y") (prin1))
(defun c:sw () (command "ucs" "z") (prin1))
(defun c:fr () (command "view" "swiso") (prin1))
(defun c:rf () (command "view" "seiso") (prin1))
(defun c:ft () (command "view" "neiso") (prin1))
(defun c:tf () (command "view" "nwiso") (prin1))
(defun c:fv () (command "view" "top") (prin1))
(defun c:fg () (command "view" "left") (prin1))
(defun c:fd () (command "view" "front") (prin1))
(defun c:vf () (command "view" "bottom") (prin1))
(defun c:gf () (command "view" "right") (prin1))
(defun c:df () (command "view" "back") (prin1))
(defun c:zs () (command "zoom" "0.8x") (prin1))
(defun c:zz () (command "zoom" "1.25x") (prin1))
(defun c:za () (command "zoom" "all") (prin1))
(defun c:ze () (command "zoom" "e") (prin1))
(defun c:zw () (command "zoom" "w") (prin1))