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

ntchjie

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

雪山飞狐_lzh

p1是p的笔误吧？

ntchjie

我换了，用p是不行的。


老大，vbnet不中断需要如何设置？

雪山飞狐_lzh

VIEWCTR 系统变量
（只读）
类型：三维点
保存位置：图形 存储当前视口中视图的中心。该值用 UCS 坐标表示。

ntchjie

原来是只读的啊。


没有办法，我通过zoom调整了，谢谢老大。