由于本人比较懒，而在单位时本本要用单位的Iｐ地址，否则不能上网，回到家里用的是ADSL，还得将IP信息换成自动获取或者重新设定IP，掩码，DNS等信息，每次觉得很麻烦，于是自己写了这样一个工具。觉得用起来很方便，拿来与大家分享。支持设置完后自动关机，重启，注销，或者不进行其它操作。 用的时候，请先用写字板打开程序，将下面的设置信息按自己的IP信息改一下。 rem -----------设置办公IP信息---------- ::IP地址 set addr_O=192.168.111.81 ::子
''' ''' Element的方式闪烁图元 ''' ''' 选中图元的geometry ''' 选中图元的geometry类型 ''' 该方式就是先加一个element，然后再将之删除，这种方法经过扩展 ，还可以用于三维闪烁 Sub FlashGeoByElement(ByVal pActiveView As IActiveView, ByVal pGeo As IGeometry, ByVal pGeoType As esriGeometryType) Dim pElement As
CClientDC dc(this); CPen pen(PS_SOLID,1,RGB(255,0,0)); dc.SelectObject(&pen); float x,y; int centx=pt1.x,centy=pt1.y; int n=20; int i,j,k; int r=210; int X[20],Y[20]; dc.MoveTo(centx,centy-r); for(i=1;i<=n;i++){ x=centx+r*co s(PI/2.0+i*2*PI/n); y
