获取对象的真实线型

guohq

[pcode=vbnet,true]Public Function GetRealLinetypeName(ByVal ID As ObjectId) As String
     
        Using Trans As Transaction = DB.TransactionManager.StartTransaction
            Dim obj As DBObject = Trans.GetObject(ID, OpenMode.ForRead)
            If TypeOf obj Is Entity Then
                Dim Ent As Entity = obj
                Dim rLT As String = Ent.Linetype.ToUpper
                Select Case rLT
                    Case "BYLAYER"
                        Dim LayR As LayerTableRecord = Trans.GetObject(Ent.LayerId, OpenMode.ForRead)
                        GetRealLinetypeName = DirectCast(Trans.GetObject(LayR.LinetypeObjectId, OpenMode.ForRead), LinetypeTableRecord).Name
                    Case "BYBLOCK"
                        GetRealLinetypeName = "CONTINUOUS"
                    Case Else
                        GetRealLinetypeName = rLT
                End Select
            Else
                GetRealLinetypeName = ""
            End If
            Trans.Commit()
        End Using
    End Function[/pcode]

ScmTools

将LZ的VB代码转成了C#代码，以便大家学习

2. public string GetRealLinetypeName(ObjectId ID)
   
3. {
   
4. string functionReturnValue = null;
   
5. using (Transaction Trans = DB.TransactionManager.StartTransaction)
   
6. {
   
7. DBObject obj = Trans.GetObject(ID, OpenMode.ForRead);
   
8. if (obj is Entity)
   
9. {
   
10. Entity Ent = obj;
    
11. string rLT = Ent.Linetype.ToUpper;
    
12. switch (rLT)
    
13. {
    
14. case "BYLAYER":
    
15. LayerTableRecord LayR = Trans.GetObject(Ent.LayerId, OpenMode.ForRead);
    
16. functionReturnValue = ((LinetypeTableRecord)Trans.GetObject(LayR.LinetypeObjectId, OpenMode.ForRead)).Name;
    
17. break;
    
18. case "BYBLOCK":
    
19. functionReturnValue = "CONTINUOUS";
    
20. break;
    
21. default:
    
22. functionReturnValue = rLT;
    
23. break;
    
24. }
    
25. }
    
26. else
    
27. {
    
28. functionReturnValue = "";
    
29. }
    
30. Trans.Commit();
    
31. }
    
32. return functionReturnValue;
    
33. }

public string GetRealLinetypeName(ObjectId ID)<br /> { <br /> string functionReturnValue = null;<br /> using (Transaction Trans = DB.TransactionManager.StartTransaction) <br /> {<br /> DBObject obj = Trans.GetObject(ID, OpenMode.ForRead); <br /> if (obj is Entity) <br /> {<br /> Entity Ent = obj; <br /> string rLT = Ent.Linetype.ToUpper; <br /> switch (rLT) <br /> {<br /> case "BYLAYER": <br /> LayerTableRecord LayR = Trans.GetObject(Ent.LayerId, OpenMode.ForRead); <br /> functionReturnValue = ((LinetypeTableRecord)Trans.GetObject(LayR.LinetypeObjectId, OpenMode.ForRead)).Name;<br /> break; <br /> case "BYBLOCK":<br /> functionReturnValue = "CONTINUOUS"; <br /> break; <br /> default:<br /> functionReturnValue = rLT; <br /> break; <br /> }<br /> } <br /> else <br /> { <br /> functionReturnValue = ""; <br /> } <br /> Trans.Commit();<br /> } <br /> return functionReturnValue;<br /> }

Lispboy

ScmTools 发表于 2013-5-12 20:18
将LZ的VB代码转成了C#代码，以便大家学习

版主，有什么工具能把VB的转换成C#吗？

guohq

http://www.developerfusion.com/tools/convert/csharp-to-vb/

守仁格竹GM

好东西