Extract extended data?

[fathihvac]

I run a company plug-ins with AutoCAD 2013. When I hover over room boundary (polyline) created by this plug-ins it shows data as the attached file.

Please how to extract these data from attached drawing with AutoCAD (with Autolisp ,visual lisp,VBA or .NET)

dwg.zip

[cwake]

Please how to extract these data from attached drawing with AutoCAD

It will depend on what you hope to get from this fathihvac, but the extended data on its own probably won't be much use to you unless you know how the plug-in interprets the data.

But you could have a play at looking at what data is attached to the entity itself using this.

(defun c:getstuff ( / ent stuff )
 (if (and (setq ent (ssname (ssget "_:S+.") 0))
          (setq stuff (cdr (assoc -3 (entget ent '("*")))))
          )
   (progn
     (textpage)
     (terpri)
     (print stuff)
     )
   )
 (princ)
 )

[Lee Mac]

@cwake: Be careful with your error trapping as (ssname nil) will error

 

@fathihvac: Here is another simple program to display all xdata associated with an entity:

(defun c:showxd ( / s )
   (if (setq s (ssget "_+.:E:S" '((-3 ("*")))))
       (foreach a (cdr (assoc -3 (entget (ssname s 0) '("*"))))
           (princ (strcat "\n\nAppID: " (car a)))
           (foreach x (cdr a) (print x))
       )
       (princ "\nObject has no xdata or no object selected.")
   )
   (princ)
)

My Entity List utility will also include xdata in its output, and there is also the Express Tools XDLIST command.

 

Lee

[fathihvac]

Thank you for all but both getstuff.lsp and showxd.lsp do not give the data shown on screen capture jpg! could try more to help.