[求助]华宁软件生成大量的scr文件如何批量生成cad图？ [复制链接]

  

  

  

  

  

  

好东西，希望有人提供

顶！！！！！！！

是啊，不管用啊

并非只有华宁软件生成的是SCR格式文件，有些院里面自己研制的软件都有这种可能，以下是我同事搞出来的编程语句：
Sub Hscr()
Dim i As Integer
ThisDrawing.SetVariable "FILEDIA", 0
For i = 0 To 8
ThisDrawing.SendCommand "SCRIPT" & vbCr & "D:\GCDZ\user\15\1" & " " & "(" & i & ")" & ".scr" & vbCr
ThisDrawing.SendCommand "ucs" & vbCr & "m" & vbCr & "420,0,0" & vbCr
Next i
ThisDrawing.SendCommand "ucs" & vbCr & "w" & vbCr
ThisDrawing.SendCommand "zoom" & vbCr & "a" & vbCr
ThisDrawing.SetVariable "FILEDIA", 1
End Sub


再下面大家可以看看图片就知道怎么做了，图片可能不太清楚，大家可以再点击图片，单页面显示即可，

前提条件下是要知道scr文件里面的内容有没有1、有关删除土层的语句，若有，要事先锁定你要引用的图块文件相关的对象土层，防止程序被scr 文件内部自写的程序终止，2、若scr文件内容末尾中有自写"limits 范围限制为初始状态“，则要自己将scr文件格式改成txt文本格式，再将相应的语句改掉，自己可以调试看看。

继续上图。

继续上图。