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

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

我今天刚开始弄net程序，写了一个文本修改程序，想根据所得的文本句饼将cad 调整到按文本居中，可惜在net中没有调试的出来，请老大帮看看                                                                                       


        acadobj = GetObject(, "AutoCAD.Application.15")<BR>                                                                                       acaddoc = acadobj.ActiveDocument<BR>                                                                                                textobj = acaddoc.handletoobject(9476CE)                               '任意已知句柄的文字<BR>                                                                                       p = textobj.InsertionPoint<BR>                                                                                                acadobj.ActiveDocument.SetVariable("VIEWCTR", p1)               ************出问题在这里<BR>                                                                                       acadobj.update()


另外，不知道做了什么操作，我的vbnet在调试的时候一碰到错误就停止调试，不中断了，所以我也不了解什么原因产生错误。

雪山飞狐_lzh 发表于 2004-10-11 19:53:00

p1是p的笔误吧？

ntchjie 发表于 2004-10-11 20:53:00

我换了，用p是不行的。


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

雪山飞狐_lzh 发表于 2004-10-11 21:08:00

VIEWCTR 系统变量       <BR>（<FONT color=#ff0000>只读</FONT>）<BR>类型：三维点<BR>保存位置：图形


存储当前视口中视图的中心。该值用 UCS 坐标表示。

ntchjie 发表于 2004-10-12 19:31:00

原来是只读的啊。


没有办法，我通过zoom调整了，谢谢老大。
页: [1]
查看完整版本: [VBA]这段代码为什么运行不起来？