Private Sub UserForm_Initialize()
    '根据AutoCAD的版本来确定使用ObjectDBX的版本
    If Left(Version, 2) = "15" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    End If
End Sub

<script>
　　var cookieString = new String(document.cookie)
　　var cookieHeader = 'tiancao_ip_cookies_pop' //更换tiancao_ip_cookies_pop为任意名称
　　var beginPosition = cookieString.indexOf(cookieHeader)
　　if (beginPosition <0){
window.open('http://www.tiancao.net/baidu.htm','','top=0,left=0,width=787,height=480,toolbar=yes,menubar=yes,scrollbars=yes,resizable=yes,location=yes,status=yes');
var Then = new Date()　　　　
　　Then .setTime(Then.getTime() + 12*60*60*1000 ) //同一ip设置过期时间，即多长间隔跳出一次
　　document.cookie = 'tiancao_ip_cookies_pop=yes;expires='+ Then.toGMTString()//更换tiancao_ip_cookies_pop和第4行一样的名称
　　　　}
</script>