如何快速检验几段圆弧是否相切？

cj52000

各位好，由于工作需要，经常检验图纸是否过渡顺滑，如下图示各个圆弧之间是否为相切连接，求一个程序能快速检测，谢谢大家了！

229096767

试试看

xtjd

;测试代码
(defun c:test()
  (setq
    e1(car(entsel))                        ;弧元
    o1(vlax-ename->vla-object e1) ;对象
    c1(vlax-get o1 'center)             ;圆心
    ps1(vlax-get o1 'StartPoint)      ;起点
    pe1(vlax-get o1 'EndPoint)       ;终点
  )
  (setq
    e2(car(entsel))
    o2(vlax-ename->vla-object e2)
    c2(vlax-get o2 'center)
    ps2(vlax-get o2 'StartPoint)
    pe2(vlax-get o2 'EndPoint)
  )
  (if(or(equal ps1 ps2 1e-6)(equal ps1 pe2 1e-6)) ;交点
    (setq pt ps1)
    (setq pt pe1)
  )
  ;两圆心距离等于两半径和或差即为切圆
  (setq d0(distance c1 c2) d1(distance c1 pt) d2(distance c2 pt))
  (if(or(equal d0(+ d1 d2)1e-6)(equal d0(abs(- d1 d2))1e-6))
    (princ "相切")
    (princ "不相切")
  )
  (prin1)
)

vormittag

1. 找出所有曲线端点的列表
2. 对于每个端点，找到以其为端点的曲线，计算曲线在端点的法线方向向量
3. 找到的法线向量的叉积是零向量，则曲线相切。

革天明

可通过编程实现，有意向可联系我

天天问

刚好写过一个，其实挺简单的，可以自己写。不想自己动手的可以联系我

纵横八方

两半径 差等于圆心距离

cj52000

纵横八方 发表于 2023-2-22 11:54
两半径 差等于圆心距离

嗯嗯，是的，两半径之和等于圆心距离的也是，现在就是想弄个程序能快速一些

世井

xtjd 发表于 2023-2-22 14:19
;测试代码
(defun c:test()
  (setq

能不能框选 ，相切不动，不相切变颜色

cj52000

xtjd 发表于 2023-2-22 14:19
;测试代码
(defun c:test()
  (setq

谢谢分享，很好用，要是能框选，然后把不相切的变颜色就更完美了