已知直角三角形的三个点，怎么求得中心点的坐标

述学 · 发表于 2023-12-8 10:59:08

已知直角三角形的三个顶点，要找中心点的坐标怎么写？

mahuan1279 · 发表于 2023-12-9 08:07:25

本帖最后由 mahuan1279 于 2023-12-9 08:10 编辑

三角形重心、内心、外心、垂心坐标都有公式。P垂心+2*P外心=3*P重心

ashan · 发表于 2023-12-8 11:11:04

;;取得实体或面域的面积或质量的中点，传递给get_cp的参数为图元名，返回值为图元中点坐标
(defun get_cp (en / en_name curves regionobj ss cpoint en_name)
(vl-load-com)
(setq curves (vlax-make-safearray vlax-vbObject '(0 . 0)))
(vlax-safearray-fill
curves
(list (vlax-ename->vla-object en_name))
)
(setq regionobj (vla-addregion
(vla-get-ModelSpace
(vla-get-activedocument (vlax-get-acad-object))
)
curves
)
)
(setq cpoint (vlax-safearray->list
(vlax-variant-value
(vla-get-Centroid
(vlax-safearray-get-element
(vlax-variant-value regionobj)
0
)
)
)
)
)
(vla-delete
(vlax-safearray-get-element
(vlax-variant-value regionobj)
0
)
)
cpoint
)

;;取得实体或面域的面积或质量的中点，传递给get_cp的参数为图元名，返回值为图元中点坐标 
(defun get_cp (en / en_name curves regionobj ss cpoint en_name) 
  (vl-load-com) 
  (setq curves (vlax-make-safearray vlax-vbObject '(0 . 0))) 
  (vlax-safearray-fill 
    curves 
    (list (vlax-ename->vla-object en_name)) 
  ) 
  (setq regionobj (vla-addregion 
                    (vla-get-ModelSpace 
                      (vla-get-activedocument (vlax-get-acad-object)) 
                    ) 
                    curves 
                  ) 
  ) 
  (setq cpoint (vlax-safearray->list 
                 (vlax-variant-value 
                   (vla-get-Centroid 
                     (vlax-safearray-get-element 
                       (vlax-variant-value regionobj) 
                       0 
                     ) 
                   ) 
                 ) 
               ) 
  ) 
  (vla-delete 
    (vlax-safearray-get-element 
      (vlax-variant-value regionobj) 
      0 
    ) 
  ) 
  cpoint 
)

vitalgg · 发表于 2023-12-8 11:30:35

(point:centroid (list pt1 pt2 pt3))

mahuan1279 · 发表于 2023-12-8 12:14:02

中心点是怎么定义？

飞雪神光 · 发表于 2023-12-8 12:25:31

三个角与对应边的中点连线的交点？

夏生生 · 发表于 2023-12-8 12:26:05

本帖最后由夏生生于 2023-12-8 12:58 编辑

我猜应该指的重心吧，对于空间任意三角形

(mapcar'(lambda(x)(/ x 3.))(mapcar'+ pt1 pt2 pt3))

述学 · 发表于 2023-12-8 16:18:38

夏生生发表于 2023-12-8 12:26
我猜应该指的重心吧，对于空间任意三角形

对的，是重心。谢谢大佬的代码，我研究一下。

xyp1964 · 发表于 2023-12-8 21:19:25

(defun zx-3pt (p1 p2 p3 / p12 p23)
"zx-3pt 3点重心 (zx-3pt p1 p2 p3)"
"(setq pt (zx-3pt (getpoint)(getpoint)(getpoint)))"
(defun mid (p1 p2)
(mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 p2)
)
(setq p12 (mid p1 p2)
p23 (mid p2 p3)
)
(inters p3 p12 p1 p23 nil)
)

llsheng_73 · 发表于 2023-12-10 20:35:52

本帖最后由 llsheng_73 于 2023-12-10 20:37 编辑

个人认为，对于三角形，最有意义的应该是内接圆的圆心

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

[提问] 已知直角三角形的三个点，怎么求得中心点的坐标

本帖子中包含更多资源