革天明 发表于 2011-8-12 08:34:52

自定义倒角和倒圆角

本帖最后由 caoyin 于 2011-8-12 08:43 编辑

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)
)

不足之处请指教。

下文没句号。 发表于 2023-3-20 21:42:43

能否做成框选的呢？

革天明 发表于 2011-8-12 08:35:40

怎么我插入的代码不像其它人那样可以滚动呢？

混沌初开 发表于 2013-11-30 23:13:11

程序有点长而且不能框选和连续倒角~

ctclsc 发表于 2013-12-1 08:29:11

czcxxx 发表于 2015-10-21 09:55:13

baitang36 发表于 2018-11-4 18:56:29

革天明 发表于 2011-8-12 08:35
怎么我插入的代码不像其它人那样可以滚动呢？

太短，滚不起来啊

3122733 发表于 2018-11-8 17:08:57

{:1_1:}{:1_1:}
页: [1]
查看完整版本: 自定义倒角和倒圆角