不仅实现属性编号递增修改，还能自动寻找长高

duanshui83

wudi 发表于 2012-8-29 19:49
太厉害了，楼主给的属性块不太清晰，我加个演示文件吧

你好，能不能把你的这个框选自动编号并替换长宽的源码共享一下啊，我很需要这个程序，先谢谢了

111118528

都发不了新帖，怎么能看想要的内容？

sunny20102

command 用的太多，处理200个左右的编号就需要好几分钟，试着将

2. (setq pxmax -1e99 pxmin 1e99 pymax pxmax pymin pxmin)
   
3.    (foreach x ptl
   
4.     (setq pxmax (if (> (car x) pxmax) (car x) pxmax)
   
5.           pxmin (if (< (car x) pxmin) (car x) pxmin)
   
6.           pymax (if (> (cadr x) pymax) (cadr x) pymax)
   
7.           pymin (if (< (cadr x) pymin) (cadr x) pymin))
   
8.    )
   
9.    (setq x1 (- pxmax pxmin) y1 (- pymax pymin))

(setq pxmax -1e99 pxmin 1e99 pymax pxmax pymin pxmin)<br />    (foreach x ptl<br />     (setq pxmax (if (> (car x) pxmax) (car x) pxmax)<br />           pxmin (if (< (car x) pxmin) (car x) pxmin)<br />           pymax (if (> (cadr x) pymax) (cadr x) pymax)<br />           pymin (if (< (cadr x) pymin) (cadr x) pymin))<br />    )<br />    (setq x1 (- pxmax pxmin) y1 (- pymax pymin))

更改为

2. (setq xx (vl-sort (mapcar 'car  ptL) '<))
   
3.         (setq yy (vl-sort (mapcar 'cadr ptL) '<))
   
4.         (setq x1 (- (last xx) (car xx))
   
5.               y1 (- (last yy) (car yy))
   
6.         )

(setq xx (vl-sort (mapcar 'car  ptL) '<))<br />         (setq yy (vl-sort (mapcar 'cadr ptL) '<))<br />         (setq x1 (- (last xx) (car xx))<br />               y1 (- (last yy) (car yy))<br />         )

另新建一图层专门用来存放 BPOLY生成的封闭多段线，
效率仍然不高，这就回归到算法的问题上来了，那可是更薄弱的地方
关键：获取边界

湜１只鱼

学习了   谢谢了

destnity

努力学习各位老大的佳作。相当佩服。

skzbh1@sina.com

学习下！！！！！！！！！！！！！！

Kall

ZZXXQQ 发表于 2010-4-21 22:41
[/post]

学习斑竹老师的贴

流_星

真的需要啊

gwpgc

学习了   谢谢

shantonglt

正在找类似的插件。以前看到过一个演示。通过框选方式，对指定区域内的很多交叉线形成面域，计算出每个面积的尺寸。关键是通过框选对交叉线选面域，只能选最外面封闭的一个，交叉线内形成面域，只能通过点选方式。不知哪位知道如何框选，对很多交叉线形成小面域。