长风（尚品） 发表于 2021-2-20 11:49:16

圆弧的方向问题，求解

一段圆弧，延长全部到一个固定尺寸，它总是逆时针，如何切换成顺时针的方向？

自贡黄明儒 发表于 2021-2-20 12:13:57

转成多段线。

xyp1964 发表于 2021-2-20 12:59:37

(defun c:tt ();tt(圆弧固定长度)
(setq dd (Udist 7 "" "圆弧长度<输入或鼠标直接量取>" dd nil))
(setq i -1)
(if (setq ss (ssget '((0 . "arc"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq e (list s1 (vlax-curve-getStartPoint s1)))
      (command "lengthen" "t" dd e "")
    )
)
(princ)
)

caoyin 发表于 2021-2-20 14:47:39

;; 三点，P1、P3分别是起点和终点，P2是其他任意点。
;;-------------------------------------------------------------------------
;; CLOCKWISE-P - gile
;; 如果P1、P2、P3为顺时针方向或共线，则返回T
(defun CLOCKWISE-P (P1 P2 P3)
(< (sin (- (angle P1 P3) (angle P1 P2))) -1E-14)
)

自贡黄明儒 发表于 2021-2-20 15:10:08

;|;174.2 [功能] 叉积(外积) By Highflybird
;;1 三角形之倍面积
;;2 p1 p2 p3 逆时针为正。
;;3 三点共线为0
(defun det (p1 p2 p3 / x2 y2)
(setq        x2 (car p2)
        y2 (cadr p2)
)
(- (* (- x2 (car p3)) (- y2 (cadr p1))) (* (- x2 (car p1)) (- y2 (cadr p3))))
)
|;

长风（尚品） 发表于 2021-2-21 09:10:52

自贡黄明儒 发表于 2021-2-20 15:10
;|;174.2 [功能] 叉积(外积) By Highflybird
;;1 三角形之倍面积
;;2 p1 p2 p3 逆时针为正。


没有看懂，如何使用？

edata 发表于 2021-2-22 15:20:42

你没说你如何延长的，你延长前记录终点，延长后根据终点，圆心，逆时针旋转一下即可。
页: [1]
查看完整版本: 圆弧的方向问题，求解