闲的蛋疼,弄了一大串代码嘿嘿,谁能猜得出这是做什么呢~

77077 · 发表于 2014-7-24 23:42

真的很蛋疼,自己瞎写了个东西,谁能猜猜看,这时做什么用的~

(mapcar '(lambda(x) (cdr x)) (vl-sort (mapcar '(lambda(x y) (cons x y)) (mapcar '(lambda(x) (angle x p)) lst) lst) '(lambda (x y) (> (car x) (car y)))))

复制代码

edata · 发表于 2014-7-25 04:23

顺时针

ZZXXQQ · 发表于 2014-7-25 08:00

压缩一下

(mapcar 'cdr (vl-sort (mapcar 'cons (mapcar '(lambda(x) (angle x p)) lst) lst) '(lambda (x y) (> (car x) (car y)))))

复制代码

llsheng_73 · 发表于 2014-9-7 11:55

可用于将多线段节点以西北角为起点按顺时针方向排序，但对于P点位置有特殊要求,同时对于多线段形状也有要求，不能通用，可惜
当然，对于凸多边形只需要P点在内部就行，但对凹多边形受限较多甚至无法轻松计算出合适的P点位置

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

[函数] 闲的蛋疼,弄了一大串代码嘿嘿,谁能猜得出这是做什么呢~