(defun _kpblc-property-get (obj property / res)
                           ;|
*    Ïîëó÷åíèå çíà÷åíèÿ ñâîéñòâà îáúåêòà
|;
  (vl-catch-all-apply
    (function
      (lambda ()
        (if (and obj (vlax-property-available-p (setq obj (_kpblc-conv-ent-to-vla obj)) property))
          (setq res (vlax-get-property obj property))
        ) ;_ end of if
      ) ;_ end of lambda
    ) ;_ end of function
  ) ;_ end of vl-catch-all-apply
  res
) ;_ end of defun

|

_ end of if
_ end of lambda
_ end of function
_ end of vl-catch-all-apply
_ end of defun

(defun _kpblc-property-get (obj property / res)
*    Ïîëó÷åíèå çíà÷åíèÿ ñâîéñòâà îáúåêòà
  (vl-catch-all-apply
    (function
      (lambda ()
        (if (and obj (vlax-property-available-p (setq obj (_kpblc-conv-ent-to-vla obj)) property))
          (setq res (vlax-get-property obj property))
  res
