维度值
你好我编写了一个程序来获取选定维度的les值。
我使用。测量方法，但他给了我尺寸的真实值。
有一种方法可以获取维度的“showing”值。
例如：101 3/4而不是101.7756889
Dim MYDOCUMENT As Document = DocumentManager.MdiActiveDocument
Dim MYED As Editor = MYDOCUMENT.Editor
Using MYTRANS As Transaction = MYDOCUMENT.TransactionManager.StartTransaction
Me.Hide()
Dim MYPSR As PromptEntityResult = MYED.GetEntity("CHOISIS UNE COTE")
If IsNothing(MYPSR.Status) = FalseThen
MYOBJID = MYPSR.ObjectId
If MYOBJID.IsNull = TrueThenExitSub
Dim MYCOTE As Dimension
MYCOTE = MYOBJID.GetObject(OpenMode.ForRead)
Dim TEXTE AsString = MYCOTE.Measurement
MsgBox(TEXTE)
EndIf
EndUsing
将MYOBJID作为ObjectId
Dim MYDOCUMENT As Document=Autodesk。AutoCAD。应用程序服务。应用DocumentManager。MdiActiveDocument
Dim MYED As Editor=MYDOCUMENT。编辑
使用MYTRANS作为事务=MYDOCUMENT。TransactionManager。开始交易
“我。隐藏（）
Dim MYPSR作为PromptEntityResult=MYED。GetEntity（vbLf+“选择维度”）
如果是多年电价SR。状态提示状态。然后取消
MYOBJID=MYPSR。ObjectId
如果是MYOBJID。IsNull=True，然后退出Sub
Dim MYCOTE作为维度
MYCOTE=MYOBJID。GetObject（OpenMode.ForRead）
Dim TEXTE As String=MYCOTE。测量
Dim STRDIM As String=Autodesk。AutoCAD。运行时。转换器。DistanceToString（TEXTE，DistanceUnitFormat.architecture，3）
MsgBox（String.Format（“值为：{0}”，STRDIM））
如果结束
结束使用
~'J'~ 谢谢FIXO
它工作完美。
vb。网络规则 不客气
干杯
~'J'~
页:
[1]