乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 64|回复: 4

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

[复制链接]

12

主题

68

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
116
发表于 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在调试的时候一碰到错误就停止调试,不中断了,所以我也不了解什么原因产生错误。
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-10-11 19:53:00 | 显示全部楼层
p1是p的笔误吧?
回复

使用道具 举报

12

主题

68

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
116
发表于 2004-10-11 20:53:00 | 显示全部楼层
我换了,用p是不行的。
老大,vbnet不中断需要如何设置?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-10-11 21:08:00 | 显示全部楼层
VIEWCTR 系统变量         
(只读)
类型:三维点
保存位置:图形
存储当前视口中视图的中心。该值用 UCS 坐标表示。
回复

使用道具 举报

12

主题

68

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
116
发表于 2004-10-12 19:31:00 | 显示全部楼层
原来是只读的啊。
没有办法,我通过zoom调整了,谢谢老大。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 06:40 , Processed in 2.098808 second(s), 63 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表