- 积分
- 643
UID4091
主题
在线时间 小时
注册时间2006-1-25
|
发表于 2006-11-20 11:21:40
|
显示全部楼层
来自: 中国福建福州
我编一个命令,共大家参考。
% O+ a8 ]) ~+ Z8 z(defun c:jj()
4 W, A8 }9 T6 N' B# x2 `(setq yuanjiao (getvar "FILLETRAD"))( j$ Q1 w9 X$ d2 \
(setvar "FILLETRAD" 0)8 T# s5 @2 o/ W2 J, g
(prompt "\n选择对象")
1 J5 [" ?3 W3 J. }(command "FILLET" pause pause)
/ V# ~2 L7 P0 F2 B' \7 E! O(setvar "FILLETRAD" yuanjiao)& k% l4 Y8 z, h( n Z, d: j$ @
(princ)
0 Q, b) b& w# Q7 X/ {/ J0 C) |
|