[求助]：在EXCEL调用CAD的问题

redlittlefox · 发表于 2004-11-25 15:10:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我在EXCEL中打开CAD后要执行了SMX.scr，生成一条样条曲线，怎么自己设定比例缩放？
以下是在excel的VBA中
Sub dcad1()
  Set y = CreateObject("autocad.application")
   y.Visible = True
  Set AcadApp = GetObject(, "AutoCAD.Application")
  Set acaddoc = AcadApp.ActiveDocument
acaddoc.Application.WindowState = acMax
acaddoc.WindowState = acMax
Dim v As Variant
v = acaddoc.GetVariable("FILEDIA")
acaddoc.SetVariable "FILEDIA", 0
acaddoc.SendCommand "'script" & vbCr & "e:smx.scr" & vbCr
acaddoc.SetVariable "FILEDIA", v
acaddoc.Application.ZoomAll
End Sub

huangyanshi · 发表于 2004-11-25 16:46:43

联系我

账号		自动登录	找回密码
密码			立即注册

[求助]：在EXCEL调用CAD的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子