Topic: xml , html import lisp in autocad ?

[dussla]

IS there  good xml , html import lisp  in autocad ?

[rkmcswain]

What exactly are you trying to import, and what should the result look like?

[FengK]

you mean to process?
(vlax-create-object "htmlfile")

http://msdn2.microsoft.com/en-us/library/bb508515(VS.85).aspx

[dussla]

if you see  http://www.pave-a-way.co.uk/portfolio.htm , you can see tables
i would like to  put  html table  in cad
i used  dotsoft "word2cad"  , but that didn't import  word table
i would like to import word table and html file
only i need import lisp about  word(doc) , html , image in www   rapidly

can you understand my letter ?~
i will wait good answer

[dussla]

friends , is there good routine about xml import ?

[dussla]

i found this lisp in www
but that didn;t import word table object  ,  isn's that impossible ?


;;;Open a word document
(defun Open-Word (xfile dmode / appsession)
  (princ "\nOuverture du document Word...")
  (cond
    ( (setq fn (findfile xfile))
      (cond
        ((setq appsession (vlax-get-or-create-object
"Word.Application"))
          (vlax-invoke-method
            (vlax-get-property appsession 'Documents)
            'Open fn
          )
          (if (= (strcase dmode) "SHOW")
            (vla-put-visible appsession 1)
            (vla-put-visible appsession 0)
          )
        )
      )
    )
    ( T (alert (strcat "\nCannot find the source file: " xfile)) )
  )
  (princ)
)


;;;Close the document
(defun Word-Quit ()
  (cond
    ( (not (vlax-object-released-p appsession))
      (vlax-invoke-method appsession 'QUIT)
      (vlax-release-object appsession)
    )
  )
  (princ)
)


;;;import in AutoCAD
(defun c:Word2Acad ( / )
  (if (not (member "doslib16.arx" (arx)))
    (arxload "doslib16")
  )
  (setq fichier (dos_getfiled "Choose a Word document" (getvar
"dwgprefix")
                              "Documents Word (*.doc)|*.doc|Rich text
format (*.rtf)|*.rtf|Fichier Ascii (*.txt)|*.txt|Tous les
fichiers(*.*)|*.*||"))
  (if fichier
    (progn
      (if (open-word fichier "hide")
        (progn
          (setq Selection (vlax-get-property appsession 'selection))
          (setq TheDocument (vlax-get-property Selection 'document))
          (setq Sentences (vlax-get-property TheDocument 'sentences))
          (setq string nil)
          (vlax-for for-item
                    Sentences
            (if (= (vlax-get-property for-item 'Underline) 1)
              (setq string (append string (list (strcat "{\\L"
(vlax-get-property for-item 'text)))))
              (setq string (append string (list (vlax-get-property
for-item 'text))))
            )
          )
          (setq cont 0)
          (repeat (length string1)
            (setq string (subst (substr (nth cont string) 1 (- (strlen
(nth cont string)) 1)) (nth cont string) string))
            (if (dos_strreversefind (nth cont string) "\r")
              (setq string (subst (dos_strreplace (nth cont string)
"\r" "\\P") (nth cont string) string))
            )
            (if (= (substr (nth cont string) 1 1) "{")
              (setq string (subst (strcat (nth cont string) "}") (nth cont
string) string))
            )
            (setq cont (+ 1 cont))
          )
          (setq largeur (* 70 (getvar "textsize")))
          (setq p1 (getpoint "\nUpper left corner of text:"))
          (command "_-mtext" p1 "_w" largeur )
          (setq cont 0)
          (repeat (length string)
            (command (nth cont string))
            (setq cont (+ 1 cont))
          )
          (command "")
          (Word-Quit)
        )
      )
    )
  )
  (princ)
)

[It's Alive!]

have a look at this page too http://www.theswamp.org/swamp.files/xml-api/index.html

[dussla]

ok thank you good relpy ~~