lkmdxn 于 2009-12-16 04:29 PM 发表评论: |
|
查看所评论的日志:《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执行命令后在命令行输出的内容?? |