田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID

评论列表

所有评论
[88] [89] [90] [91] [92] [93] [94] [95] [96] [97]  ... [143]  
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 二次开发教程源码
tiancao1001 于 2008-11-05 11:09 AM 发表评论:
上面的程序有个小问题,遇到直线的起点设终点是同一点就麻烦了,直线是可以重合的而样条曲线是不可以的。
因此要吧终点加上那么一点点,
'直线转化为样条曲线
Sub LineToSPline()
    Dim E  As AcadEntity
    Dim L  As AcadLine
    Dim StartTan(0 To 2) As Double '指定样条曲线的起点切向。
    Dim FitPoints(0 To 8) As Double '指定样条曲线的所有拟合点?
    Dim CenterP As Variant '直线中点
    Dim a(0 To 2) As Double '拟合样条曲线的端点和终点的方向
    Dim n As Long
    Dim i As Long
    Dim Sp As AcadSpline
    n = ThisDrawing.ModelSpace.Count
    For Each E In ThisDrawing.ModelSpace
        i = i + 1
        ThisDrawing.Utility.Prompt Int(i / n * 100) & "%" & vbCrLf
        DoEvents
        'ThisDrawing.Utility.Prompt L.ObjectName
        'If e.ObjectName = "AcDbLine" Then
        If TypeOf E Is AcadLine Then
            Set L = E
            
            CenterP = centerPoint(L.StartPoint, L.EndPoint)
            
            a(0) = L.StartPoint(0) - L.EndPoint(0)
            a(1) = L.StartPoint(1) - L.EndPoint(1)
            a(2) = L.StartPoint(1) - L.EndPoint(1)
            
            FitPoints(0) = L.StartPoint(0):     FitPoints(1) = L.StartPoint(1):     FitPoints(2) = L.StartPoint(2)
            FitPoints(3) = CenterP(0):          FitPoints(4) = CenterP(1):          FitPoints(5) = CenterP(2)
            FitPoints(6) = L.EndPoint(0) + 0.001:   FitPoints(7) = L.EndPoint(1) + 0.001:   FitPoints(8) = L.EndPoint(2)
            
            StartTan(0) = -a(0):      StartTan(1) = -a(1):      StartTan(2) = -a(2)
            
            Set Sp = ThisDrawing.ModelSpace.AddSpline(FitPoints, StartTan, StartTan)
            Sp.Layer = L.Layer
            Sp.color = L.color
            L.Delete
        End If
    Next E
End Sub
查看所评论的日志:VBA将所有的直线转换成样条曲线
tiancao1001 于 2008-11-03 09:18 PM 发表评论:
还原天正轴线字体

Sub HYTZZT()
    Dim T As AcadTextStyle
    Set T = ThisDrawing.TextStyles("_TCH_AXIS")
    T.fontFile = "complex.shx"
    T.BigFontFile = "gbcbig.shx"
    ThisDrawing.Regen acAllViewports
End Sub
查看所评论的日志:CAD VBA 统一标注样式中的字体
tiancao1001 于 2008-11-03 09:53 AM 发表评论:
国家和房地产是一伙的,黑着呢。
查看所评论的日志:阳台建筑面?
[88] [89] [90] [91] [92] [93] [94] [95] [96] [97]  ... [143]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©