设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 405|回复: 1

[每日一码] 判断顺逆时针的代码

[复制链接]

已领礼包: 19个

财富等级: 恭喜发财

发表于 2016-8-14 17:37:57 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
  1. ;计算PT1-PT2的测量方位角
  2. (defun zfwj(pt1 pt2 / ang1)
  3.   (setq ang1 (angle pt1 pt2))
  4.   (cond
  5.     ((<= ang1 (* 0.5 pi))
  6.      (- (* 0.5 pi) ang1 )
  7.      )
  8.     (t
  9.      (- (* 2.5 pi) ang1)
  10.      )
  11.     )
  12.   )

  13. ;判断点序列是顺时针还是逆时针
  14. ;1为顺时针,0为逆时针
  15. ;搜索最西面的点,比较其与相邻两点的方位,判断是顺时针还是逆时针
  16. ;暂未考虑重复点、回头线2010.09.28
  17. (defun pdc (l1 / i j x pt1 pt2 pt3 pt4 ang1 ang2)
  18.   (setq j 0
  19.         i 0
  20.         x (car (nth 0 l1)))
  21.   (repeat (1- (length l1))
  22.     (if (< (car (nth (1+ j) l1)) x)
  23.       (setq i (1+ j)
  24.             x (car (nth (1+ j) l1)))
  25.       )
  26.     (setq j (1+ j))
  27.     )

  28.   ;第i点为最西侧的点
  29.   (cond
  30.         ((= i 0)
  31.          (setq pt1 (last l1)
  32.                pt2 (nth 0 l1)
  33.                pt3 (nth 1 l1))
  34.          )
  35.         ((= i (1- (length l1)))
  36.          (setq pt1 (nth (1- i) l1)
  37.                pt2 (nth i l1)
  38.                pt3 (car l1))
  39.          )
  40.         (t
  41.          (setq pt1 (nth (1- i) l1)
  42.                pt2 (nth i l1)
  43.                pt3 (nth (1+ i) l1))
  44.          )
  45.         )

  46.   (setq ang1 (zfwj pt2 pt1)
  47.         ang2 (zfwj pt2 pt3))

  48.   (if (< ang1 ang2)
  49.     (progn
  50.       (alert "逆时针!")
  51.       0)
  52.     (progn
  53.       (alert "顺时针!")
  54.       1)
  55.     )
  56.   ;(princ "\n")
  57.   ;(princ (itoa i))
  58.   )


  59. ;主程序
  60. (defun c:pdsn ( / s1  fb  t1 t2 lptn lplt lpli)
  61.                                         ;选择一个范围线
  62.   (setq        s1  (entget (car (entsel)))
  63.         lpl nil
  64.   )

  65.                                         ;检测是否是多段线
  66.   (if (/= (cdr (assoc 0 s1)) "LWPOLYLINE")
  67.     (progn
  68.       (alert "请选择一条多段线!")
  69.       (exit)
  70.     )
  71.   )

  72.                                         ;检测多段线是否封闭
  73.   (setq fb (cdr (assoc 70 s1)))
  74.   (while (> fb 1)
  75.     (setq fb (- fb 2))
  76.   )
  77.   (if (= fb 0)
  78.     (progn
  79.       (alert "多段线不封闭!")
  80.       (exit)
  81.     )
  82.   )

  83.                                         ;取多段线各顶点
  84.                                         ;检测多段线是否含圆弧
  85.   (setq lptn (cdr (assoc 90 s1)))
  86.   (while (assoc 10 s1)
  87.     (setq t1  (assoc 10 s1)
  88.           t2  (assoc 42 s1)
  89.           lpl (append lpl (list (cdr t1)))
  90.           s1  (vl-remove t1 s1)
  91.           s1  (vl-remove t2 s1)
  92.     )
  93.     (if        t2
  94.       (progn
  95.         (if (/= (cdr t2) 0.0)
  96.           (progn
  97.             (alert "多段线不能含圆弧!")
  98.             (exit)
  99.           )
  100.         )
  101.       )
  102.     )

  103.   )

  104.   (pdc lpl)

  105. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 734个

财富等级: 财运亨通

发表于 2021-9-13 00:11:07 | 显示全部楼层
感谢楼主分享判断顺逆时针的代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-25 17:30 , Processed in 1.849561 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表