乐筑天下

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

[编程交流] 在VBA中证明文本的合理性

[复制链接]

29

主题

519

帖子

477

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-6 22:55:35 | 显示全部楼层 |阅读模式
你好
 
我在验证我在VBA例程中创建的文本时遇到问题。当我使用此代码时:
 
  1. If ThisDrawing.ActiveSpace = acModelSpace Then
  2.    Set txtPNum = ThisDrawing.ModelSpace.AddText(strPNum, varPNumIns, dblTHeight)
  3. Else
  4.    Set txtPNum = ThisDrawing.PaperSpace.AddText(strPNum, varPNumIns, dblTHeight)
  5. End If
  6. txtPNum.Alignment = acAlignmentRight
  7. txtPNum.Update

 
文本在0,0,0处插入
如果注释掉对齐线,文本将插入预期位置。
 
我还插入了一些多行文字,但似乎找不到方法来设置对齐方式。在AutoCAD属性窗口中,有一个路线属性:-(
 
还有其他人遇到过这些问题吗?有人知道我做错了什么吗?
回复

使用道具 举报

48

主题

1073

帖子

1043

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
238
发表于 2022-7-6 23:15:24 | 显示全部楼层
这个帖子有用吗?
http://www.cadtutor.net/forum/showthread.php?41740-使用VBA定位文本
回复

使用道具 举报

29

主题

519

帖子

477

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-6 23:32:19 | 显示全部楼层
戴夫,
这对文本来说是一种享受。关于多行文字的任何想法,都没那么重要,但它只是困扰着我。
 
非常感谢。
回复

使用道具 举报

48

主题

1073

帖子

1043

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
238
发表于 2022-7-6 23:46:47 | 显示全部楼层
对不起,我从未在VBA中使用过多行文字。
回复

使用道具 举报

29

主题

519

帖子

477

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-7 00:06:52 | 显示全部楼层
没关系。
非常感谢你的帮助。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-4 06:00 , Processed in 0.522703 second(s), 62 queries .

© 2020-2025 乐筑天下

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