判断闭合多线段方向

aimisiyou · 发表于 2016-10-14 21:07:40

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

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

×

本帖最后由 aimisiyou 于 2016-10-15 08:30 编辑

;;;多线段为闭合非自交
(defun c:tt()
;;;向量叉乘
(defun sfun (pt1 pt2 pt3)
      (setq va                (-
                     (* (- (car pt2) (car pt1)) (- (cadr pt3) (cadr pt2)) )
                     (* (- (car pt3) (car pt2)) (- (cadr pt2) (cadr pt1)) )
               )
      )
   )
;;;获取多线段顶点坐标（有序）
(setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car (entsel))))))
;;;获取横坐标最小的点在顶点集中的位置
(setq n0 (car (vl-sort-i pts
                           (function (lambda (e1 e2)
                                                (< (car e1) (car e2))
                                          )
                              )
                     )
            )
   )
(setq xmin (car (nth n0 pts)))
(setq xmins (vl-remove nil (mapcar '(lambda (x) (if (= xmin (car x)) x ))  pts)))
;;;判断闭合多线段方向
(if (= (length xmins) 1)
      (setq flag             (cond
               ((= n0 0) (sfun (last pts) (car pts) (cadr pts )))
               ((= n0 (- (length pts) 1)) (sfun (car (cdr (reverse pts))) (last pts)  (car pts )) )
               (t (sfun (nth (- n0 1) pts) (nth  n0 pts) (nth (+ n0 1) pts)))
            )
      )
      (if (< (cadr (car xmins)) (cadr (cadr xmins)))  (setq flag -1) (setq flag 1))
   )
(if (< flag 0) (print "闭合多线段方向为顺时针")(print "闭合多线段方向为逆时针"))
)

HLCAD · 发表于 2016-10-15 08:14:21

谢谢楼主分享经典程序！

yoyoho · 发表于 2016-10-15 10:32:19

正需要，支持楼主大人了！

Lisphk · 发表于 2016-10-15 10:45:59

找到3个点，然后根据三角形的面积也能求出方向吧？

vlisper · 发表于 2016-10-15 15:35:25

回的人少，我来小顶一下

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

[研讨] 判断闭合多线段方向

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

评分