田草博客

互联网田草博客网友交流QQ群：11740834 需注明申请加入原因微信公众号：ByCAD 邮箱：tiancao1001x126.com
首页 \| 普通 \| 电脑 \| AutoCAD \| VB/VB.NET \| FLash \| 结构 \| 建筑 \| 电影 \| BIM \| 规范 \| 软件 \| ID

评论列表

所有评论

[88] [89] [90] [91] [92] [93] [94] [95] [96] [97] ... [144]

wyl92455 于 2008-11-25 11:24 PM 发表评论：

都挂的些什么连接啊，快成黄网之家了

查看所评论的日志：田草日志

tiancao1001 于 2008-11-20 05:52 PM 发表评论：

asp 添加广告代码
http://tiancao.net/ad/760/index.asp

查看所评论的日志：田草日志

tiancao1001 于 2008-11-19 09:15 AM 发表评论：

asp随机添加iframe广告代码
<%dim ad_index
        randomize
            ad_index=int(rnd*5)
        Response.Write("<iframe src='http://ntsjyt.net/ad/ad"&ad_index&". ... h=728marginheight=0marginwidth=0

frameborder=0 scrolling=no></iframe>")%>

查看所评论的日志：田草日志

tiancao1001 于 2008-11-17 11:55 AM 发表评论：

Function TC(e As AcadEntity)
    On Error Resume Next
       '填充面域
    Dim TC_Entity(0 To 0) As AcadEntity
    Dim TC1 As AcadHatch
    Dim TC_Name As String
    Dim TC_Type As Long
    Dim TC_Associativity As Boolean
    TC_Name = "SOLID"
    TC_Type = 0
    TC_Associativity = True

    Set TC1 = ThisDrawing.ModelSpace.AddHatch(TC_Type, TC_Name, TC_Associativity)

    Set TC_Entity(0) = e
    TC1.AppendInnerLoop (TC_Entity)
    TC1.Evaluate
    'ThisDrawing.SetVariable "HPDRAWORDER", 1
End Function

查看所评论的日志：将Solid实体转换成图案填充

tiancao1001 于 2008-11-14 01:23 PM 发表评论：

什么意思，你想怎么优化，有什么想法，不妨说出来

查看所评论的日志：解决笔记本没有数字键盘的软件办法

pgy 于 2008-11-11 09:11 PM 发表评论：

楼主，
我好不容易找到这份资料，但是下载我了，能给我发一份吗？谢谢了！

查看所评论的日志：推荐西北凡人制作的AutoCAD VBA教程【电子书】

catia005 于 2008-11-08 11:15 AM 发表评论：

我这边下载不下了啊，急求
lgf1206@126.com
谢谢!!!

查看所评论的日志：AutoCAD VBA 二次开发教程源码

catia005 于 2008-11-08 11:13 AM 发表评论：

我这边下载不下了啊，急求
谢谢!!!

查看所评论的日志：AutoCAD VBA 二次开发教程源码

[88] [89] [90] [91] [92] [93] [94] [95] [96] [97] ... [144]