[原创]：EXCEL与CAD的完美结合！

redlittlefox

我们经常要用EXCEL用计算，生成坐标点，然后再用CAD绘制图形，以前一般用的方法是拷贝成.SCR文件再打开CAD调.SCR文件，非常麻烦！
经过几天的研究，我总结了这样一种方法，能比较好的结合EXCEL的计算统计功能和CAD的绘图功能，先新建一个SCR文件，如本例：E:\YJ77将所需绘制的命令输入到此文件，然后打开CAD，执行此脚本，执行完后，再删除此文件，虽然过程是麻烦一点，但总体感觉比较实用，可将调CAD部分做成一个子程序，以后运用将非常的方便，编程思路如下：
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Sub scsj()
Open "E:\YJ77.scr" For Output As #1
…………
Call dcad1
lpFileName = "E:\yj77.scr"
DeleteFile (lpFileName)
End Sub
Sub dcad1()
  Set y = CreateObject("autocad.application")
      y.Visible = True
  Set acadapp = GetObject(, "AutoCAD.Application")
  Set acaddoc = acadapp.ActiveDocument
    Dim v As Variant
    v = acaddoc.GetVariable("FILEDIA")
    acaddoc.SetVariable "FILEDIA", 0
    acaddoc.SendCommand "'script" & vbCr & "E:\yj77.scr" & vbCr
    acaddoc.SetVariable "FILEDIA", v
   End Sub
在水利设计板块中有本人据此编制的橡胶坝计算程序，有一点要注意，就是执行脚本文件时，捕捉应关闭，否则容易出错！

雪山飞狐(lzh)

删除文件用Kill语句就可以了，不需调用Api
另外你这和Excel有什么关系？

redlittlefox

这个程序是在EXCEL中执行的！详见水工板块中充水式橡胶坝计算程序！
http://p4.xdcad.net/forum/showthread.php?s=&threadid=303611

秦林

好用吗？有机械的吗？？？

zcmjw

好用