求助怎么实现cad多边形顶点从左上角顺时针重排序

xiongyunqi

求助怎么实现cad多边形顶点从左上角顺时针重排序

fan_zh

http://bbs.mjtd.com/thread-168501-1-1.html
看看我发的贴

479274135

1. ;;以指定起点逆时针重新排列多段线
   
2. ;;参数1:点表、凸度表((点 凸度)(点 凸度)(点 凸度)……)
   
3. ;;参数2：起点索引号
   
4. ;;参数3:是否反向T为反向nil不反
   
5. (defun qidiansort (lss nn clock)
   
6. (if clock (setq nn (1+ nn)))
   
7. (setq lss(try-SortList lss nn))
   
8. (if clock
   
9.   (setq lss (reverse lss)
   
10.    lss(try-SortList(cadr(setq lssx(try-Array-Matrix lss)))1);将凸度倒退一步
    
11.    lss(mapcar '- lss)
    
12.    lss2(car lssx)
    
13.    lss(try-Array-Matrix (list lss2 lss))
    
14.   )
    
15. )
    
16. lss
    
17. )
    
18. 
    
19. ;; 以表内指定序号为首重新排序
    
20. ;;(try-SortList 任意表 序号(零基)
    
21. ;;参数：任意表
    
22. ;; (try-SortList '(1 2 3 4 5 6 7 8 9 10) 4)
    
23. ;;                →(5 6 7 8 9 10 1 2 3 4)
    
24. (defun try-SortList(lst sub / lists n pt_list retun)
    
25. (setq lists '())
    
26. (setq n (length lst))
    
27. (repeat n
    
28.   (setq lists(cons (nth sub lst) lists))
    
29.   
    
30.   (setq sub(1+ sub))
    
31.   (if(= sub n)(setq sub 0))
    
32. )
    
33. (reverse lists)
    
34. )
    
35. 
    
36. ;; SortList 以表内指定序号为首重新排序 (SortList 表 序号(零基))
    
37. ;; (SortList '(1 2 3 4 5 6 7 8 9 10) 4) → '(5 6 7 8 9 10 1 2 3 4)
    
38. (defun SortList (lst sub)
    
39.   (setq lst (xyp-List-Div lst sub)
    
40. lst (append (cdr lst) (list (car lst)))
    
41. lst (apply 'append lst)
    
42.   )
    
43. )
    
44. ;;矩阵互换
    
45. ;(try-Array-one2n'((0 1 2 3 4)(5 6 7 8 9)(a b c d e))))
    
46. ; <->'((0 5 a)(1 6 b)(2 7 c)(3 8 d)(4 9 e))
    
47. (defun try-Array-Matrix(lst)(apply 'mapcar (cons 'list lst)))
    

;;以指定起点逆时针重新排列多段线<br /> ;;参数1:点表、凸度表((点 凸度)(点 凸度)(点 凸度)……)<br /> ;;参数2：起点索引号<br /> ;;参数3:是否反向T为反向nil不反<br /> (defun qidiansort (lss nn clock)<br /> (if clock (setq nn (1+ nn)))<br /> (setq lss(try-SortList lss nn))<br /> (if clock<br />   (setq lss (reverse lss)<br />    lss(try-SortList(cadr(setq lssx(try-Array-Matrix lss)))1);将凸度倒退一步<br />    lss(mapcar '- lss)<br />    lss2(car lssx)<br />    lss(try-Array-Matrix (list lss2 lss))<br />   )<br /> )<br /> lss<br /> )<br /> <br /> ;; 以表内指定序号为首重新排序<br /> ;;(try-SortList 任意表 序号(零基)<br /> ;;参数：任意表<br /> ;; (try-SortList '(1 2 3 4 5 6 7 8 9 10) 4)<br /> ;;                →(5 6 7 8 9 10 1 2 3 4)<br /> (defun try-SortList(lst sub / lists n pt_list retun)<br /> (setq lists '())<br /> (setq n (length lst))<br /> (repeat n<br />   (setq lists(cons (nth sub lst) lists))<br />   <br />   (setq sub(1+ sub))<br />   (if(= sub n)(setq sub 0))<br /> )<br /> (reverse lists)<br /> )<br /> <br /> ;; SortList 以表内指定序号为首重新排序 (SortList 表 序号(零基))<br /> ;; (SortList '(1 2 3 4 5 6 7 8 9 10) 4) → '(5 6 7 8 9 10 1 2 3 4)<br /> (defun SortList (lst sub)<br />   (setq lst (xyp-List-Div lst sub)<br /> lst (append (cdr lst) (list (car lst)))<br /> lst (apply 'append lst)<br />   )<br /> )<br /> ;;矩阵互换<br /> ;(try-Array-one2n'((0 1 2 3 4)(5 6 7 8 9)(a b c d e))))<br /> ; <->'((0 5 a)(1 6 b)(2 7 c)(3 8 d)(4 9 e))<br /> (defun try-Array-Matrix(lst)(apply 'mapcar (cons 'list lst)))<br />

借花献佛  这样就好做了吧，坐标点排序找到坐上点坐标，然后重绘多线段

与子成说for伟

这个程序怎样运行，快捷键是什么？

vladimirputin

这些正是需要的，非常感谢。