[源码]快速设置绘图角度

荒野孤行 发表于 2013-9-8 20:42:35

;;; *****设置绘图角度程序开始*****
(defun c:wdy_htjd ()
(setvar "osmode" 15359)
(setvar "cmdecho" 0)
(if (not (setq ang (getreal "\n设置十字光标角度<0>:")))
(setq ang 0)
)
(command "SNAPANG" ang)
(princ "\n★绘图角度已设置为:")
(prin1 ang)
(princ "度.\n")
(princ)
)
;;; *****设置绘图角度程序结束*****

kitefall 发表于 2013-9-10 12:51:16