Cw或Cww
使用lisp确定方向多段线。谢谢 这http://www.lee-mac.com/clockwisep.html 通过这个例程，我可以确定多边形的方向，但有时会失败。你能帮助我吗
（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公司
) 请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。
页:
[1]