Visual LISP, AutoLISP and General Customization

[#1]

I have a lisp that is pulling annotations from one block and assigning them as fields in another block, seems to work fine on 32bit stations but returns #### in the fields for 64bit stations.

Thanks in advance

[#2]

I have a lisp that is pulling annotations from one block and assigning them as fields in another block, seems to work fine on 32bit stations but returns #### in the fields for 64bit stations.

Thanks in advance

[#3]

Without even taking a look the problem is with the object id .

Tharwat

[#4]

Can you tell ne how to fix, I am a lisp novice.

[#5 · Accepted solution]

Add the following codes by Gile to your codes to get the ObjectID .

(defun gc:GetObjectIdString ( obj )
  (or *util* (setq *util* (vla-get-Utility (vla-get-ActiveDocument (vlax-get-acad-object)))))
  (if (vlax-method-applicable-p *util* 'GetObjectIdString)
    (vla-GetObjectIdString *util* obj :vlax-false)
    (itoa (vla-get-ObjectId obj))
  )
)

[#6 · Accepted solution]

The Code you posted has (rtos objID 2 0).  Is the object ID ever a real?  I think it's integer..

Try switching:

(setq
      obj   (vlax-ename->vla-object ent)
      objID (vla-get-objectid obj)
      str (strcat "%<\\AcObjProp Object(%<\\_ObjId "(rtos objID 2 0)">%).TextString \\f \"%tc1\">%")
    )

in your code to:

(setq
      obj   (vlax-ename->vla-object ent)
      objID (vla-get-objectid obj)
      str (strcat "%<\\AcObjProp Object(%<\\_ObjId "(itoa objID)">%).TextString \\f \"%tc1\">%")
    )

I don't have a 64bit sys to test on..

Next step would be to make the field manually on the 64 bit system and then check the string to make sure what you have in your lisp matches it I would think.

Then you may have to use a different value for 'str depending on if the system is 32 or 64 bit (if possible)

[#7]

I added both to the lisp and I am now getting the correct data returned on my fields. Thank you both so much for the help. -Jason