如果是直接的XML文件,则会简单一些,直接读取XML就行,后面的处理方法一样: - (defun C:readxmlfile(/ filename xmlString objXml)
- (setq filename "d:\\tmp.xml")
- (setq xmlString "(<customer><first_name>Joe</first_name><last_name>Smith</last_name></customer>")
- (setq objXml(vlax-create-object "Msxml2.DOMDocument"))
- (vlax-invoke-method objXml "load" filename)
- ;;(vlax-invoke-method objXml "loadXML" xmlString)
- (princ (vlax-get-property objXml 'xml))
- (vlax-release-object objXML)
- )
|