Topic: retreive ename from string

[Andrea]

Hi all,..

in some existing lisp....ther is a value created in XDATA as a string like this:

Code: [Select]

"(<Entity name: c5481b5d30>)"
so I don'T know why this guy made this things,..
but now i'm trying to retreive theses entities.

I mean,...to get

Code: [Select]

<Entity name: c5481b5d30>using (car (read (... doenst work..

even more,....there is mix up with "(#<VLA-OBJECT IAcadBlockReference 000000c5483955a8)"

so maybe there is another way..that I dont know.
thank you for your help.

[kpblc]

I see only one way (too slow, too stupid): check all database and compare entity pointers to this string.

[Andrea]

this is exacly what the program do...and I can tell you how slow it is...
so that's why I want to change his method,..

the fact is that it must work in existing drawing who contain this information..
so i'm trying to find a work around..

actually I've replaced the ename and vl-name by the Handle name,....much faster with handent
but I've some issue also with this,..because handle seem can not be retreived for entities in XREF.

[roy_043]

32 bit BricsCAD:

Code: [Select]

: (setq enm (car (entsel)))
Select entity: <Entity name: 19157418>
: (setq str (vl-string-right-trim ">" (substr (vl-princ-to-string enm) 15)))
"19157418"
: (KGA_Math_Hex_To_Dec str)
420836376
: (vla-get-objectid (vlax-ename->vla-object enm))
420836376Note: enames will change between sessions. So storing them in Xdata makes little sense.

[ronjonp]

32 bit BricsCAD:

Code: [Select]

: (setq enm (car (entsel)))
Select entity: <Entity name: 19157418>
: (setq str (vl-string-right-trim ">" (substr (vl-princ-to-string enm) 15)))
"19157418"
: (KGA_Math_Hex_To_Dec str)
420836376
: (vla-get-objectid (vlax-ename->vla-object enm))
420836376Note: enames will change between sessions. So storing them in Xdata makes little sense.

Precisely .. handles make more sense.

[Andrea]

32 bit BricsCAD:

Code: [Select]

: (setq enm (car (entsel)))
Select entity: <Entity name: 19157418>
: (setq str (vl-string-right-trim ">" (substr (vl-princ-to-string enm) 15)))
"19157418"
: (KGA_Math_Hex_To_Dec str)
420836376
: (vla-get-objectid (vlax-ename->vla-object enm))
420836376Note: enames will change between sessions. So storing them in Xdata makes little sense.

is Briscad use only numeric value ad objectID ?
in autoCAD :

Code: [Select]

<Entity name: bd3fe7c660>

[roy_043]

is Briscad use only numeric value ad objectID ?

The ename is a hex value, same as AC, hence KGA_Math_Hex_To_Dec.

[Andrea]

is Briscad use only numeric value ad objectID ?

The ename is a hex value, same as AC, hence KGA_Math_Hex_To_Dec.

any chance to share  KGA_Math_Hex_To_Dec function ?
I've supposed to use LeeMac LM:Hex->Dec function who generate diffrent result.

Code: [Select]

(LM:Hex->Dec "c5481b5d30")
;3.04634e+12

[Andrea]

maybe if I can't retreive object from handle name inside an XREF,..

Code: [Select]


(setq item (car (last (nentsel))))
  ;<Entity name: bd33651530>
(setq hand (cdr (assoc 5 (entget item))))
  ;"27B"
(handent hand)
  ;nil <---- ???


[roy_043]

any chance to share  KGA_Math_Hex_To_Dec function ?

The function I have used will not work properly if the hex value exceeds the 32 bit range.
Try:

Code: [Select]

(rtos (LM:Hex->Dec "c5481b5d30") 2 0)
FWIW my function:

Code: [Select]

; (KGA_Math_Hex_To_Dec "7FFFFFFF") => 2147483647
; (KGA_Math_Hex_To_Dec "37CD")     => 14285
; (KGA_Math_Hex_To_Dec "0")        => 0
(defun KGA_Math_Hex_To_Dec (str)
  (KGA_Math_Base_To_Dec str 16)
)

; (KGA_Math_Base_To_Dec "11111111" 2) => 255
; (KGA_Math_Base_To_Dec "37cd" 16)    => 14285
(defun KGA_Math_Base_To_Dec (str base / i)
  (setq i -1)
  (fix
    (apply
      '+
      (mapcar
        '(lambda (a)
          (* (- a (cond ((<= a 57) 48) ((<= a 90) 55) (87))) (expt base (setq i (1+ i))))
        )
        (reverse (vl-string->list str))
      )
    )
  )
)

[roy_043]

maybe if I can't retreive object from handle name inside an XREF,..

The handent function only works for the current document. Try using the HandleToObject method instead.

[Andrea]

maybe if I can't retreive object from handle name inside an XREF,..

The handent function only works for the current document. Try using the HandleToObject method instead.

oh.. maybe this can help me...never use it,..

how the syntax must be ?

Code: [Select]

(vla-HandleToObject (vla-get-ActiveDocument (vlax-get-acad-object)) handle) return me :
Automation Error. Unknown handle

?

[MP]

Logic suggests you would have to open the hosting XREF as an ODBX doc, and then invoke the HandleToObject method from said doc.

i.e.

Code: [Select]

(if (eq 'vla-object (type (setq object (vl-catch-all-apply 'vla-HandleToObject (list ODBX handle)))))
    (rock_and_roll_with object)
    (sad_trombone)
)
Untested & no time to play.

[MP]

<works>

[CAB]

That's why I love this place.
The impossible just takes longer and finding the right guy.