|
|
本帖最后由 878276777 于 2012-3-1 14:25 编辑 " Z9 L$ s/ W1 h. P" L
- ;;光标旋转。$ k# K. K# z, f4 [- Y/ ?; e
- ;;十进制输入任意角度。2 r9 {4 p; X1 B: }/ l
- ;;命令：zhuan- } t( p m7 w. E
- (defun c:zhuan (/ fw)
) l" e2 [! T1 o( F - (setg fw (getreal "\n 请输入光标旋转十进制角度:"))
- Q* s( ]( Y1 J$ T2 W4 B1 r$ n - (setvar "snapang" (* fw(/ pi 180)))
) Q" k; @6 V- \6 V a# _. T - (prinl)
1 G/ H( ] [' K0 X" l - ( g: t5 h$ _. G* f* r8 {& {
- (prompt " \n<< c:zhuan >> 设计者 XXX " )
- y. T" G O, ?2 }% Q6 h9 E - (prinl)
|
|
发表于 2012-3-1 10:15