怎么算 图框的排列顺序?????

Nico

怎么算 图框的排列顺序?????

用坐标的算法   只能计算图框同一方向  排列在同一水平线上  

如以下图形     图框排列中  有旋转的  有不旋转的  有缩小的  有放大的   怎么计算  顺序



如何计算图上的顺序???

ljttjl

可以根据图框中心点进行排序，从上到下，从左到右排序。因中心点不一定在同一行上，所以排序时要考虑行的幅度，也就是说上下幅动多大在同一行内。
类似排序顺序演示：

Nico

ljttjl 发表于 2011-9-5 11:34
可以根据图框中心点进行排序，从上到下，从左到右排序。因中心点不一定在同一行上，所以排序时要考虑行的幅 ...

有没有算法  提供下  或者帮我改下我那个程序

Lisper

Nico 发表于 2011-9-5 14:14
有没有算法  提供下  或者帮我改下我那个程序

1. ;;;点表按Y从大到小，X从小到大排序
   
2. ;;;plist 要排序的点表 Fuzz 上下偏移容忍的精度
   
3. (defun sort-pts (plist Fuzz / pl1 fixNumber)
   
4.   (defun fixNumber (number num)
   
5.   (if (equal 0 (rem number num))
   
6.     (fix number)
   
7.     (if (> number 0)
   
8.       (* num (1+ (fix (/ number num))) )
   
9.       (* num (1- (fix (/ number num))) )
   
10.       )
    
11.     )
    
12.   )
    
13.   (setq pl1 (mapcar '(lambda (x) (mapcar '(lambda (y) (fixNumber y fuzz)) x)) plist))
    
14.   (setq pl1
    
15. (vl-sort-i
    
16.     pl1
    
17.     (function
    
18.       (lambda (a b)
    
19.         (cond
    
20.               ((and (equal (cadr a) (cadr b) Fuzz)
    
21.                     (<= (car a) (car b))
    
22.                     )
    
23.                t
    
24.                )
    
25.               ((and (equal (cadr a) (cadr b) Fuzz)
    
26.                     (> (car a) (car b))
    
27.                     )
    
28.                nil
    
29.                )
    
30.               ((>= (cadr a) (cadr b))
    
31.                t
    
32.                )
    
33.               (t nil)
    
34.               )
    
35.         )
    
36.       )
    
37.     )
    
38.     )
    
39.   (mapcar '(lambda (x) (nth x plist)) pl1)
    
40.   )
    

;;;点表按Y从大到小，X从小到大排序<br /> ;;;plist 要排序的点表 Fuzz 上下偏移容忍的精度 <br /> (defun sort-pts (plist Fuzz / pl1 fixNumber)<br />   (defun fixNumber (number num)<br />   (if (equal 0 (rem number num))<br />     (fix number)<br />     (if (> number 0)<br />       (* num (1+ (fix (/ number num))) )<br />       (* num (1- (fix (/ number num))) )<br />       )<br />     )<br />   )<br />   (setq pl1 (mapcar '(lambda (x) (mapcar '(lambda (y) (fixNumber y fuzz)) x)) plist))<br />   (setq pl1<br /> (vl-sort-i<br />     pl1<br />     (function<br />       (lambda (a b)<br />         (cond <br />               ((and (equal (cadr a) (cadr b) Fuzz)<br />                     (<= (car a) (car b))<br />                     )<br />                t<br />                )<br />               ((and (equal (cadr a) (cadr b) Fuzz)<br />                     (> (car a) (car b))<br />                     )<br />                nil<br />                )<br />               ((>= (cadr a) (cadr b))<br />                t<br />                )<br />               (t nil)<br />               )<br />         )<br />       )<br />     )<br />     )<br />   (mapcar '(lambda (x) (nth x plist)) pl1)<br />   )<br />

zhuquanmao

Lisper 发表于 2011-9-5 16:46

这个怎么用哈？   
没人回复？继续顶啊
一直对这个问题迷茫中

zhuquanmao

继续顶哈 希望版主能看到

bai2000

顶起来等高手

vlisp2012

4楼的应该可用吧。
如果想用现成的。请看下面帖子的6楼：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96724

bai2000

图框是块，能控制图框的间距最好，无论图框的大小与方向，坐等高手