When I go to extract DXF code info out of an AEC Window block (primarily looking for window width, height, and head ht codes) I get the following information which is very basic. is there a way to drill down further to get more data on the information I'm looking for?
(setq ed (entget ( car (entsel))))
Select object: ((-1 . <Entity name: 7fffee1c020>) (0 . "AEC_WINDOW") (330 . <Entity name: 7ffff1e09f0>) (5 . "64CA") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "A-Glaz-F1"))
Thanks,
John W
Solved! Go to Solution.
I'm glad that you're able to find the information you want in the text output. If I understand what your asking I added some variables to the routine to get the head height, height and width. This will get the numeric values from that list. Let me know if that works for you or if you need anything else from that list. I added the princ line so you could see each value. You don't need to use that for your code if you don't want it.
(defun c:info ( / ent obj HeadHeight Height Width) (setq ent (entsel "Select entity to get object data: ")) (setq obj (vlax-ename->vla-object (car ent))) (setq HeadHeight (vlax-get obj 'HeadHeight)) (setq Height (vlax-get obj 'Height)) (setq Width (vlax-get obj 'Width)) (princ (strcat "\nHeadHeight: " (vl-princ-to-string HeadHeight) "\nHeight: " (vl-princ-to-string Height) "\nWidth: " (vl-princ-to-string Width) )) (princ) )