本帖最后由 caoyin 于 2011-8-12 08:43 编辑
CAD自带的倒角CHA和倒圆角F，在倒一些特殊的数值时很麻烦，如0.19、4.86、79等，输入时很麻烦，因此自己就写了这个程序。
不足之处请指教。
网友答: 能否做成框选的呢？
网友答:
可能使用环境不一样吧 这个功能在我这里 超级方便 。。。唯一的缺点就是 两个圆弧间的交点不能圆角，网友答:
其实这样才不方便。
要圆角的线段有一定规律，
每次都要准确点在线上。网友答: 怎么我插入的代码不像其它人那样可以滚动呢？网友答: 程序有点长而且不能框选和连续倒角~网友答:
网友答:
网友答:
太短，滚不起来啊网友答:
网友答:
就是不能记忆上次输入和连续网友答:
本帖最后由 amook147 于 2025-8-25 17:19 编辑
我这慢走丝统赢的插件里的 快速圆角 很方便 不知道能不能单独做出来这样的效果。。。。
倒角也是一样的原理
CAD自带的倒角CHA和倒圆角F，在倒一些特殊的数值时很麻烦，如0.19、4.86、79等，输入时很麻烦，因此自己就写了这个程序。
- (DEFUN C:15(/ OLD A B C OS) ;用于快捷倒角！！
- (PRINC "\012欢迎使用快捷倒角！XRO 2011.06.12")
- (SETQ OS(GETVAR "OSMODE"))
- (SETVAR "OSMODE" 16383)
- (SETQ OLD(GETVAR "CHAMMODE"))
- (SETVAR "CHAMMODE" 0)
- (SETQ A(GETVAR "CHAMFERA"))
- (SETQ B(GETVAR "CHAMFERB"))
- (SETQ C(GETREAL "\012请输入倒角大小："))
- (IF (= C NIL)
- (PROGN
- (SETVAR "CHAMFERA" A)
- (SETVAR "CHAMFERB" B)
- )
- (PROGN
- (SETVAR "CHAMFERA" C)
- (SETVAR "CHAMFERB" C)
- )
- );ENF IF
- (COMMAND "_CHAMFER" )
- (SETVAR "CHAMMODE" OLD)
- (SETVAR "OSMODE" OS)
- (GC)
- )
- (defun c:FR(/ r a B) ;用于快捷倒圆角！！
- (princ "\n 欢迎使用快捷倒圆角 :\n")
- (SETQ A (GETVAR "FILLETRAD"))
- (SETQ B (GETREAL "\012请输入倒角半径："))
- (IF (= B NIL) (SETQ B A) )
- (SETVAR "FILLETRAD" B)
- (command "_fillet" PAUSE PAUSE);
- (PRINC "\n顺利完成，收工!")
- (PRINC)
- (GC)
- )
不足之处请指教。
网友答: 能否做成框选的呢？
网友答:
gzcsun 发表于 2025-8-26 09:44
其实这样才不方便。
要圆角的线段有一定规律，
每次都要准确点在线上。
可能使用环境不一样吧 这个功能在我这里 超级方便 。。。唯一的缺点就是 两个圆弧间的交点不能圆角，网友答:
amook147 发表于 2025-8-25 17:18
我这慢走丝统赢的插件里的 快速圆角 很方便 不知道能不能单独做出来这样的效果。。。。
倒角也是一样的原 ...
其实这样才不方便。
要圆角的线段有一定规律，
每次都要准确点在线上。网友答: 怎么我插入的代码不像其它人那样可以滚动呢？网友答: 程序有点长而且不能框选和连续倒角~网友答:
网友答:
网友答:
革天明 发表于 2011-8-12 08:35
怎么我插入的代码不像其它人那样可以滚动呢？
太短，滚不起来啊网友答:
网友答:
就是不能记忆上次输入和连续网友答:
本帖最后由 amook147 于 2025-8-25 17:19 编辑 我这慢走丝统赢的插件里的 快速圆角 很方便 不知道能不能单独做出来这样的效果。。。。
倒角也是一样的原理