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

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

在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<BR>。。。。。


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<BR>       Dim myDoc As Object<BR>        <BR>       Set myApp = GetObject(, "AutoCAD.Application")<BR>       Set myDoc = myApp.ActiveDocument<BR>       <BR>       Dim a<BR>       a = myDoc.getvariable("filedia")<BR>       myDoc.setvariable "filedia", 0<BR>       myDoc.SendCommand "script c:\gcsjSCR.scr"<BR>       myDoc.setvariable "filedia", a<BR>

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

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

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

ThisDrawing.SendCommand "script" &amp; vbCr &amp; "c:\gcsjSCR.scr" &amp; vbCr<BR>

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

thanks a lot
页: [1]
查看完整版本: 在vb中如何控制cad执行指定的宏呢，也就是达到命令行执行 script a.scr 同样的效果