[VBA]这段代码为什么运行不起来？

ntchjie · 发表于 2004-10-11 18:35:00

我今天刚开始弄net程序，写了一个文本修改程序，想根据所得的文本句饼将cad 调整到按文本居中，可惜在net中没有调试的出来，请老大帮看看
acadobj = GetObject(, ".Application.15")
   acaddoc = acadobj.ActiveDocument
textobj = acaddoc.handletoobject(9476CE)    '任意已知句柄的文字
   p = textobj.InsertionPoint
acadobj.ActiveDocument.SetVariable("VIEWCTR", p1)    ************出问题在这里
   acadobj.update()
另外，不知道做了什么操作，我的vbnet在调试的时候一碰到错误就停止调试，不中断了，所以我也不了解什么原因产生错误。