求一个.net编的批处理圆半径大小的范例

moyu132

小弟最近在自学.net二次开发CAD，哪位大师有批处理圆半径大小的范例让小弟学习一下呀

guohq

2. Sub changeRad(IDs() As ObjectId, rad As Double)
   
3.         If rad <= 0 Then
   
4.             Exit Sub
   
5.         End If
   
6.         Using Trans As Transaction = HostApplicationServices.WorkingDatabase.TransactionManager.StartTransaction
   
7.             Dim ent As DBObject = Nothing, cir As Circle = Nothing
   
8.             For Each ID As Object In IDs
   
9.                 ent = Trans.GetObject(ID, OpenMode.ForWrite)
   
10.                 If TypeOf ent Is Circle Then
    
11.                     cir = ent
    
12.                     cir.Radius = rad
    
13.                 End If
    
14.             Next
    
15.             Trans.Commit()
    
16.         End Using
    
17.     End Sub

Sub changeRad(IDs() As ObjectId, rad As Double)<br />         If rad <= 0 Then<br />             Exit Sub<br />         End If<br />         Using Trans As Transaction = HostApplicationServices.WorkingDatabase.TransactionManager.StartTransaction<br />             Dim ent As DBObject = Nothing, cir As Circle = Nothing<br />             For Each ID As Object In IDs<br />                 ent = Trans.GetObject(ID, OpenMode.ForWrite)<br />                 If TypeOf ent Is Circle Then<br />                     cir = ent<br />                     cir.Radius = rad<br />                 End If<br />             Next<br />             Trans.Commit()<br />         End Using<br />     End Sub

moyu132

guohq 发表于 2011-10-27 12:32

非常感谢，搞出来哒

TPG辉