|
|
本帖最后由 878276777 于 2012-3-1 14:25 编辑 ! M9 G- D8 d+ x2 Q' }) Q5 _2 p
- ;;光标旋转。9 F( H$ `) ]% d1 d- k/ w" Y
- ;;十进制输入任意角度。9 r6 _6 T! W" n
- ;;命令：zhuan
; r2 i2 S. `+ @5 D2 l& k - (defun c:zhuan (/ fw)
1 C! b& V) F, `$ A- x - (setg fw (getreal "\n 请输入光标旋转十进制角度:"))
0 H- N0 Z9 l6 [/ Z4 s4 k3 y+ K: {: F - (setvar "snapang" (* fw(/ pi 180)))
2 w" v* h; B1 D' h - (prinl)% P( f5 j e6 \- I: J
- " B8 B2 @% m2 S+ Y+ h! `
- (prompt " \n<< c:zhuan >> 设计者 XXX " )
. O$ _# x7 O% E; C - (prinl)
|
|
发表于 2012-3-1 10:15