好函数不敢独享，73哥的判断矩形

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

6666666666666

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

看些隐藏的好东西谢谢！

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

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

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

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

看看什么好东西！

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

谢谢分享，看看什么宝贝

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

看些隐藏的好东西

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

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

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

有新的东西吗？

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

;多义线是否矩形-----（一级)-------
(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
)
)

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