(XD::Curve:GetMidPoint)返回曲线上两点的中点

newer · 发表于 2016-10-12 19:13:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::Curve:GetMidPoint (e p1 p2 / dis1 dis2 tmp1)
  (if (and
        (xdrx_curve_isclosed e)
        (not p1)
        (not p2)
      )
    (xdrx_getpropertyvalue e "midpoint")
    (progn
      (if p1
        (or
          (xdrx_point_ison p1 e)
          (setq p1 (xdrx_curve_getclosestpoint e p1))
        )
        (setq p1 (xdrx_getpropertyvalue e "startpoint"))
      )
      (if p2
        (or
          (xdrx_point_ison p2 e)
          (setq p2 (xdrx_curve_getclosestpoint e p2))
        )
        (setq p2 (xdrx_getpropertyvalue e "endpoint"))
      )
      (mapcar
        'set
        '(p1 p2)
        (mapcar
          'car
          (xdrx_points_sortoncurve e (list p1 p2))
        )
      )
      (setq dis1 (xdrx_curve_getdistatpoint e p1)
            dis2 (xdrx_curve_getdistatpoint e p2)
            tmp1 (xdrx_curve_getpointatdist e (/ (+ dis1 dis2) 2.0))
      )
    )
  )
)

yoyoho · 发表于 2016-10-13 07:12:21

感谢 N版分享实用函数!!!!

/db_自贡黄明儒_ · 发表于 2016-10-13 08:07:46

感觉有点复杂！

iLisp · 发表于 2016-10-13 09:26:31

(midp e nil nil) (midp e nil p) (midp e p nil) (midp e p1 p2)

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

[曲线] (XD::Curve:GetMidPoint)返回曲线上两点的中点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。