田草博客

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

评论列表

所有评论

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

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 二次开发教程源码

tiancao1001 于 2008-11-07 04:14 PM 发表评论：

彻底隐藏文件：

REG DELETE "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL" /v CheckedValue /f
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL" /v CheckedValue /t REG_SZ /d 1 /f

查看所评论的日志：“显示所有文件和文件夹” 和 “不显示隐藏的文件和文件夹”

zqh2008 于 2008-11-06 07:35 PM 发表评论：

你好:
我正在学习CADVBA,能不能传份给我,谢谢!!
zqh200801@126.com

查看所评论的日志：AutoCAD vba 开发人员手册

zqh2008 于 2008-11-06 07:33 PM 发表评论：

你好:
我正在学习CADVBA,能不能传份给我,谢谢!!
zqh200801@126.com

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

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