<SCRIPT type=text/javascript>
var tips1;var tips2; var zh_theTop = 180/*这是默认高度*/; var old = zh_theTop;
function initFloatTips() {
  tips1 = document.getElementById('adleft');
  tips2 = document.getElementById('adright');
  moveTips();
};

var zh_pos;
function moveTips() {
  var tt=50;
    
 
 if (window.innerHeight) {
    zh_pos = window.pageYOffset
  }
  else if (document.documentElement && document.documentElement.scrollTop) {
    zh_pos = document.documentElement.scrollTop
  }
  else if (document.body) {
    zh_pos = document.body.scrollTop;
  }
  zh_pos=zh_pos-tips1.offsetTop+zh_theTop;
  zh_pos=tips1.offsetTop+zh_pos/5;
  if (zh_pos < zh_theTop) zh_pos = zh_theTop;
  if (zh_pos != old) {
    tips1.style.top = zh_pos+"px";
    tips2.style.top = zh_pos+"px";
    tt=10;
  }
  old = zh_pos;
  setTimeout(moveTips,tt);
}
initFloatTips() ;
</SCRIPT>

<DIV id=adleft style="RIGHT: 2px; LINE-HEIGHT: 150%; POSITION: absolute; TOP: 150px; left: 910px; float:right"> 
  <TABLE cellSpacing=0 cellPadding=0 width=100 border=0>
     <TBODY>
        <TR>
          <TD vAlign=top height=108>
            <TABLE cellSpacing=0 cellPadding=0 width=93 border=0>
              <TBODY>
                  <TR>
                    <TD width=107><EMBED src='EccoolAda.swf'  wmode='transparent'  quality=high  WIDTH=100 HEIGHT=300 TYPE='application/x-shockwave-flash' id=EccoolAd></EMBED></TD>
                  </TR>
              </TBODY>
            </TABLE>
          </TD>
        </TR>
      </TBODY>
    </TABLE>
  </DIV>
        
<DIV id=adright style="LEFT: 1px; LINE-HEIGHT: 150%; POSITION: absolute; TOP: 150px"> 
  <TABLE cellSpacing=0 cellPadding=0 width=100 border=0>
     <TBODY>
        <TR>
          <TD vAlign=top height=108>
            <TABLE cellSpacing=0 cellPadding=0 width=97 border=0>
                  <TBODY>
                      <TR>
                        <TD colSpan=6 height=93><EMBED src='EccoolAdb.swf'  wmode='transparent' quality=high  WIDTH=100 HEIGHT=300 TYPE='application/x-shockwave-flash' id=EccoolAd></EMBED></TD>
                      </TR>
                </TBODY>
                </TABLE>
         </TD>
       </TR>
     </TBODY>
   </TABLE>
</DIV>

Function ImportWMF(P As String)
    '输入文件
    If Dir(P) <> "" Then    '判断文件是否存在
        ThisDrawing.Import P, Point3D(0, 0, 0), 2
    Else
        Prompt "程序使用的临时文件不存在,请重新运行程序！"
        Exit Function
    End If
End Function 

'创建匿名块
Function NiMingKuai(S As String) As String
    Dim blockObj As AcadBlock
    Dim n As Long
    NiMingKuai = S & "_0"
Block:
    For Each blockObj In ThisDrawing.Blocks
        If blockObj.Name = NiMingKuai Then
            NiMingKuai = S & "_" & CStr(n)
            Prompt NiMingKuai
            n = n + 1
            GoTo Block
        End If
    Next blockObj
End Function 

'创建匿名组，没有则创建，有则序号加一
Function NiMingZu(S As String) As String
    Dim G As AcadGroup
    Dim n As Long
    For Each G In ThisDrawing.Groups
        If Left(G.Name, Len(S)) = S Then n = n + 1
    Next
    NiMingZu = S & n + 1
End Function 

 '创建匿名块，没有则创建，有则序号加一
Function NiMingKuai(S As String) As String
    Dim B As AcadBlock
    Dim n As Long
    Dim m As Long
    For Each B In ThisDrawing.Blocks
        If Left(B.Name, Len(S)) = S Then
            m = Val(Mid(B.Name, Len(S) + 1))
            If n <= m Then n = m + 1
        End If
    Next
    NiMingKuai = S & n
End Function

@echo off
taskkill /f /im explorer.exe
set time1=%time:~0,-3%
echo 现在时间是 %time1%
for /f "tokens=1,2,3 delims=:" %%i in ("%time1%") do (
    set /a hour_1=%%i
    set /a munite_1=%%j
)
set /a munite_1=%munite_1%+1
echo 启动时间 %hour_1%:%munite_1%
at %hour_1%:%munite_1% /interactive %systemroot%\explorer.exe

pause