Cw或Cww

francesc · 发表于 2022-7-5 17:39:50

使用lisp确定方向多段线。谢谢

Grrr · 发表于 2022-7-5 18:07:46

这
http://www.lee-mac.com/clockwisep.html

francesc · 发表于 2022-7-5 18:23:59

通过这个例程，我可以确定多边形的方向，但有时会失败。你能帮助我吗

（defun Tax Direction->角度（#ent/Coords S1 S2 ret）
（defun Tax Math->AddAngle（#lst/i Sum p1 p2 p3 a1 a2）
（setq i 1
总和0.0
)
（重复（-（长度#lst）2）
（setq p1（第n（1-i）#lst）
p2（第n i#lst）
一（1+1）
p3（第n i#lst）
a1（角度p1 p2）
a2（角度p2 p3）
)
（续）
（（>a1（+a2 pi））
（setq a2（+a2（*pi 2）））
)
（（>a2（+a1 pi））
（setq a1（+a1（*pi 2）））
)
)
（setq sum（+sum（-a2 a1）））
)
)
（如果（setq坐标（Tax Get->Points#ent））
（续）
（（>（税收->金额）2）
（setq S1（税务数学->添加角度坐标）
S2（税务数学->添加角度（反向坐标））
)
（续）
( (
（如果（不等于S1 S2））
（setq ret-1）
)
)
（>S1 0.0）
（如果（不等于S1 S2））
（setq ret 1）
)
)
（T（setq ret nil））
)
)
（T（setq ret nil））
)
)
ret公司
)

SLW210 · 发表于 2022-7-5 18:45:59

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

[编程交流] Cw或Cww

发表回复

精选推荐