查看: 15  |  回复: 0
  VBA 在AutoCAD制作旋转时钟
楼主
发表于 2025年3月30日 18:38
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


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com