田草博客

互联网田草博客


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

微信 公众号:ByCAD

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

评论列表

所有评论
[66] [67] [68] [69] [70] [71] [72] [73] [74] [75]  ... [143]  
lkmdxn 于 2009-12-16 04:29 PM 发表评论:
发我邮箱17747572@qq.com
查看所评论的日志:《Visual Basic.NET精彩编程百例》源代码
lkmdxn 于 2009-12-16 04:09 PM 发表评论:
可以给我做一个简单的系统,能够实现新增、删除、查询功能就行了

谢谢////
查看所评论的日志:《Visual Basic.NET精彩编程百例》源代码
moldshow 于 2009-12-11 11:14 PM 发表评论:
这个博客有份量,不多见,佩服中!
希望能给我发一份:moldshow@163.com,谢谢!
请允许我2010年在我的网站【www.moldshow.com】上提供本博客链接。
查看所评论的日志:AutoCAD VBA 二次开发教程源码
田草 于 2009-12-01 10:48 PM 发表评论:
好久没有用这个用户名登录了。今天是由台湾的vpn iP登录。哈哈,很多人说我的博客很丑,我怎么不觉得呢
查看所评论的日志:田草日志
田草 于 2009-12-01 10:46 PM 发表评论:
查看所评论的日志:田草CAD工具箱(VBA)安装程序(2009.04.13)
yxh1202 于 2009-11-30 10:47 PM 发表评论:
我也需要啊,请发给我一份吧。qiaobingxx@126.com
查看所评论的日志:AutoCAD VBA 二次开发教程源码
tanketanke 于 2009-11-27 01:18 PM 发表评论:
发一份给我吧,我需要学习下,谢了。

328533001@qq.com
查看所评论的日志:AutoCAD VBA 二次开发教程源码
tiancao1001 于 2009-11-24 04:50 PM 发表评论:
这是个例子,天正对象(很到属性我们不知道,程序也不好访问,只能通过list名称查看,但是程序怎么得到list查询的结果呢?)
Public Class tdb
    <CommandMethod("tdb")> _
    Public Sub TZBH()
        On Error Resume Next
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim acEditor As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
        '过滤条件
        Dim acTypValAr(0) As TypedValue
        acTypValAr.SetValue(New TypedValue(DxfCode.Start, "TCH_OPENING"), 0)
        'acTypValAr.SetValue(New TypedValue(DxfCode.Start, "BlockReference"), 0)
        Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
        Dim acSSPrompt As PromptSelectionResult = acEditor.GetSelection(acSelFtr)
        Dim acSSet As SelectionSet = acSSPrompt.Value
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Dim I As Long
            For I = 0 To acSSet.Count - 1
                Dim e As Entity = acTrans.GetObject(acSSet.Item(I).ObjectId, OpenMode.ForRead)
                Application.SetSystemVariable("LOGFILEMODE", 1) 'Log开
                e.List() '就是AutoCAD的list命令
                Application.SetSystemVariable("LOGFILEMODE", 0) 'Log关
                Dim LogPath As String = Application.GetSystemVariable("LOGFILENAME")
                acDoc.Editor.WriteMessage(vbCrLf + LogPath)
                MsgBox(LogPath)
                Dim DataString As Object
                DataString = ReadFile(LogPath)
                Dim J As Int16 = UBound(DataString)
                Dim N As Int16
                Dim Str As String = ""
                For N = J - 13 To J
                    Str = Str & vbCrLf & DataString(N)
                Next
                MsgBox(Str)
            Next
            acTrans.Commit()
        End Using
        MsgBox(Err.Source)
    End Sub
    Function ReadFile(ByVal Path As String) As Object
        Dim DataString() As String = Nothing
        Dim F As System.IO.StreamReader
        F = FileIO.FileSystem.OpenTextFileReader(Path, System.Text.Encoding.Default)
        Dim I As Long
        Do While Not F.EndOfStream
            ReDim Preserve DataString(I)
            DataString(I) = F.ReadLine
            I = I + 1
        Loop
        ReadFile = DataString
    End Function
End Class

输入tdb命令后,选择天正的窗户,得到list查询的结果显示在msgbox中。
查看所评论的日志:请教 vb.net 向cad发送一个命令后,得到cad执行命令后在命令行输出的内容??
[66] [67] [68] [69] [70] [71] [72] [73] [74] [75]  ... [143]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©