how can i import data from xml file to autocad custom properties?

I need some lisp or vba app so that i can fill in autocad custom properties values from an xml file. I am setting up a dwt file to use fields based on that custom properties. Thanks

by custom properties i mean "dwgprops" and custom tab.

I have no idea how to import values from an xml file but below is one way to add a custom property lisp-wise:

(vla-addcustominfo (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object))) PROP_NAME PROP_VALUE)

Of course you should include some type of check to see if the custom property already exists because the above code won't work if it does.

it's a good ideea! I have litle kwnolege in lisp or vba programing but i found a vba code witch is similar in a small way to what i need.The code below to specify a drawings custom properties.

Sub SetCustomDwgProps()

'Lines below set the standard properties

ThisDrawing.SummaryInfo.Author = ThisDrawing.GetVariable("LOGINNAME")

ThisDrawing.SummaryInfo.Comments = "Comments Created by VisibleVisual"

ThisDrawing.SummaryInfo.RevisionNumber = 1

ThisDrawing.SummaryInfo.Title = "VisibleVisual Example"

ThisDrawing.SummaryInfo.Subject = "Entering Properties"

ThisDrawing.SummaryInfo.Keywords = "Example, VBA, Code"

'The lines below create custom properties

Call setCustvalue("PLATFORM", ThisDrawing.GetVariable("PLATFORM"))

Call setCustvalue("COMPUTER", Environ("ComputerName"))

Call setCustvalue("SERIAL", ThisDrawing.GetVariable("_PKSER"))

Call setCustvalue("WEBSITE", "www.visiblevisual.com")

End Sub

'Set Custom Property Value

Sub setCustvalue(key, value)

Dim custvalue As String

Set oSumm = ThisDrawing.SummaryInfo

On Error Resume Next

oSumm.GetCustomByKey key, custvalue

On Error GoTo 0

If custvalue = "" Then

oSumm.AddCustomInfo key, value

Else

oSumm.SetCustomByKey key, value

End If

End Sub

how can i edit this code to suite my needs? sorry if my english is bad!

how can i edit this code to suite my needs? sorry if my english is bad!

Try something like this

(vl-load-com)
(defun setvalue(info key value)
   (if (vl-catch-all-apply
'vla-removecustombykey
(list info key)
     )
   (vla-addcustominfo info key value)
   (progn
     (vl-catch-all-apply
'vla-removecustombykey
(list info key)
     )
     (vla-addcustominfo info key value)
   )
 )
   )
(defun C:Cust(/ adoc dwgname info user)

 (setq adoc (vla-get-activedocument (vlax-get-acad-object)))

 (setq info (vla-get-SummaryInfo adoc))
 (setq user (getvar "loginname"))
 (setq dwgname (getvar "dwgname"))

 (vl-catch-all-apply
     'vlax-put (list info 'Author user))

 (vl-catch-all-apply
     'vlax-put (list info 'Lastsavedby info user))

 (vl-catch-all-apply
     'vlax-put (list info 'Title dwgname))
 (vl-catch-all-apply
     'vlax-put (list info 'RevisionNumber "RX-100"));etc
;;customs
 (setvalue info "Key001" "Value001")
 (setvalue info "Key002" "Value002")
 (setvalue info"Key0033" "Value003");etc
 (vla-save adoc)
 (princ)
 )

Thanks for your help, but i need a code that could import those custom values "Value001", "Value002", "Value003" etc. from a cpxml file. I have multiple cpxml files, they all have the same tag's but diffrent values. All cpxml files were exported from a database. I created text fields on various titleblocks linked to custom dwg properties.

Thanks for your help, but i need a code that could import those custom values "Value001", "Value002", "Value003" etc. from a cpxml file. I have multiple cpxml files, they all have the same tag's but diffrent values. All cpxml files were exported from a database. I created text fields on various titleblocks linked to custom dwg properties.

Post your xml file as attachment to see its structure

Post your xml file as attachment to see its structure

Here is a sample of cpxmlfile sample.txt

Here is just a framework only

try to complete it by yourself

 
;;=====================================
(defun read_by_tags  (xml_doc tag / lst)
 (setq adr_elems (vlax-invoke-method
     xml_doc
     'getelementsbytagname
     tag))
 (setq leng (vlax-get-property adr_elems 'length))
 (setq cnt 0)
 (while (< cnt leng)
   (setq tmp (vlax-get-property
 (vlax-get-property
   (vlax-get-property adr_elems 'Item cnt)
   'firstchild)
 'text))
   (setq lst (cons tmp lst))
   (setq cnt (1+ cnt)))
 (cons tag (list (reverse lst)))
 )
;;=====================================
(defun C:demo(/ adr_elems info srt_elems ssp_elems xml_doc)
(vl-load-com)
(setq xml_doc (vla-getinterfaceobject  (vlax-get-acad-object)"msxml.domdocument"))

(while (not (eq :vlax-true(vlax-get-property xml_doc 'async)));wait for application accessibility
 )
(vlax-invoke-method xml_doc 'load "C:/UsedFiles/sample.cpxml")
(setq info (mapcar  (function (lambda (x)(read_by_tags xml_doc x)))
        (list "ADDRESSID"
       "SIRSUP"
       "SIRUTA");etc. <-- add all of the desired tags here
     )
     )

(if xml_doc (vlax-release-object xml_doc ))
;; --> work with 'info' here, use 'foreach' or 'mapcar' for that
 (princ)
 )

~'J'~

thanks for the help, but if you could help me to the second part of code I would appreciate. I would save many hours of work on autocad with this code running.

thanks for the help, but if you could help me to the second part of code I would appreciate. I would save many hours of work on autocad with this code running.

Sorry don't understand what you mean about 'the second part of code'

please explain me this widely

where i have to use "foreach" or "mapcar".

Okay, will be back later

where i have to use "foreach" or "mapcar".

Sorry this is a bad explanation

Try explain your goal again

You might want to use this helper:

http://translation2.paralink.com/translation.asp

~'J'~

I need some lisp or vba app so that i can fill in autocad custom properties values from an xml file. I am setting up a dwt file to use fields based on that custom properties. Thanks

LISP to edit DWGPROPS

Error when adding custom drawing property

api-xml.lsp (need registrations)

Hi!

fixo have done a great start to my whish read xml-files via Lisp. You get it "firstchild" in xml. what is if I have more childs:lol:

CutFillReport - Kopia.xml.txt

In this file I can read

(list "AeccCutFillReport"

"GeneratedTime"

"User"

"Drawing"

"VolumeSummary"

"Volume" ???

)

But the next is I want the volume results too. Sorry I have transformed your code to my wishes. Hopefully you understand that.

;;=====================================
(defun read_by_tags  (xml_doc tag / lst)
   (setq adr_elems (vlax-invoke-method xml_doc 'getelementsbytagname tag))
   (setq leng (vlax-get-property adr_elems 'length))
   (setq cnt 0)
   (while (< cnt leng)
       (setq tmp (vlax-get-property
                     (vlax-get-property
                         (vlax-get-property adr_elems 'Item cnt) 
                     'firstchild 
                     )
                 'text 
                 )
       )
       (setq lst (cons tmp lst))
       (setq cnt (1+ cnt))
       )
   (cons tag (list (reverse lst)))
   )

;;=====================================
(defun C:demo(/
;;;              adr_elems info srt_elems ssp_elems xml_doc
             )
(vl-load-com)
(setq xml_doc (vla-getinterfaceobject  (vlax-get-acad-object)"msxml.domdocument"))

(while (not (eq :vlax-true(vlax-get-property xml_doc 'async)));wait for application accessibility
 )
(vlax-invoke-method xml_doc 'load "C:/temp/CutFillReport.xml")
(setq info (mapcar  (function (lambda (x)(read_by_tags xml_doc x)))
        (list "AeccCutFillReport"
              "GeneratedTime"
              "User"
              "Drawing"
              "VolumeSummary"
              "Volume" ???
              );etc. <-- add all of the desired tags here
     )
     )
(princ info)
;;;(if xml_doc (vlax-release-object xml_doc ))
;; --> work with 'info' here, use 'foreach' or 'mapcar' for that
 (princ)
 )

Hi!

what is if I have more childs:lol:

[/code]

Try to use -- VovKa's XML Functions --

Look post #8 or read XML into list

Thank you VVA that was exactly I was looking for:D