TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: DEVITG on March 14, 2008, 03:44:52 PM

Title: object data
Post by: DEVITG on March 14, 2008, 03:44:52 PM

I got a dwg , that is say that it have object-data  , maybe it is from a MAP acad

From a LW poly I got it with entget

 

Code: [Select]

((-1 . <Entity name: 7efc0a48>) (0 .
"LWPOLYLINE") (5 . "2F9") (102 . "{ACAD_XDICTIONARY") (360 . <Entity name:
7efc0a50>) (102 . "}") (330 . <Entity name: 7efbecf8>) (100 . "AcDbEntity") (67
. 0) (410 . "Model") (8 . "CurvasGA_") (100 . "AcDbPolyline") (90 . 7) (70 . 0)
(43 . 0.0) (38 . 0.0) (39 . 0.0) (10 601430.0 6.17681e+006) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 601430.0 6.17681e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
601429.0 6.17681e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 601427.0
6.17681e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 601426.0 6.17682e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 601424.0 6.17682e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 601422.0 6.17682e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0
1.0))
it is supposed the (102 . "{ACAD_XDICTIONARY") hold  a value , how can I get this value by a VL-function ?

Find attached a dwg sample

Or if there is any other object-data .?






Thanks in advance

Title: Re: object data
Post by: VovKa on March 14, 2008, 05:20:10 PM

i have acad 2004, so i can't open your drawing. but i think it's imposible to get the object data, because it is, kind of, encrypted.

Code: [Select]

(defun test (EntData)
  (if EntData
    ((lambda (f)
       (print (apply 'strcat
     (mapcar 'cdr
     (vl-remove-if-not
       '(lambda (d) (= (car d) 1004))
       (entget (cdr (assoc 360 f)))
     )
     )
      )
       )
       (test (cddr f))
     )
      (vl-member-if '(lambda (c) (= (car c) 3)) EntData)
    )
  )
)
;;;(test (entget (cdr (assoc 360 (entget (car (entsel)))))))


Title: Re: object data
Post by: DEVITG on March 14, 2008, 05:55:42 PM

Find attached in 2k4

thanks for yours efforts.

Title: Re: object data
Post by: VovKa on March 14, 2008, 06:05:32 PM

there is no Map object data in your drawing.
may be it's something else, or may be object data was lost during conversion to 2k4 format.

Title: Re: object data
Post by: DEVITG on March 14, 2008, 09:06:09 PM

ok , thanks for it