求求 , 怎么获取圆角矩形中的4个圆角的中点坐标啊

as6424

  1.获取图元
  2.遍历顶点
  3.将相邻顶点间距最小的添加进圆弧列表(怎么在循环中把坐标加入列表啊 ,用setq好像会覆盖)
  4.遍历对比相邻顶点的xy,判断圆角开口方向
  5.将相邻点xy求差值,得出半径,根据半径得出弧长,然后..然后就意识到数学的重要性了..还是不知道咋求

是这样求吗..或者应该用其他的办法实现

bonny

as6424 发表于 2024-2-4 14:47
谢谢老师 , 那我先去试试遍历判断圆弧和判断圆弧开口方向 , 那个 , 我不会将循环中提取的元素添加进指定 ...

其中一种方式，仅供参考

2. (defun c:tt (/ e p1 p2 p3 p4)
   
3.         (if (setq e (car (entsel)))
   
4.                 (mapcar '(lambda(x)(vlax-curve-getClosestPointTo e x))
   
5.                         (progn
   
6.                                 (vla-GetBoundingBox (vlax-ename->vla-object e) 'p1 'p3)
   
7.                                 (setq p1 (vlax-safearray->list p1)
   
8.                                         p3 (vlax-safearray->list p3)
   
9.                                         p2 (list (car p3)(cadr p1) 0.0)
   
10.                                         p4 (list (car p1)(cadr p3) 0.0)
    
11.                                 )
    
12.                                 (list p1 p2 p3 p4)
    
13.                         )
    
14.                 )
    
15.         )
    
16. )

(defun c:tt (/ e p1 p2 p3 p4)<br />         (if (setq e (car (entsel)))<br />                 (mapcar '(lambda(x)(vlax-curve-getClosestPointTo e x)) <br />                         (progn <br />                                 (vla-GetBoundingBox (vlax-ename->vla-object e) 'p1 'p3)<br />                                 (setq p1 (vlax-safearray->list p1)<br />                                         p3 (vlax-safearray->list p3)<br />                                         p2 (list (car p3)(cadr p1) 0.0)<br />                                         p4 (list (car p1)(cadr p3) 0.0)<br />                                 )<br />                                 (list p1 p2 p3 p4)<br />                         )<br />                 )<br />         )<br /> )

x_s_s_1

炸开法

1. (defun c:tt  (/ obj)
   
2.     (setq obj (vlax-ename->vla-object (car (entsel))))
   
3.     (foreach obj  (vlax-safearray->list
   
4.                       (vlax-variant-value (vla-explode obj)))
   
5.         (if (= "AcDbArc" (vla-get-ObjectName obj))
   
6.             (entmake
   
7.                 (list
   
8.                     '(0 . "point")
   
9.                     (cons 10
   
10.                           (vlax-curve-getpointatparam
    
11.                               obj
    
12.                               (* 0.5
    
13.                                  (+ (vlax-curve-getstartparam
    
14.                                         obj)
    
15.                                     (vlax-curve-getendparam
    
16.                                         obj))))))))
    
17.         (vla-delete obj)))

(defun c:tt  (/ obj)<br />     (setq obj (vlax-ename->vla-object (car (entsel))))<br />     (foreach obj  (vlax-safearray->list<br />                       (vlax-variant-value (vla-explode obj)))<br />         (if (= "AcDbArc" (vla-get-ObjectName obj))<br />             (entmake<br />                 (list<br />                     '(0 . "point")<br />                     (cons 10<br />                           (vlax-curve-getpointatparam<br />                               obj<br />                               (* 0.5<br />                                  (+ (vlax-curve-getstartparam<br />                                         obj)<br />                                     (vlax-curve-getendparam<br />                                         obj))))))))<br />         (vla-delete obj)))

x_s_s_1

这个稍微通用一点

1. (defun c:tt  (/ en i pt1 pt2 pt3 u v)
   
2.     (setq en (car (entsel))
   
3.           i  (vlax-curve-getendparam en))
   
4.     (repeat (fix i)
   
5.         (setq pt1 (vlax-curve-getpointatparam en i)
   
6.               pt2 (vlax-curve-getpointatparam en (1- i)))
   
7.         (setq pt3 (vlax-curve-getpointatparam
   
8.                       en
   
9.                       (+ (setq i (1- i)) 0.5))
   
10.               u          (mapcar '- pt1 pt3)
    
11.               v          (mapcar '- pt2 pt3))
    
12.         (if (not (equal        '(0. 0. 0.)
    
13.                         (list (- (* (cadr u) (caddr v))
    
14.                                  (* (cadr v) (caddr u)))
    
15.                               (- (* (car v) (caddr u))
    
16.                                  (* (car u) (caddr v)))
    
17.                               (- (* (car u) (cadr v))
    
18.                                  (* (car v) (cadr u))))
    
19.                         1e-6))
    
20.             (entmake (list '(0 . "point") (cons 10 pt3))))))

(defun c:tt  (/ en i pt1 pt2 pt3 u v)<br />     (setq en (car (entsel))<br />           i  (vlax-curve-getendparam en))<br />     (repeat (fix i)<br />         (setq pt1 (vlax-curve-getpointatparam en i)<br />               pt2 (vlax-curve-getpointatparam en (1- i)))<br />         (setq pt3 (vlax-curve-getpointatparam<br />                       en<br />                       (+ (setq i (1- i)) 0.5))<br />               u          (mapcar '- pt1 pt3)<br />               v          (mapcar '- pt2 pt3))<br />         (if (not (equal        '(0. 0. 0.)<br />                         (list (- (* (cadr u) (caddr v))<br />                                  (* (cadr v) (caddr u)))<br />                               (- (* (car v) (caddr u))<br />                                  (* (car u) (caddr v)))<br />                               (- (* (car u) (cadr v))<br />                                  (* (car v) (cadr u))))<br />                         1e-6))<br />             (entmake (list '(0 . "point") (cons 10 pt3))))))

bonny

包围盒顶点到曲线的最近点

as6424

bonny 发表于 2024-2-4 14:21
包围盒顶点到曲线的最近点

谢谢老师 , 那我先去试试遍历判断圆弧和判断圆弧开口方向 , 那个 , 我不会将循环中提取的元素添加进指定列表 , 是只能用cons吗 , 不能用下标指定赋值吗

你有种再说一遍

遍历polyline的时候有凸度,从而判断是弧段,也可以根据正负数判断开口方向,接着自己算也好,用曲线求长度也行

as6424

bonny 发表于 2024-2-4 14:54
其中一种方式，仅供参考

谢谢老师 , 我去学习下lambda和mapcar

as6424

你有种再说一遍 发表于 2024-2-4 14:53
遍历polyline的时候有凸度,从而判断是弧段,也可以根据正负数判断开口方向,接着自己算也好,用曲线求长度也行

谢谢老师提供思路 , 不过目前甚至不理解凸度..

as6424

x_s_s_1 发表于 2024-2-5 11:20
这个稍微通用一点

我消化一下, 谢谢老师

xyp1964

复制炸开求圆心最直接