(defun _kpblc-get-objectid (obj) ;|
*    Получение ObjectID независимо от версии AutoCAD
*    Параметры вызова:
  obj    ; vla-указатель на обрабатывамый объект
|;
  (cond ((vlax-property-available-p obj "objectid")
         (vla-get-objectid obj)
         )
        ((vlax-property-available-p obj "objectid32") (vla-get-objectid32 obj))
        ) ;_ end of cond
  ) ;_ end of defun