|
本帖最后由 878276777 于 2012-3-1 14:25 编辑
, q, K% M, D0 p: Q* X- Z2 C8 u- N8 W( l- ;;光标旋转。
0 o( t; K% ]9 f0 V - ;;十进制输入任意角度。3 ^' i* L7 Q! E7 f
- ;;命令:zhuan
! J, y) ^1 P9 n% U - (defun c:zhuan (/ fw)
( h: Y+ p* e- G. X a2 B) w - (setg fw (getreal "\n 请输入光标旋转十进制角度:"))% K- r) o1 _ }
- (setvar "snapang" (* fw(/ pi 180)))
: w, m5 h6 V" \: H6 e - (prinl)4 I4 W u; ~( U
- 2 o! `" \ x; z1 L! E
- (prompt " \n<< c:zhuan >> 设计者 XXX " ) + Q m5 H# m: h) x! d" T( L
- (prinl)
复制代码 |
|