社区 › Auto Lisp › 在VBA中证明文本的合理性

Tyke 发表于 2022-7-6 22:55:35

在VBA中证明文本的合理性

你好
 
我在验证我在VBA例程中创建的文本时遇到问题。当我使用此代码时：
 
If ThisDrawing.ActiveSpace = acModelSpace Then
   Set txtPNum = ThisDrawing.ModelSpace.AddText(strPNum, varPNumIns, dblTHeight)
Else
   Set txtPNum = ThisDrawing.PaperSpace.AddText(strPNum, varPNumIns, dblTHeight)
End If

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

dbroada 发表于 2022-7-6 23:15:24

这个帖子有用吗？
http://www.cadtutor.net/forum/showthread.php?41740-使用VBA定位文本

Tyke 发表于 2022-7-6 23:32:19

戴夫，
这对文本来说是一种享受。关于多行文字的任何想法，都没那么重要，但它只是困扰着我。
 
非常感谢。

dbroada 发表于 2022-7-6 23:46:47

对不起，我从未在VBA中使用过多行文字。

Tyke 发表于 2022-7-7 00:06:52

没关系。
非常感谢你的帮助。

查看完整版本: 在VBA中证明文本的合理性