社区 › 源码共享 › 好函数不敢独享，73哥的判断矩形

liuhe 发表于 2022-11-23 08:27:41

6666666666666

guosheyang 发表于 2022-11-23 08:30:22

看些隐藏的好东西    谢谢！

MUSIC-DIE 发表于 2022-11-23 08:41:24

czb203 发表于 2022-11-23 09:06:15

谢谢大佬分享！看看什么好东西！

wosiguwozai0830 发表于 2022-11-23 09:13:03

看看什么好东西！

没有昵称呀 发表于 2022-11-23 09:19:03

谢谢分享，看看什么宝贝

htlaser 发表于 2022-11-23 09:19:43

看些隐藏的好东西

zm880928 发表于 2022-11-23 09:20:44

看帖不回者 么有小JJ.........

尘缘一生 发表于 2022-11-23 09:40:01

有新的东西吗？

尘缘一生 发表于 2022-11-23 09:42:00

[*];多义线是否矩形-----（一级)-------
[*](defun fy-recp (e / lst p1 p2 p3 p4)
[*](if
[*]    (and
[*]      (= (type e) 'ENAME)
[*]      (or (= "LWPOLYLINE" (dxf1 e 0)) (= "POLYLINE" (dxf1 e 0)))
[*]      (= (dxf1 e 90) 4)
[*]      (= (dxf1 e 70) 1)
[*]    )
[*]    (progn
[*]      (setq lst (cdr (get-pl-pt e)))
[*]      (setq p1 (car lst))
[*]      (setq p2 (cadr lst))
[*]      (setq p3 (caddr lst))
[*]      (setq p4 (cadddr lst))
[*]      (setq ang1 (angle p1 p2))
[*]      (setq ang2 (angle p2 p3))
[*]      (setq ang3 (angle p3 p4))
[*]      (setq ang4 (angle p4 p1))
[*]      (if (and
[*]            (or (equal (abs (- ang1 ang2)) pi2 1e-8) (equal (abs (- ang1 ang2)) 3pi2 1e-8))
[*]            (or (equal (abs (- ang2 ang3)) pi2 1e-8) (equal (abs (- ang2 ang3)) 3pi2 1e-8))
[*]            (or (equal (abs (- ang3 ang4)) pi2 1e-8) (equal (abs (- ang3 ang4)) 3pi2 1e-8))
[*]          )
[*]      T
[*]      nil
[*]      )
[*]    )
[*]    nil
[*])
[*])

查看完整版本: 好函数不敢独享，73哥的判断矩形