- 积分
- 643
UID4091
主题
在线时间 小时
注册时间2006-1-25
|
发表于 2006-11-20 11:21:40
|
显示全部楼层
来自: 中国福建福州
我编一个命令,共大家参考。
+ H+ v+ |$ T- A3 v8 R(defun c:jj()
$ g x I- u0 b2 p4 K(setq yuanjiao (getvar "FILLETRAD")): g% {* U- _, j7 m6 O* ~% l
(setvar "FILLETRAD" 0)
) ?, O, p4 b, \(prompt "\n选择对象")
1 g7 l1 ]+ p5 K! U; }3 H$ ~(command "FILLET" pause pause)% u% O- B% @1 y8 ~5 G
(setvar "FILLETRAD" yuanjiao), L. c, \. V; [1 g5 E
(princ)5 {5 _& c- h! p' C3 z
) |
|