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

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

真的很蛋疼,自己瞎写了个东西,谁能猜猜看,这时做什么用的~(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:47

顺时针                     

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

压缩一下(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:09

可用于将多线段节点以西北角为起点按顺时针方向排序，但对于P点位置有特殊要求,同时对于多线段形状也有要求，不能通用，可惜
当然，对于凸多边形只需要P点在内部就行，但对凹多边形受限较多甚至无法轻松计算出合适的P点位置
页: [1]
查看完整版本: 闲的蛋疼,弄了一大串代码嘿嘿,谁能猜得出这是做什么呢~