|
本帖最后由 878276777 于 2012-3-1 14:25 编辑
! W$ P1 B: R& i- Y+ U& {& x7 T5 ^- ;;光标旋转。
8 X8 w. y5 M4 M% A# O1 m - ;;十进制输入任意角度。4 Y( G. W8 y$ u+ `
- ;;命令:zhuan4 e3 k) d c$ L
- (defun c:zhuan (/ fw)* L8 A" u# m. l* R2 M, }' P
- (setg fw (getreal "\n 请输入光标旋转十进制角度:"))% C( b! ]2 c% x
- (setvar "snapang" (* fw(/ pi 180)))& ^$ j* o; B F
- (prinl)
& U' J9 |2 j0 v: a0 ` - E) y R, Y9 B8 R
- (prompt " \n<< c:zhuan >> 设计者 XXX " )
6 w: J0 p4 X, P8 U- Z, P; [ - (prinl)
复制代码 |
|