在vb中如何控制cad执行指定的宏呢，也就是达到命令行执行 script a.scr 同样的效果

jimly · 发表于 2004-4-24 12:39:00

在vb中如何控制cad执行指定的宏呢，也就是达到命令行执行 script a.scr 同样的效果

望指教

雪山飞狐_lzh · 发表于 2004-4-24 12:51:00

先将FileDia系统变量设为0再用调用SendCommand，把参数给全

jimly · 发表于 2004-4-24 13:18:00

系统变量具体怎么设置呢？谢谢

雪山飞狐_lzh · 发表于 2004-4-24 13:22:00

先将filedia值取出 a = ThisDrawing.GetVariable("filedia") ThisDrawing.SetVariable "filedia", 0
。。。。。 ThisDrawing.SetVariable "filedia", a End Sub 结束程序时记得要还原

jimly · 发表于 2004-4-24 13:41:00

sendcommand

程序总是提示 "对象不支持该属性或方法" , 为之奈何？

雪山飞狐_lzh · 发表于 2004-4-24 13:45:00

你怎么调用的？把代码传上来

jimly · 发表于 2004-4-24 13:46:00

诲人不倦，谢谢，谢谢 Dim myApp As Object
Dim myDoc As Object

Set myApp = GetObject(, "AutoCAD.Application")
Set myDoc = myApp.ActiveDocument

Dim a
a = myDoc.getvariable("filedia")
myDoc.setvariable "filedia", 0
myDoc.SendCommand "script c:\gcsjSCR.scr"
myDoc.setvariable "filedia", a

jimly · 发表于 2004-4-24 13:47:00

我的cad是r14,与此有关吗？

雪山飞狐_lzh · 发表于 2004-4-24 14:04:00

ThisDrawing.SendCommand "script" & vbCr & "c:\gcsjSCR.scr" & vbCr

jimly · 发表于 2004-4-24 14:15:00

thanks a lot

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