AutoCAD制作旋转时钟

效果图

 

代码如下:

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Clock()
'旋转演示
Dim i As Integer
Dim basepoint(0 To 2) As Double
Dim m As ZcadEntity
Set m = Application.ActiveDocument.HandleToObject("2FD")
basepoint(0) = 148: basepoint(1) = 105
For i = 1 To 60
m.Rotate basepoint, -Application.ActiveDocument.Utility.AngleToReal(6, zcDegrees)
Application.ActiveDocument.Regen zcActiveViewport
Sleep 1000
Next i
End Sub