日志首页 | 普通分类 | 计算机学习 | AutoCAD | VisualBasic | FLash | 建筑&结构 | 建筑&软件 | 影音娱乐 | VISTA
-电信用户-|-网通用户-
-博客论坛-|-软件下载-
-网站导航-|-建筑书店-
-结构设计联盟-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2009 - 7 48
   1234
567891011
12131415161718
19202122232425
262728293031

站点统计

最新评论

日志搜索

 标题   内容 评论

友情链接

其他信息
 

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... [36]  显示模式: 默认视图 | 文章列表
[置顶] 田草结构工具箱   [ 2009-02-04  |  本站原创 ]
[置顶] 田草日志   [ 2007-08-31  |  本站原创 ]
[置顶] 自动绘制PKPM轴线网   [ 2007-06-11  |  本站原创 ]
[置顶] AutoCAD2000-2010各版本注册机   [ 2007-03-29  |  本站原创 ]
阅读全文……
作者:tiancao1001 | 分类:VisualBasic | 评论:0 | 引用:0 | 查看:6
这是一篇隐藏日志,只有管理员才能观看,请先登录
这是一篇隐藏日志,只有管理员才能观看,请先登录
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:22
'判断两个线段是否有重合的部分,重合则合并成一根线段
Function IsLineChongHe(L1 As AcadLine, L2 As AcadLine, ByRef L3 As AcadLine)
    Dim PList(3) As Variant
    Dim Len1 As Double, Len2 As Double, Len3 As Double, Len4 As Double, Len5 As Double

    If L1.angle - L2.angle = 0 Or Abs(L1.angle - L2.angle) = Atn(1) * 4 Then '直线方向相同或直线方向相反。
           PList(0) = L1.StartPoint: PList(1) = L1.EndPoint
           PList(2) = L2.StartPoint: PList(3) = L2.EndPoint
           Len1 = L1.length + L2.length
           Len2 = P2PDistance(PList(0), PList(2))
           Len3 = P2PDistance(PList(0), PList(3))
           Len4 = P2PDistance(PList(1), PList(2))
           Len5 = P2PDistance(PList(1), PList(3))
           
           If Len1 > Len2 And Len1 > Len3 And Len1 > Len4 And Len1 > Len5 Then '有重合部分(任意两点间长度不会大于两线段长度之和)
                DianPaiXu1 PList '点排序,找到最大的点和最小的点,绘制新线段
                Set L3 = ThisDrawing.ModelSpace.AddLine(PList(0), PList(3))
                'L3.color = acRed
                L1.Delete
                L2.Delete
           End If
    End If
End Function

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:29
拿到别人的初步设计,窗户都是随便插入的,一般情况下,我们都会将窗户放在墙段的中间,因此需要以下操作:
'对象居中
'天正建筑中的窗居墙体中间
'   在此操作之前应该将窗编号隐藏
Sub Center_E2E_Center1()
    Dim P As Variant
    Dim E As AcadEntity
    Dim SSet As AcadSelectionSet
    Dim I As Long
    Dim PC1 As Variant, PC2 As Variant
    Dim Wall As AcadEntity
    On Error GoTo xErr
xNext:
    ThisDrawing.Utility.GetEntity E, P, "第一个窗对象:"
    PC1 = GetCenter(E)
    Set SSet = GetE_SideByE(E)
    For I = 0 To SSet.Count - 1
        'Prompt SSet.item(I).ObjectName & vbCrLf
        If SSet.item(I).ObjectName = "TDbWall" Then
            Set Wall = SSet.item(I)
            PC2 = GetCenter(Wall)
            E.Move PC1, PC2
        End If
    Next I
xErr:
End Sub

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:20
'找到一个CAD对象附件的CAD对象
Function GetE_SideByE(E As AcadEntity) As AcadSelectionSet   '返回
    Dim Pmin As Variant, Pmax As Variant
    E.GetBoundingBox Pmin, Pmax
    Dim SSet  As AcadSelectionSet
    Set SSet = CreateSelectionSet("XX")
    'SSet.Select acSelectionSetWindow, Pmin, Pmax
    SSet.Select acSelectionSetCrossing, Pmin, Pmax
    Set GetE_SideByE = SSet
End Function

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:17
1、电瓶车的脚踏离地面的最小高度太小,在车很小的转弯情况下,都有可能脚踏触地,脚踏很容易损毁。
2、电瓶车的车灯最好能够上下调节,车灯应该能照到前下方的地面。电瓶车的灯光微弱,如果固定,且光线直射向前,在没有路灯的情况之下,这个等没有一点实用价值,微弱的灯光不足以照到远方的地面上,前方的地面依旧看不清。
3、电瓶车功能不应过多,没实际意义,特别是有很多塑料壳在上面的,坏了,不值得维修,很难看。
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:19
未知 可以再vba调用的Arx函数   [ 2009-06-24  |  本站原创 ]
目前只知道这几个,我也曾用过。
'选择颜色对话框
Private Declare Function acedSetColorDialog Lib "acad.exe" _
     (color As Long, ByVal bAllowMetaColor As Boolean, ByVal nCurLayerColor As Long) As Boolean
'显示提示对话框
Private Declare Function acedAlert Lib "acad.exe" (ByVal str As String) As Long

' 显示文本窗口(AutoCAD 命令行文本窗口)
Private Declare Function acedTextScr Lib "acad.exe" () As Long
' 隐藏文本窗口
Private Declare Function acedGraphScr Lib "acad.exe" () As Long
' 命令行提示
Private Declare Function acedPrompt Lib "acad.exe" (ByVal str As String) As Boolean
' 卸载 arx
Private Declare Function acedArxUnload Lib "acad.exe" (ByVal str As String) As Long
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:22
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:23
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:24
Sub Center_E2E_Center()
    Dim P As Variant
    Dim P1 As Variant, P2 As Variant
    Dim E1 As AcadEntity
    Dim E2 As AcadEntity
    On Error GoTo xErr
xNext:
    ThisDrawing.Utility.GetEntity E1, P, "第一个对象:"
    P1 = GetCenter(E1)
    E1.Visible = False
    ThisDrawing.Utility.GetEntity E2, P, "第二个对象:"
    P2 = GetCenter(E2)
    E1.Move P1, P2
    E1.Visible = True
    GoTo xNext
xErr:
End Sub

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:21
未知 发帖纪念一下   [ 2009-06-21  |  本站原创 ]
按此在新窗口打开图片

阅读全文……
作者:tiancao1001 | 分类:普通分类 | 评论:0 | 引用:0 | 查看:22

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... [36]  
版权所有:田草博客 备案:苏ICP备07028476号

tiancao1001@126.com网友交流QQ群:11740834
Powered by L-Blog V1.08 (SE) Final© 2007-2009,