【已解决】Autolisp二条相交直线如何倒圆角

冰禁

请教各位大神
Autolisp二条相交的直线，如何倒圆角？
思路或者范例代码，谢谢！

大概情况如图：

冰禁

是获取二条直线的中点，然后  （fillet 直线1中点  直线2中点）
还是
获取二条直线相邻的二个点，然后fillet二条直线的点？
或者是。。。
请大神们指教，谢谢！

newer

冰禁 发表于 2019-5-15 15:14
是获取二条直线的中点，然后  （fillet 直线1中点  直线2中点）
还是
获取二条直线相邻的二个点，然后fil ...

手工在CAD中，你拾取哪地方，代码里面就给哪地方。(entsel)的结果给代码

冰禁

newer 发表于 2019-5-15 16:31
手工在CAD中，你拾取哪地方，代码里面就给哪地方。(entsel)的结果给代码

版主大大，请问你一个问题，我不是用鼠标点选2条线
(setq pt1 (entsel "\n请选择第一条边:"))
(setq pt2 (entsel "\n请选择第二条边:"))

我是画一条直线，保存一个实体
(kmc_pip_lin  "P" (list p1 p2) nil)
(setq ob1 (entlast))
(kmc_pip_lin  "P" (list p3 p4) nil)
(setq ob2 (entlast))

然后，设置半径，倒圆，提示半径过大，但是半径大小肯定是正确的，因为如果我用entsel手工点这两条线，半径不变，可以自动倒圆
(setvar "filletrad" rf-1)
(command "fillet" ob1 ob2)

这是为什么呢，是不是因为线有交叉的关系？

Underway

当年亦是卡于此处
这样理解吧

(setq ob1 (entsel "\n请选择第一条边:"))
(setq ob2 (entsel "\n请选择第二条边:"))
(command "fillet" ob1 ob2)

newer

冰禁 发表于 2019-5-16 13:49
版主大大，请问你一个问题，我不是用鼠标点选2条线
(setq pt1 (entsel "\n请选择第一条边:"))
(setq  ...

ob1和ob2不要是实体名，要用(entsel)的结果，就是实体和点组成的表，来告诉命令哪个实体哪个位置

kqqt6236

直接调用fillet不可以吗

jshailinqq

直接倒圆角，不行吗

冰禁

kqqt6236 发表于 2019-5-17 00:50
直接调用fillet不可以吗

autocad2019初始安装版本没问题，
更新过补丁后，就不能直接（fillet 实体1 实体2)

冰禁

newer 发表于 2019-5-16 14:24
ob1和ob2不要是实体名，要用(entsel)的结果，就是实体和点组成的表，来告诉命令哪个实体哪个位置

谢谢版主大人，问题解决了，按照你的指点，我去获取了二条直线的中点，然后通过（filler 线1的中点 线2的中点） ，现在已经可以正常倒圆角了。谢谢了！

反正也不知道什么原因，也可能是二条直线有相交的情况，2019版本更新了补丁包后，直接filler实体就不行了，提示半径过大

Lisphk

冰禁 发表于 2019-5-20 10:12
谢谢版主大人，问题解决了，按照你的指点，我去获取了二条直线的中点，然后通过（filler 线1的中点 线2的 ...

你的半径太大，导不了角，给你提示是很友好的啊。