VB.net中为何DimensionText取不到值？

wyqzm

2.         Dim db As Database = HostApplicationServices.WorkingDatabase
   
3.         Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
   
4.         Dim optSel As New PromptSelectionOptions
   
5.         optSel.MessageForAdding = vbCrLf & "请选择对象："
   
6. 
   
7.         Dim resSel As PromptSelectionResult = ed.GetSelection(optSel)
   
8.         Dim sSeT As SelectionSet = resSel.Value
   
9.         Dim ids As ObjectId() = sSeT.GetObjectIds()
   
10.         Using trans As Transaction = db.TransactionManager.StartTransaction()
    
11.             For Each sSetEntId As ObjectId In ids
    
12.                 Dim en As Entity = trans.GetObject(sSetEntId, OpenMode.ForWrite)
    
13.                 ed.WriteMessage(vbCrLf & "你选择的是： " & en.GetType().Name)
    
14.                 Select Case en.GetType().Name
    
15.                     Case "RotatedDimension"
    
16.                         Dim ent As Dimension = en
    
17.                         ed.WriteMessage(vbCrLf & "标注文字：" & ent.DimensionText)  ‘这句得到的文字为空，为什么？’
    
18.                     Case Else
    
19.                         MsgBox("other")
    
20.                 End Select
    
21.             Next
    
22.             trans.Commit()
    
23.         End Using

        Dim db As Database = HostApplicationServices.WorkingDatabase<br />         Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor<br />         Dim optSel As New PromptSelectionOptions<br />         optSel.MessageForAdding = vbCrLf & "请选择对象："<br /> <br />         Dim resSel As PromptSelectionResult = ed.GetSelection(optSel)<br />         Dim sSeT As SelectionSet = resSel.Value<br />         Dim ids As ObjectId() = sSeT.GetObjectIds()<br />         Using trans As Transaction = db.TransactionManager.StartTransaction()<br />             For Each sSetEntId As ObjectId In ids<br />                 Dim en As Entity = trans.GetObject(sSetEntId, OpenMode.ForWrite)<br />                 ed.WriteMessage(vbCrLf & "你选择的是： " & en.GetType().Name)<br />                 Select Case en.GetType().Name<br />                     Case "RotatedDimension"<br />                         Dim ent As Dimension = en<br />                         ed.WriteMessage(vbCrLf & "标注文字：" & ent.DimensionText)  ‘这句得到的文字为空，为什么？’<br />                     Case Else<br />                         MsgBox("other")<br />                 End Select<br />             Next<br />             trans.Commit()<br />         End Using

写： ent.DimensionText = “1234567890” ，倒是正常的，请请教！

sieben

若尺寸被改写,DimensionText才会有值,否则是空,相当于使用命令编辑尺寸时看到的<>

wyqzm

sieben 发表于 2014-1-11 22:05
若尺寸被改写,DimensionText才会有值,否则是空,相当于使用命令编辑尺寸时看到的

谢谢，我已经明白了，不是DimensionText，而是Measurement，已经解决。