[编程申请]：地形图切割

鹰博长空

因工作需要，经常需要从一张大图中切割出很多规则的小图来，不知各位大虾能否帮忙编个程序。

eachy

试试图形切割。

鹰博长空

不知具体怎么操作，此外，有大量的图需自动完成

XDSoft

最初由 鹰博长空 发布
[B]不知具体怎么操作，此外，有大量的图需自动完成 [/B]

图形切割看下"晓东工具箱大事记"里面的教学.

如果要自动, 除非你告诉程序切割的规则,否则程序不知道你想怎么切割.

如果定不下来能让程序不发生歧义的规则,那么只能手工选范围切割或者裁减了.

<center><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6\,0\,29\,0" width="512" height="482"><param name=quality value=high><param name="SRC" value="http://www.xdcad.net/techcenter/upload/file/1_20030803022035_xdtb_dwgcut1.swf"><embed src="http://www.xdcad.net/techcenter/upload/file/1_20030803022035_xdtb_dwgcut1.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="512" height="482"></embed></object></center>

<center><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6\,0\,29\,0" width="512" height="482"><param name=quality value=high><param name="SRC" value="http://www.xdcad.net/techcenter/upload/file/1_20030803022239_xdtb_dwgcut3.swf"><embed src="http://www.xdcad.net/techcenter/upload/file/1_20030803022239_xdtb_dwgcut3.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="512" height="482"></embed></object></center>

鹰博长空

不好意思，讲的不是很清晰，我的工作是在一张很大的地形图中，选取其中的一部分（具体为0，0到250，200）另存为一张图，如001001.dwg，另一部分（0，250到500，200）另存为001002.dwg，规则为250*200为一单元格。

fjw_ok

呵呵这个搞测绘的都有

PLgis

关于“地形图切割 ”比较复杂，也有几种方法。现把一种较简单的做法介绍如下：
0.另存当前图
1.获得局部图的左下角点P1和有上角点P2
2.用(ssget "c" p1 p2)函数选择局部图内及相交的所有实体ss
3.用P1和P2创建一个矩形tk
4.删除tk外的所有点状图形和文字
5.删除tk外的所有线状图形
6.对保留下的每一个线状图形:
    6.1获得当前图形的所有节点
    6.2对当前图形的所有节点
    6.3如果当前节点在tk外，以tk为边界，trim掉tk外的部分6.
7.保存当前图形
8.打开原来的图形
9.重复0-8

供参考

zjf5561677

这里有一个小程序可以将你需要的一块图形剪出来。
;;;;裁剪图形，

2. 
   
3. 
   
4. (defun c:scr (/             big   cmd count  dir          fname         name        pt1    pt3
   
5.               pt1-2  pt1-4  pt3-2  pt3-4  pt2         pt4        pt-list
   
6.               rot    ss            x1           y1          x3         y3        x0     y0
   
7.              )
   
8. 
   
9.   (setq        rot (getvar "viewtwist")
   
10.         dir (getvar "dwgprefix")
    
11.         cmd (getvar "cmdecho")
    
12.   )
    
13.   (setvar "cmdecho" 0)
    
14. 
    
15.   (while (or (= (setq name (getstring "请输入图名:")) "")
    
16.              (findfile (strcat name ".dwg"))
    
17.          )
    
18.   )
    
19. 
    
20.   (setq fname (strcat dir name))
    
21. 
    
22. 
    
23.   (if (not
    
24.         (setq pt1 (getpoint (getvar "extmin") "请选择左下角点："))
    
25.       )
    
26.     (setq pt1 (getvar "extmin"))
    
27.   )
    
28.   (if (not (setq pt3 (getcorner pt1 "请选右上择角点：")))
    
29.     (setq pt3 (getvar "extmax"))
    
30.   )
    
31. 
    
32. 
    
33.   (setq        x1 (car pt1)
    
34.         y1 (cadr pt1)
    
35.   )
    
36.   (setq        x3 (car pt3)
    
37.         y3 (cadr pt3)
    
38.   )
    
39.   (if (> x1 x3)
    
40.     (setq x0 x1
    
41.           x1 x3
    
42.           x3 x0
    
43.     )
    
44.   )
    
45.   (if (> y1 y3)
    
46.     (setq y0 y1
    
47.           y1 y3
    
48.           y3 y0
    
49.     )
    
50.   )
    
51. 
    
52. ;;;根据选取的两对角点，考虑扭曲角度，计算另外两角点的坐标
    
53.   (setq pt1-2 (polar pt1 (- (* 2.0 pi) rot) 5000))
    
54.   (setq pt1-4 (polar pt1 (- (* 0.5 pi) rot) 5000))
    
55.   (setq pt3-2 (polar pt3 (- (* 1.5 pi) rot) 5000))
    
56.   (setq pt3-4 (polar pt3 (- (* 1.0 pi) rot) 5000))
    
57.   (setq pt2 (inters pt1 pt1-2 pt3 pt3-2 nil))
    
58.   (setq pt4 (inters pt1 pt1-4 pt3 pt3-4 nil))
    
59. 
    
60. 
    
61.   (setq big 0.01)
    
62.   (command "pline" pt1 pt2 pt3 pt4 "c")
    
63.   (setq ss (entlast))
    
64. 
    
65.   (command "zoom" pt1 pt3)
    
66.   (command "zoom" "0.95x")
    
67.   (setq count 6)
    
68. 
    
69.   (repeat 6
    
70.     (setq big (* big count))
    
71.     (setq pt5 (polar pt1 (- (dms 225) rot) big))
    
72.     (setq pt6 (polar pt2 (- (dms 315) rot) big))
    
73.     (setq pt7 (polar pt3 (- (dms 45) rot) big))
    
74.     (setq pt8 (polar pt4 (- (dms 135) rot) big))
    
75.     (setq count (- count 1))
    
76.     (command "trim" ss "" "f" pt5 pt6 pt7 pt8 pt5 "" "")
    
77.   )
    
78. ;;;end repeat
    
79. 
    
80.   (setq pt-list (list pt1 pt2 pt3 pt4))
    
81.   (setq ss (ssget "cp" pt-list))
    
82.   (command "wblock" fname "" (list 0 0) ss "")
    
83.   (setvar "cmdecho" cmd)
    
84.   (princ)
    
85. 
    
86. )
    
87. ;;;
    
88. (defun dms (temp / rad)
    
89.   (setq rad (/ (* temp pi) 180))
    
90. )

<br /> <br /> (defun c:scr (/             big   cmd count  dir          fname         name        pt1    pt3<br />               pt1-2  pt1-4  pt3-2  pt3-4  pt2         pt4        pt-list<br />               rot    ss            x1           y1          x3         y3        x0     y0<br />              )<br /> <br />   (setq        rot (getvar "viewtwist")<br />         dir (getvar "dwgprefix")<br />         cmd (getvar "cmdecho")<br />   )<br />   (setvar "cmdecho" 0)<br /> <br />   (while (or (= (setq name (getstring "请输入图名:")) "")<br />              (findfile (strcat name ".dwg"))<br />          )<br />   )<br /> <br />   (setq fname (strcat dir name))<br /> <br /> <br />   (if (not<br />         (setq pt1 (getpoint (getvar "extmin") "请选择左下角点："))<br />       )<br />     (setq pt1 (getvar "extmin"))<br />   )<br />   (if (not (setq pt3 (getcorner pt1 "请选右上择角点：")))<br />     (setq pt3 (getvar "extmax"))<br />   )<br /> <br /> <br />   (setq        x1 (car pt1)<br />         y1 (cadr pt1)<br />   )<br />   (setq        x3 (car pt3)<br />         y3 (cadr pt3)<br />   )<br />   (if (> x1 x3)<br />     (setq x0 x1<br />           x1 x3<br />           x3 x0<br />     )<br />   )<br />   (if (> y1 y3)<br />     (setq y0 y1<br />           y1 y3<br />           y3 y0<br />     )<br />   )<br /> <br /> ;;;根据选取的两对角点，考虑扭曲角度，计算另外两角点的坐标<br />   (setq pt1-2 (polar pt1 (- (* 2.0 pi) rot) 5000))<br />   (setq pt1-4 (polar pt1 (- (* 0.5 pi) rot) 5000))<br />   (setq pt3-2 (polar pt3 (- (* 1.5 pi) rot) 5000))<br />   (setq pt3-4 (polar pt3 (- (* 1.0 pi) rot) 5000))<br />   (setq pt2 (inters pt1 pt1-2 pt3 pt3-2 nil))<br />   (setq pt4 (inters pt1 pt1-4 pt3 pt3-4 nil))<br /> <br /> <br />   (setq big 0.01)<br />   (command "pline" pt1 pt2 pt3 pt4 "c")<br />   (setq ss (entlast))<br /> <br />   (command "zoom" pt1 pt3)<br />   (command "zoom" "0.95x")<br />   (setq count 6)<br /> <br />   (repeat 6<br />     (setq big (* big count))<br />     (setq pt5 (polar pt1 (- (dms 225) rot) big))<br />     (setq pt6 (polar pt2 (- (dms 315) rot) big))<br />     (setq pt7 (polar pt3 (- (dms 45) rot) big))<br />     (setq pt8 (polar pt4 (- (dms 135) rot) big))<br />     (setq count (- count 1))<br />     (command "trim" ss "" "f" pt5 pt6 pt7 pt8 pt5 "" "")<br />   )<br /> ;;;end repeat<br /> <br />   (setq pt-list (list pt1 pt2 pt3 pt4))<br />   (setq ss (ssget "cp" pt-list))<br />   (command "wblock" fname "" (list 0 0) ss "")<br />   (setvar "cmdecho" cmd)<br />   (princ)<br /> <br /> )<br /> ;;;<br /> (defun dms (temp / rad)<br />   (setq rad (/ (* temp pi) 180))<br /> )

鹰博长空

多谢提供思路，但是我用的是auotlisp，打开新图后，lisp无法继续进行，能否有其它方法？

jx2008

是的，c ass可以做到这一点，很好用，另外在论坛上xyp1964斑竹也主也有小程序，可以使用，自动拆图，方块裁减简单的功能可以满足。

xbaron

如果是出图的话图纸空间最好用！~

分拆的时候图块或者标注比例很难让人满意！