|
|
本帖最后由 878276777 于 2012-3-1 14:25 编辑 ( J, F) _ \+ T$ p$ G6 l7 N3 k5 j
- ;;光标旋转。# k& J( F8 ]* p9 c- Y- U3 X7 ^% `
- ;;十进制输入任意角度。
2 [# O$ ]/ w1 m. N+ v1 i8 g- @2 Y - ;;命令：zhuan6 `4 ]; N1 S% B% E
- (defun c:zhuan (/ fw)
' \3 j8 S* i$ X p1 b$ U - (setg fw (getreal "\n 请输入光标旋转十进制角度:"))5 x8 b$ C5 h" V5 _6 a. }- \
- (setvar "snapang" (* fw(/ pi 180)))
( n& K5 c3 Z% |) {/ o7 G - (prinl)9 G" I7 |% o6 S* Q/ h, K5 X6 x7 m
+ G2 w" O* E8 E1 n; J- (prompt " \n<< c:zhuan >> 设计者 XXX " )
" v0 w O$ d, I) S0 C! k7 E( s - (prinl)
|
|
发表于 2012-3-1 10:15