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

mccad

下来一段时间会加强论坛与AutoCAD软件的互动方式，让用户可以直接通过AutoCAD的环境来读取论坛的部分内容。
如果大家有兴趣，可以一起完善，争取做到在AutoCAD中可以浏览论坛的大部分内容。
这方面需要论坛的程序配合。
以下是个简单的程序：

2. Sub getbbsnew()
3.     Dim objXML, objHttp
4.     Set objHttp = ThisDrawing.Application.GetInterfaceObject("Msxml2.XMLHTTP")
5.    
6.     objHttp.Open "GET", "http://www.mjtd.com/bbs/rssfeed.asp?rssid=4", False
7.     objHttp.send
8.     If objHttp.readyState <> 4 Or objHttp.status <> 200 Then
9.         Set objHttp = Nothing
10.         Exit Sub
11.     End If
12.     Set objXML = objHttp.responseXML
13.     Set objHttp = Nothing
14.    
15.     ThisDrawing.Utility.Prompt objXML.selectSingleNode("rss/channel/title").text & vbCrLf
16.     Dim Node
17.     For Each Node In objXML.selectNodes("rss/channel/item")
18.         ThisDrawing.Utility.Prompt Node.selectSingleNode("title").text & vbCrLf
19.     Next
20.     Set objXML = Nothing
21. End Sub

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

可以运行。非常好！

dongshaomin

xing