已知一段弧的起点和终点以及其凸度,求其圆心

newer · 发表于 2017-1-21 02:17:22

这个问题求出弧线中点，然后用几何库的AcGeCircArc3d 通过三点构造函数，得到几何实体，然后直接用center()方法求得。

AcGeCircArc3d(
const AcGePoint3d& startPoint,
const AcGePoint3d& pnt,
const AcGePoint3d& endPoint);
startPoint Input start point of arc
pnt Input point on arc
endPoint Input endpoint of arc
Constructs an arc through three points. None of the three points may be coincindent and they may not be colinear. This constructor always constructs a bounded arc and cannot be used to construct a full circle.

[ScreenCast]114b864e-5e83-4733-9a4d-2f7f784da71b[/ScreenCast]

下面是用LISP实现的这个过程

(defun c:tt ()
  (if (and
        (setq p1 (getpoint "\nfirst point:"))
        (setq p2 (getpoint p1 "\nsecond point:"))
        (setq bulge (getreal "\n输入bulge:"))
      )
    (progn
      (setq dis (distance p1 p2)
            v (mapcar
                '-
                p2
                p1
              )
            vx (xdrx_vector_normalize v)
            pmid (mapcar
                   '+
                   p1
                   (xdrx_vector_product vx (/ dis 2.0))
                 )
            vy (xdrx_vector_perpvector vx)
            h (* dis (/ (abs bulge) 2))
      )
      (if (> bulge 0.0)
        (setq vy (xdrx_vector_negate vy))
      )
      (setq pmid (mapcar
                   '+
                   pmid
                   (xdrx_vector_product vy h)
                 )
      )
      (setq garc (xdge::constructor "kCircArc3d" p1 pmid p2)
            cen (xdge::getpropertyvalue garc "center")
            line1 (xdge::constructor "kLineSeg3d" cen p1)
            line2 (xdge::constructor "kLineSeg3d" p2 cen)
            poly (xdge::constructor "kCompositeCrv3d" (list line2 line1 garc))
      )
      (xdge::entity:make poly)
      (xdrx_setpropertyvalue (entlast) "color" (xdrx_math_rand 255))
      (xdge::free)
    )
  )
  (princ)
)

liuzpzp007 · 发表于 2017-2-6 10:42:21

谢谢楼主分享

lwcox0908 · 发表于 2017-2-13 11:31:39

学习学习，谢谢！

fengzhizzx · 发表于 2017-9-29 15:23:02

谢谢分享！！！

scnjlwb · 发表于 2018-2-26 22:49:58

谢谢分享！！！

pengfei2010 · 发表于 2018-3-1 14:44:53

正好需要学习一下

xinxirong · 发表于 2018-3-17 10:51:32

kkjhdhhddbbdbf

qq2222081387 · 发表于 2018-7-14 15:00:35

zjy2999 · 发表于 2018-8-8 13:59:29

xuexi!!!!!!!!!!!!!!!!

sicky111 · 发表于 2018-8-31 23:03:29

回复学习。

cable2004 · 发表于 2020-3-4 01:16:55

支持LZ的学习专贴

鬼子兵 · 发表于 2020-3-27 13:33:58

学习一下凸度的算法，谢谢！

南山不雨 · 发表于 2021-5-14 18:01:47

向你学习，回复看帖

qxlonmsn · 发表于 2021-7-7 09:46:34

回复来学习

mocheng · 发表于 2021-9-29 10:51:27

回复学习学习。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

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