社区 › AutoLISP/Visual LISP 编程技术 › 已知直角三角形的三个点，怎么求得中心点的坐标

述学 发表于 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
)

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 编辑

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

查看完整版本: 已知直角三角形的三个点，怎么求得中心点的坐标