- 积分
- 643
UID4091
主题
在线时间 小时
注册时间2006-1-25
|
发表于 2006-11-20 11:21:40
|
显示全部楼层
来自: 中国福建福州
我编一个命令,共大家参考。: i, T( O) [4 Q! G# z
(defun c:jj()
8 D+ p( _* a" z c: O1 M$ b(setq yuanjiao (getvar "FILLETRAD")) B9 ~2 R9 @ u, A2 `, K8 c4 n+ m
(setvar "FILLETRAD" 0)
$ m; z0 H7 v1 Q! V, n( k9 P6 R$ @(prompt "\n选择对象")
; O8 l% k$ K; D: c" f& L X(command "FILLET" pause pause): L/ t# q/ y% k. ]
(setvar "FILLETRAD" yuanjiao)
+ x7 v A# F) y5 b& r5 [; E(princ)$ p: v# ?9 g* b' t9 Z
) |
|