mccad 发表于 2006-12-19 10:52:00

在AutoCAD中通过程序读取论坛最新帖子列表

下来一段时间会加强论坛与AutoCAD软件的互动方式，让用户可以直接通过AutoCAD的环境来读取论坛的部分内容。
如果大家有兴趣，可以一起完善，争取做到在AutoCAD中可以浏览论坛的大部分内容。
这方面需要论坛的程序配合。
以下是个简单的程序：Sub getbbsnew()
    Dim objXML, objHttp
    Set objHttp = ThisDrawing.Application.GetInterfaceObject("Msxml2.XMLHTTP")
   
    objHttp.Open "GET", "http://www.mjtd.com/bbs/rssfeed.asp?rssid=4", False
    objHttp.send
    If objHttp.readyState <> 4 Or objHttp.status <> 200 Then
      Set objHttp = Nothing
      Exit Sub
    End If
    Set objXML = objHttp.responseXML
    Set objHttp = Nothing
   
    ThisDrawing.Utility.Prompt objXML.selectSingleNode("rss/channel/title").text & vbCrLf
    Dim Node
    For Each Node In objXML.selectNodes("rss/channel/item")
      ThisDrawing.Utility.Prompt Node.selectSingleNode("title").text & vbCrLf
    Next
    Set objXML = Nothing
End Sub

大家可以把程序放在VBA中，并运行，就可以在命令行中看到论坛的最新20个帖子标题。
使用技术：
目前网络流行的XML技术以及AJAX使用的技术。
呵呵，以后要把前段时间一直学习网络编程的技术应用到AutoCAD中，这样可能是以后的方向。
LISP的大师们，可能把这个功能应用到LISP程序中，做出更方便的程序。

hylucky 发表于 2006-12-22 12:56:00

可以运行。非常好！

dongshaomin 发表于 2006-12-26 23:47:00

xing
页: [1]
查看完整版本: 在AutoCAD中通过程序读取论坛最新帖子列表