[编程交流] 查询字典。带l的com

;Dict
;    Return the definitions for a given word.
(vl-load-com)
(defun c:dict( / query url xmlDoc pos posId posItem defs defId def )
   (princ "\n====== Online Dictionary reader ======")
   (setq query (getstring "\nEnter your query:"))
   (setq url (strcat"http://api-pub.dictionary.com/v001?vid=hqcw8ni3fld8ui0nxyoy6sbzxsub7gnp7zlfn4j3pw&type=define&q=" query))
   (if(and         
            (setq xmlDoc (vlax-create-object "MSXML.DOMDocument"))
            (not (vlax-put xmlDoc 'async 0))
            (= (vlax-invoke xmlDoc 'load url ) -1)
            (= 4 (vlax-get xmlDoc 'readyState)))
       (progn
           (setq pos (vlax-invoke-method xmlDoc 'getElementsByTagName "partofspeech"))
           (if(> (vlax-get pos 'length) 0)
               (progn
                   (setq posId -1)
                   (while (< (setq posId(1+ posId))  (vlax-get pos 'length))
                       (setq posItem (vlax-get-property pos 'Item posId))
                       (princ (strcat "\n------\nPart of speech:    " (vlax-get (vlax-invoke-method (vlax-get-property posItem 'attributes) 'getNamedItem "pos") 'value)))
                       (setq defs (vlax-invoke-method posItem 'getElementsByTagName "def"))
                       (if(> (vlax-get defs 'length) 0)
                           (progn
                               (setq defId -1)
                               (while(< (setq defId(1+ defId)) (vlax-get defs 'length))
                                   (setq def (vlax-get-property defs 'Item defId))
                                   (princ (strcat "\n" (rtos (1+ defId) 2 0) ": " (vlax-variant-value(vlax-get-property def 'nodeTypedValue))))
                               )
                           )
                       )
                   )
               )
               (princ "\nNo results found")
           )
       )
   )
   (vlax-release-object xmlDoc)
   (princ)
)