[求助]：求助大虾：怎么把测量的大量地形图整合一起

afly

本人在做规划项目初期，总要把甲方拿来的大量电子地形图
插在一起，一个个的搞真的太累了，又苦于自己学不懂
lisp，有没有什么好办法啊！！？？？？


*-*i *-*i *-*i

ctiger

图象文件在ps整合,dwg文件在cad里面用对齐命令.

寒梅

既然是电子文件,那在拼图时只要以0,0为插入点插入一幅幅地形图,就可以很快将图纸拼好.
拼好的地形图,信息量一般都比较大,这时还需要用过滤器(filter简化命令是fi)将一些不太有用的如农田,绿化等符号块删除,这样整理过后地形图的信息量会少很多,方便后面画图.

afly

最初由 寒梅 发布
[B]既然是电子文件,那在拼图时只要以0,0为插入点插入一幅幅地形图,就可以很快将图纸拼好.
拼好的地形图,信息量一般都比较大,这时还需要用过滤器(filter简化命令是fi)将一些不太有用的如农田,绿化等符号块删除,这样整理... [/B]

怎么插我知道，我问的不是这个啊，我是问有没有办法一次插好。
或者快一点。
看来你不是做很多规划的图，怎么说很快呢？几百个文件啊！！！！花一天时间在这上，不值吧！
请知道的同行不吝赐教!!!

dgghy

我也有同感，特别是作道路定线以及控详规，往往几十幅甚至上百幅图，一幅一幅的插图，太累了。那位仁兄可以编辑一个插入命令，可以让批量图块一次拼成，给大家省点时间。

eachy

最初由 dgghy 发布
[B]我也有同感，特别是作道路定线以及控详规，往往几十幅甚至上百幅图，一幅一幅的插图，太累了。那位仁兄可以编辑一个插入命令，可以让批量图块一次拼成，给大家省点时间。 [/B]

这种情况写程序也可，简单的就是将图形放到一个目录下，然后写个 scr  文件或者建个图标。

afly

最初由 eachy 发布
[B][QUOTE]最初由 dgghy 发布
[B]我也有同感，特别是作道路定线以及控详规，往往几十幅甚至上百幅图，一幅一幅的插图，太累了。那位仁兄可以编辑一个插入命令，可以让批量图块一次拼成，给大家省点时间。 [/B][... [/B]

我也试过把文件放在一个目录下，并写了个scr文件，但加载后就拚不起来，只有第一幅图才有用，是不是加载不正确？
能将过程详细说明一下吗？

eachy

把你的 scr 文件帖上来，大家一起看看。

PLgis

可以用下面的方法：
0.假设要插入的dwg文件存放在d:dwg文件夹中
1.编辑一个DWG文件名文件，格式如下：
        文件名1
        文件名2
        文件名3
        ...
用fname.txt为名，也存放到d:dwg文件夹中

2.调入并执行下面的命令：

2. 
   
3. (defun c:BIW(/ fr fname)
   
4.         (setq fr(open "d:\\dwg\\fname.txt" "r"))
   
5.         (if fr
   
6.                 (progn
   
7.                         (while(setq fname(read-line fr))
   
8.                                 (command "Insert" (strcat "D:\\dwg\" fname) '(0 0) "" "" "")
   
9.                         )
   
10.                         (close fr)
    
11.                 )
    
12.         )
    
13.         (princ)
    
14. )
    

<br /> (defun c:BIW(/ fr fname)<br />         (setq fr(open "d:\\dwg\\fname.txt" "r"))<br />         (if fr<br />                 (progn<br />                         (while(setq fname(read-line fr))<br />                                 (command "Insert" (strcat "D:\\dwg\" fname) '(0 0) "" "" "")<br />                         )<br />                         (close fr)<br />                 )<br />         )<br />         (princ)<br /> )<br />

上面的代码已测试通过。
供参考

chenhang1203

谢谢，省了好多时间啊，不过如果那些电子图中有同名块时会出错。。。

afly

最初由 PLgis 发布
[B]可以用下面的方法：
0.假设要插入的dwg文件存放在d:dwg文件夹中
1.编辑一个DWG文件名文件，格式如下：
        文件名1
        文件名2
        文件名3
        ...
用fname.txt为名，也存放到d:dwg文件夹中

2.调入并执行下面的命令?.. [/B]

不行啊，一用就死了，是不是如楼上所说块的问题。
再说，这办法如果有几百张图的话，编辑fname这个文件工作量
也太大了，还不如直接一个个图插好了。
有更好的办法没有呢！！

这个是我用一个工具写的脚本(scr)，请斑竹看看有什么问题，它只能
插入第一张图，会不会跟字体不认有关，插的时候会问字体替换的
问题，第二张开始就没反应了。
=================================
_insert
10106320=e:\NewFolder\10106320.dwg
0,0,0
1
1
0
_insert
10106325=e:\NewFolder\10106325.dwg
0,0,0
1
1
0
_insert
10106330=e:\NewFolder\10106330.dwg
0,0,0
1
1
0
_insert
10106350=e:\NewFolder\10106350.dwg
0,0,0
1
1
0
_insert
10106355=e:\NewFolder\10106355.dwg
0,0,0
1
1
0
_insert
10106360=e:\NewFolder\10106360.dwg
0,0,0
1
1
0
_insert
10106365=e:\NewFolder\10106365.dwg
0,0,0
1
1
0
_insert
10106370=e:\NewFolder\10106370.dwg
0,0,0
1
1
0
_insert
10106375=e:\NewFolder\10106375.dwg
0,0,0
1
1
0
_insert
10106380=e:\NewFolder\10106380.dwg
0,0,0
1
1
0
_insert
10156310=e:\NewFolder\10156310.dwg
0,0,0
1
1
0
_insert
10156315=e:\NewFolder\10156315.dwg
0,0,0
1
1
0
_insert
10156320=e:\NewFolder\10156320.dwg
0,0,0
1
1
0
_insert
10156325=e:\NewFolder\10156325.dwg
0,0,0
1
1
0
_insert
10156330=e:\NewFolder\10156330.dwg
0,0,0
1
1
0
_insert
10156350=e:\NewFolder\10156350.dwg
0,0,0
1
1
0

=====================

请指教！

zhqchn

哈哈，原来有不少搞道路的朋友，试试CadAssis吧，最近新增的SCR功能就是工作中要一次插入一百多个块而写的，可在几分钟内完成你的任务

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?threadid=76624&perpage=15&display=&pagenumber=1">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

这是我插入地形图的过程，只要几分钟

afly

[QUOTE]最初由 zhqchn 发布
[B]哈哈，原来有不少搞道路的朋友，试试CadAssis吧，最近新增的SCR功能就是工作中要一次插入一百多个块而写的，可在几分钟内完成你的任务


试了一下，确实可以。
但是我第一步在excel里不行啊，那些文件不能自己自动添加进去，我是一个个加的。是不是excel里还有什么操作失误了。


*-*c

zhqchn

最初由 afly 发布
[B]


试了一下，确实可以。
但是我第一... [/B]

第一步的文件名是手动加入Excel中的，但不需要一个一个的添加，因为这些文件名肯定有一定的规律，要充分利用Excel的自动填充功能。比如我的文件名是“wy1.dwg”、“wy2.dwg”、“wy3.dwg”......只要写全第一个文件名“D:\zhqchn\wy\dxt\wy1.dwg”，然后拖动填充柄到44行就行了。

xiaofang08

我要下CadAssis新版,不知那里有?