反向倒圆角

ynhh · 发表于 2018-11-26 09:45:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

反向倒圆角就是倒圆角中的半径加负号
只是CAD中不能输入负号
请教如何自动倒反圆角
谢谢
反圆角.gif

marting · 发表于 2018-11-26 10:28:10

正倒角后，把BUGLE设置反就行了

marting · 发表于 2018-11-26 10:36:31

(defun c:tt ()
(if (and (setq inx (getint "\n输入顶点索引号<退出>:"))
(setq e (car (entsel "\n拾取多段线<退出>:")))
)
(progn (setq o (vlax-ename->vla-object e))
(setq bulge (vla-getbulge o inx))
(if (/= bulge 0.0)
(progn (vla-setbulge o inx (- bulge)))
)
)
)
(princ)
)

ynhh · 发表于 2018-11-26 11:14:10

marting 发表于 2018-11-26 10:36

谢谢大师指点
我想是在还没倒圆角的情况下
可选择输入半径后再倒反向圆角
谢谢

newer · 发表于 2018-11-26 11:32:19

ynhh 发表于 2018-11-26 11:14
谢谢大师指点
我想是在还没倒圆角的情况下
可选择输入半径后再倒反向圆角

不是给你思路了，你代码先倒正角，倒好后，把 bulge 取反，就是你要的结果

ynhh · 发表于 2018-11-26 13:36:46

谢谢
还以为是能一次性完成啊
谢谢指点

newer · 发表于 2018-11-26 13:45:08

本帖最后由 newer 于 2018-11-26 13:47 编辑

ynhh 发表于 2018-11-26 13:36
谢谢
还以为是能一次性完成啊
谢谢指点

晕了，本来就是一次完成啊，告诉你的是，
你的代码，先根据半径按倒正角做，导出来后，马上修改BULGE
为什么要先按倒正角做，因为正角你可以根据曲线相切等条件能求出来，
你也可以认为这个是中间步骤，怎么不是一次完成了？

也没让你提供两个命令，一个倒正角，一个是把他们变反。

用户也看不到正角，直接看到的是反角

ynhh · 发表于 2018-11-26 16:12:00

谢谢版主指导
我再慢慢学习研究看看
听训浩辰2018就有此功能
也想学习一下
谢谢您

账号		自动登录	找回密码
密码			立即注册

[求助] 反向倒圆角

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评