;Object-ID ermitteln - berücksichtigt auch 64-Bit Systeme
;Q: http://discussion.autodesk.com/forums/message.jspa?messageID=6172961 

(defun Get-ObjectIDx64 (obj / util)
  (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type obj) 'ENAME)
    (setq obj (vlax-ename->vla-object obj))
  )
  (if (= (type obj) 'VLA-OBJECT)
    (if (> (vl-string-search "x64" (getvar "platform")) 0)
      (vlax-invoke-method util "GetObjectIdString" obj :vlax-False)
      (rtos (vla-get-objectid obj) 2 0)
    )
  )
)

(vl-load-com)





(defun c:test ()
  
  (setq  lin (car (entsel "\nLinie auswählen: "))
         blk (car (nentsel "\nAttribut auswählen: "))
	 
	 
  )

  (setq ObjektID1 (Get-ObjectIDx64 lin)

        text (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId "
		      ObjektID1 ">%,1).Length \\f \"%lu2\">%"      
             )
  )
  
  (vla-put-TextString (vlax-ename->vla-object blk) text)

  
)