田草博客 http://www.tiancao.net 田草博客 zh-cn Copyright 2003-2004 Loveyuki webmaster@loveyuki.com 田草博客 http://www.tiancao.net/images/logos.gif http://www.tiancao.net 田草博客 http://www.tiancao.net/blogview.asp?logID=568<![CDATA[彩色压型钢板 夹芯板 保温板 岩棉 聚苯 聚氨酯夹芯板]]>tiancao1001建筑&结构2008-9-6 9:34:04http://www.tiancao.net/blogview.asp?logID=568按此在新窗口打开图片


按此在新窗口打开图片


XPS挤塑板

EPS聚苯板
]]>http://www.tiancao.net/blogview.asp?logID=567<![CDATA[IIS并发连接数]]>tiancao1001计算机学习2008-9-4 17:30:10http://www.tiancao.net/blogview.asp?logID=5672、图片或文件被其他网站连接，
3、在线播放，多一个连接数
4、文件被下载，一个线程

]]>http://www.tiancao.net/blogview.asp?logID=566<![CDATA[google chrome 浏览器]]>tiancao1001计算机学习2008-9-3 19:33:50http://www.tiancao.net/blogview.asp?logID=566按此在新窗口打开图片



浏览器界面真是清爽简洁，按钮和菜单都是常用的，页面区域很大，一点没有浪费空间。

网上传google chrome 浏览器与法国名设计师Loris Azzaro在1996年所设计的男性香水重名Chrome

http://it.hexun.com/2008-09-03/108565204.html
]]>http://www.tiancao.net/blogview.asp?logID=565<![CDATA[AutoCAD VBA 设置字体]]>tiancao1001AutoCAD2008-9-3 15:44:05http://www.tiancao.net/blogview.asp?logID=565设置TrueType字体
Sub AddTrueType()
   Dim T As AcadTextStyle
   Set T = ThisDrawing.TextStyles.Add("宋体")
   T.SetFont "宋体",  False, False, 0, 0
   ThisDrawing.ActiveTextStyle = ThisDrawing.TextStyles.item("宋体")
   Dim P As Variant
   P = ThisDrawing.Utility.GetPoint(, "选择文字插入点:")
   ThisDrawing.ModelSpace.AddText "看看现在的字体都是宋体了", P, 300
   ZoomAll
End Sub


设置SHXType字体
Sub AddSHXtype()
    Dim TS As AcadTextStyles
    Set TS = ThisDrawing.TextStyles
    Dim TStyle As AcadTextStyle
    Set TStyle = TS.Add("HZTXT")
    Dim Ffile As String
    Ffile =  "D:\Program Files\AutoCAD 2006\Fonts\txt.shx"
    TStyle.fontFile = Ffile
    TStyle.BigFontFile = “D:\Program Files\AutoCAD 2006\Fonts\hztxt.shx"
    TStyle.width = 0.7
    TStyle.height = 300
End Sub
]]>http://www.tiancao.net/blogview.asp?logID=564<![CDATA[AutoCAD VBA中使用计时器]]>tiancao1001AutoCAD2008-9-3 9:58:14http://www.tiancao.net/blogview.asp?logID=564没什么好说的，只能直接看附件和源码

附件两个
project.dvb

xtimers.dll

注册xtimers.dll 文件

加载project.dvb运行其中的sub xx() 即可看到效果。

文件下载地址：
点击下载此文件
]]>http://www.tiancao.net/blogview.asp?logID=563<![CDATA[CAD 卸载自己]]>tiancao1001AutoCAD2008-9-3 9:47:34http://www.tiancao.net/blogview.asp?logID=563  F = VBE.ActiveVBProject.FileName
  'ThisDrawing.SendCommand "vbaunload " & F & " "

]]>http://www.tiancao.net/blogview.asp?logID=562<![CDATA[CAD VBA 电子书籍和源码光盘]]>tiancao1001AutoCAD2008-9-1 23:30:45http://www.tiancao.net/blogview.asp?logID=562
    http://www.tiancao.net/blogview.asp?logID=337

AutoCAD VBA Programming: Tools and Techniques

    http://www.tiancao.net/blogview.asp?logID=561

AutoCAD VBA 二次开发教程源码 

    http://www.tiancao.net/blogview.asp?logID=356

Mastering AutoCAD VBA 从入门到精通.pdf 电子版格式

    http://www.tiancao.net/blogview.asp?logID=404
中望CAD vba 教程

    http://www.tiancao.net/blogview.asp?logID=380

晓东VBA论坛板块的电子书版本

    http://www.tiancao.net/blogview.asp?logID=394&cateID=3

AutoCAD 2006 VBA A Programmer’s Reference

    http://www.tiancao.net/blogview.asp?logID=368&cateID=3

AutoCAD vba 开发人员手册

    http://www.tiancao.net/blogview.asp?logID=366&cateID=3


]]>http://www.tiancao.net/blogview.asp?logID=561<![CDATA[AutoCAD VBA Programming: Tools and Techniques]]>tiancao1001AutoCAD2008-9-1 23:21:43http://www.tiancao.net/blogview.asp?logID=561AutoCAD VBA Programming: Tools and Techniques
这个是全英文的源代码





文件夹 PATH 列表
卷序列号为 08EF-17BE
D:.
│  CPYRIGHT.TXT
│  
├─006 Chapter 4
│      preferences.dvb
│      
├─007 Chapter 6
│      blkattribs.dvb
│      blockcount.dvb
│      blocks.dvb
│      collections.dvb
│      dicts.dvb
│      Drawing Tables.dvb
│      
├─008 Chapter 7
│      example1.xls
│      Excel 2.dvb
│      Excel.dvb
│      
├─009 Chapter 8
│      CoolStuf.dvb
│      Multiple Projects.dvb
│      
├─010 chapter 9
│      APIcalls.ini
│      FileIO.dvb
│      INIfileIO.dvb
│      RegistryIO.dvb
│      WindowsOS.dvb
│      
├─011 Extras
│      blocks.dvb
│      holes.dvb
│      Plotting 14.dvb
│      Plotting 14.dwg
│      Plotting 2000.dvb
│      Plotting 2000.dwg
│      Plotting Objects.doc
│      
├─001 Chapter 10
│      BasAMW.bas
│      BasDatabase.bas
│      basGlobal.bas
│      Basmisc.bas
│      BasRegistry.bas
│      basToolbox.bas
│      basToolTest.bas
│      BasWindows.bas
│      center.bas
│      toolbox.bas
│      Toolbox.dvb
│      VBABasAmw.bas
│      
├─002 Chapter 11
│      Attach.vbp
│      basglobal.bas
│      basHelp.bas
│      VBA.HLP
│      
├─003 Chapter 12
│      Arguments.dvb
│      Array.dvb
│      basCommand.bas
│      Collection.dvb
│      columns.dvb
│      Commands.dvb
│      Control.dvb
│      Dates.dvb
│      Employee.dvb
│      frmCommand.frm
│      frmCommand.frx
│      
├─004 Chapter 13
│      Errors.dvb
│      scope.dvb
│      
└─005 Chapter 14
        frmXdataView.frm
        frmXdataView.frx
        holes.dvb
        TestModules.bas
        Xdata.cls
        Xdata.dwg
        xdataForms.dvb
        XdataObj Template.dvb
        XdataObj Test.dwg
        XdataObj.dvb

        

]]>http://www.tiancao.net/blogview.asp?logID=560<![CDATA[网页文字竖排]]>tiancao1001计算机学习2008-8-31 15:10:32http://www.tiancao.net/blogview.asp?logID=560 　|　|　|　|佳|宁|一|北|　|　|
 　|　|　|　|人|不|顾|方|　|　|
 　|　|　|　|难|知|倾|有|　|北|
 　|　|　|　|再|倾|人|佳|　|方|
 　|　|　|　|得|城|城|人|　|有|
 　|　|　|　|！|与|，|，|　|佳|
 　|　|　|　|　|倾|再|绝|李|人|
 　|　|　|　|　|国|顾|世|延|　|
 　|　|　|　|　|？|倾|而|年|　|
 　|　|　|　|　|　|人|独|　|　|
 　|　|　|　|　|　|国|立|　|　|
 　|　|　|　|　|　|。|。|　|　|
 　|　|　|　|　|　|　|　|　|　|
 　|　|　|　|　|　|　|　|　|　|
 　|　|　|　|　|　|　|　|　|　|
http://www.tiancao.net/qita/shupai.htm

]]>http://www.tiancao.net/blogview.asp?logID=559<![CDATA[CAD致命错误处理办法【转帖】]]>tiancao1001AutoCAD2008-8-30 20:55:10http://www.tiancao.net/blogview.asp?logID=559我们在使用cad绘制图形的过程中经常会因为一些不确定因素（如版本转换、块插如等）导致图形损坏而发生各种类型的致命错误。致命错误提示往往是很有价值的，熟悉的人可以根据提示推测出问题的症结，从而顺利解决问题，不熟悉的人按照一定的操作步骤通常也能解决大部分的问题。以下所述希望对大家有所启发。 

1. 首先我们必须对要修复的图形做好备份，这一步骤其实挺重要的，因为任何的操作都可能导致图形的进一步的损坏，这不是我们所希望看到的。 

2. 如果cad图能够顺利打开，而是在进行其他一些操作时发生错误退出，我们使用如下方法：文件-->绘图实用程序-->检查，这样可以修复一些错误。如果cad图无法顺利打开或者前述方法并不能解决问题，我们就得用recover工具：文件-->绘图实用程序-->修复，选择要修复的文件修复。 

3. 有的时候就算recover了，但问题仍然存在，这时我们就得变通一下。我们新建一个cad文件，把要修复的文件作为一个块插入进来：插入-->块，然后浏览，选择要修复的文件。这样，cad图相当于有了一个新的环境，在这个环境里，各种系统变量相对原始。在作为块插入时也有一点讲究，有时会有这种情况，以0，0插入，问题仍然存在，但以其他点（如1，1）插入问题就解决了，对于要保证各点坐标的图，可以先以1，1插入，然后再整体move到0，0。我曾经有一张出错的图，是由高版本转换成低版本的，在高版本里打开没问题，但是低版本读到一半就致命错误退出，通过以上步骤我的问题仍然没解决，此时，我就不是以插入块的方式来更新cad图的环境，用高版本新建一个cad文件后，再用高版本打开原来的图，选中所有实体，编辑-->带基点复制，到新文件里，编辑-->粘贴，保存新文件，转成低版本，问题解决。 

4. 下述方法是一种非常规做法，但是也能解决一些致命错误问题。首先，两只手都做好准备，呵呵，一只手准备按esc键，一只手从cad中选择打开要修复的文件，在选择打开文件，文件在读取的瞬间，不停的按esc键，多试几次，阻止autocad菜单实用程序的加载，有时这样是可以打开一些已损坏的文件，打开后，如下操作：命令行输入dxfout,将当前文件输出成dxf格式，关闭当前文件，新建一个cad图形文件，命令行输入dxfin，选择刚刚输出的文件，成功加载后保存。当然也有可能无法重新加载，对于熟悉dxf格式文件的可以手动编辑dxf文件，此时可以选择一些带行标的文本编辑器，因为在加载失败时cad会提示是哪一行有问题。本人曾经使用excel来编辑，但对于cad这个巨大的数据库来说，excel的六万五千多行实在太少了，似乎可以使用ultraedit一类的编辑器（支持行号），不过这个在下没有试过。 

5. 下面这个办法比较麻烦，因为有些错误是图形中一些特定的实体造成的，此时我们只要选择不打开此实体所在图层，从而可以把损失降到最低。之所以说这种方法麻烦，是因为我们并不知道出错实体所在的层，唯有一个一个来尝试。文件-->打开，选中cad图，点打开旁边向下的箭头，选择局部打开，然后在要打开的图层前勾上，一个一个试，当试到打开某图层时出错，那么下次打开时不再加载该图层。 

6. 其他一些办法：曾经有一张图，我在插入一个块时始终出错，后来通过外部的版本转换程序，将该图转为较低版本，用低版本打开保存，再用高版本cad打开，问题解决；对于一些打印出错，有时将图形从cad的一个区域move到另外一个区域，竟然也能解决问题，原因本人不详；另外，对自动存储文件和备份文件的利用也是可以把损失降到最低程度。 

7. 用各种方法修复错误后，最后最好使用cad的检查工具再检查一遍（如第二条所述）。 

8. 此外，充分利用备份文件和自动存档文件，也能挽救损失。直接更改备份文件或自动存档文件的后缀名即可。 

9. 当然也有这些方法解决不了的问题，那就需要具体问题具体分析处理了。 

将致命错误文件以块插入这招很灵，我试过，其他的就不知道了。感谢原文的作者。]]>