|
|
本帖最后由 878276777 于 2012-3-1 14:25 编辑
- X& O, C0 c) `8 M) a5 w5 D v( a- ;;光标旋转。
7 p# K) c* k5 x: j - ;;十进制输入任意角度。
* W4 j1 r4 G7 D" ^: S& \3 _ - ;;命令：zhuan
2 I2 h( l. l/ B- h( ?. t+ _3 d - (defun c:zhuan (/ fw)
( h* a% x+ }5 B* i - (setg fw (getreal "\n 请输入光标旋转十进制角度:")), `3 [5 B% n2 m4 h) ]8 g6 S6 e
- (setvar "snapang" (* fw(/ pi 180)))
- u% d9 V) ]3 r: e: z: P - (prinl)1 s) l R' s; X
- + u& i* B+ v4 R* ]& B# Q2 |) P: h
- (prompt " \n<< c:zhuan >> 设计者 XXX " )
* ^) ~6 {8 c3 O @9 R. n - (prinl)
|
|
发表于 2012-3-1 10:15