根据图纸不同的比例，插入相应的图框

有时候我们想在一批图纸中插入图框，但是由于画图的时候用的比例不同，导致图纸的实际大小不同，也就是说插入同一个图框进去后，需要进行放大或是缩小。
如果我们知道一共有采用了几个比例，那么先根据不同比例的图纸做出相应大小的图框，然后再结合下面的方法，完全也可以批量插入正确的图框。
打个比方说，现在有画图比例为“1：200”，与“1：300”的两张图纸，其图纸名称分别为A.dwg,B.dwg.（其实正规的作图方法在cad里面都是一比一画图的，然而很多人画图的时候却把比例用进去了，比如画个1000mm的线段，正常来说我们就直接输入1000就行了，可是有些人非要用1：200的比例画，输入5.）

这两个图中插入的图框分别为2.dwg,3.dwg.

插入点分别为"-0.4055,2.8385"，"-0.6083,4.2578"
当然插入点是要把这个图框与原图的具体位置来定的，并不一定是这个数。如果图框插入点不是上面这两个坐标，请把下面代码中相应的位置改过来。

1. (if (ssget "X" '((0 . "*TEXT") (1 . "*1:200*")))
   
2.   (command "_.INSERT" "2.dwg" "-0.4055,2.8385" 1 1 0)
   
3. )
   
4. (if (ssget "X" '((0 . "*TEXT") (1 . "*1:300*")))
   
5.   (command "_.INSERT" "3.dwg" "-0.6083,4.2578" 1 1 0)
   
6. )

复制代码

把上面的一段代码复制到一个新建的txt文本中，保存后，后缀名改为.lsp,比如这个文本叫做：批量插入图框.lsp
下面到http://xipick.com/thread-3339-1-1.html 把“CAD批处理工具1.2”下载安装，安装好这后，打开。把刚才建的那个文件“批量插入图框.lsp”拖到函数接口里面，然后在文件列表里面把要加图框的两个dwg文件：A.dwg和B.dwg加进去。然后选择你电脑上安装的cad版本（如果cad版本是精简版的，是启动不了的），完全启动后，选中文件列表中的第一个文件，再点执行。然后，执行完毕后，你再打开A.dwg和B.dwg，你会看到图框已按指定位置加进去了哦。

最后，需要注意的一点是，那两个图框文件要在cad程序支持的文件搜索路径中，最好的方法就是把他们放在与要加图框的文件所在的文件夹中。

上面的代码其实也可以换成类似下面这种，换用cond语句，进行简化一下

1. (cond
   
2. ((ssget "X" '((0 . "*TEXT") (1 . "*1:200*")))
   
3.   (command "_.INSERT" "2.dwg" "-0.4055,2.8385" 1 1 0)
   
4. )
   
5. ((ssget "X" '((0 . "*TEXT") (1 . "*1:300*")))
   
6.   (command "_.INSERT" "3.dwg" "-0.6083,4.2578" 1 1 0)
   
7. )
   
8. )

复制代码

1. (cond
   
2.   (
   
3.     (ssget "X" '((0 . "*TEXT") (-4 . "<or") (1 . "*三管塔*") (1 . "*角钢塔*") (-4 . "or>")))
   
4.     (command "_.INSERT" "3.dwg" "0,0" 1 1 0)
   
5.   )
   
6.   (
   
7.     (ssget "X" '((0 . "*TEXT") (1 . "*单管塔*")))
   
8.     (command "_.INSERT" "d.dwg" "0,0" 1 1 0)
   
9.   )
   
10. )

复制代码

上面这段代码的意思是说，如果该图形文字中含有“三管塔”或是“角钢塔”字样，那就在原点按一比一的比例，旋转角度为0，插入名为3.dwg的外部块；
如果该图形文字中含有“单管塔”字样，那就在原点按一比一的比例，旋转角度为0，插入名为D.dwg的外部块

...................

????????????