社区 › AutoCAD.net/VB.net/C# 编程技术 › 求一个.net编的批处理圆半径大小的范例

moyu132 发表于 2011-10-25 17:28:55

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

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

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

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

moyu132 发表于 2011-10-29 20:55:28

guohq 发表于 2011-10-27 12:32 static/image/common/back.gif


非常感谢，搞出来哒

TPG辉 发表于 2013-7-25 16:48:36

查看完整版本: 求一个.net编的批处理圆半径大小的范例