- 积分
- 643
UID4091
主题
在线时间 小时
注册时间2006-1-25
|
发表于 2006-11-20 11:21:40
|
显示全部楼层
来自: 中国福建福州
我编一个命令,共大家参考。
/ O; N; j# {6 D- @- M% e$ Y I(defun c:jj()
; J! }, u2 _% U. H(setq yuanjiao (getvar "FILLETRAD"))
& l5 P) D$ Z/ |$ x(setvar "FILLETRAD" 0)
5 L, |2 r" M4 F+ r" [/ q(prompt "\n选择对象")
B$ i2 @! N3 i/ w(command "FILLET" pause pause)$ o0 ^, ?2 J( _7 G, m+ j
(setvar "FILLETRAD" yuanjiao)3 w- S" C% J4 g* _& l
(princ)) D5 f" C" P4 Y4 ~8 `3 p6 i/ ]
) |
|