rn.dvb源码如下吧 DVB这种ID加密实在太差 返回原值0就解决了 不过我发现了更好的方法 我自己忘记后都无法破解还原源码! 密码我不知道也不想知道 网上的破解工具太多了 直接回车就OK进了! Sub Example_AddCircle() ' This example creates a circle in model space. Dim circleObj As AcadPoint Dim centerPoint(0 To 2) As Double Dim radius As Double ' Define the circle centerPoint(0) = Rnd(): centerPoint(1) = Rnd(): centerPoint(2) = 0# ' Create the Circle object in model space Set circleObj = ThisDrawing.ModelSpace.AddPoint(centerPoint) 'ZoomAll End Sub |