[讨论]：还原实体.

陌生人 · 发表于 2003-12-24 20:33:38

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

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

×

如何编程实现下图中红线内的功能?

iam0411 · 发表于 2003-12-24 20:40:07

好像工具箱里有？

zhynt · 发表于 2003-12-24 21:19:32

一个不成熟的程序：
(defun c:a_a ()
  (setq a1 (car (entsel "\n选择需要修补的第一根弧线"))
a2 (car (entsel "\n选择需要修补的第二根弧线"))
)
  (setq a1ent (entget a1)
a2ent (entget a2)
)
  (setq a2ent (subst (assoc 51 a1ent) (assoc 51 a2ent) a2ent))
  (entdel a1)
  (entmod a2ent)
  )

陌生人 · 发表于 2003-12-24 22:25:44

太简单了些.还有要先判断能否合并,看圆心,半径是否相等. ...

zhynt · 发表于 2003-12-24 22:31:26

呵呵，要不怎么叫“不成熟的程序”呢，不过要加上判断倒不是难事。比较麻烦的是判断圆弧的起始角度。上面的程序只能有一种选择方法，反过来选就不对了。

eachy · 发表于 2003-12-25 00:11:40

最早看的这个Lisp 还是在天正3 中 - 连接线段

mmmm · 发表于 2003-12-25 12:11:24

0）判断是否可以合并
1）顺次得到两个圆弧的顶点
2）删除其中任意一个圆弧如ARC2
3）依次尝试修改ARC1的端点到原来ARC2的两个端点，以原来ARC1的长度为标准进行判断。
长：留下新端点
短：恢复原端点

zhynt · 发表于 2003-12-25 23:00:15

这是天正3里的连接线段的效果：

eachy · 发表于 2003-12-26 01:03:34

你没有试圆心重合，半径相同的两段弧

陌生人 · 发表于 2003-12-26 01:25:59

这个图怎么看出效果来?

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

[讨论]：还原实体.

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

相关帖子