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

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

下来一段时间会加强论坛与软件的互动方式，让用户可以直接通过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程序中，做出更方便的程序。