(setq ssblock (ssget))
(setq selblock (vlax-ename->vla-object (ssname ssblock 0)))


(setq atributes (vla-getattributes selblock))
(setq atributesSA (variant-value atributes))
(setq atributesL (safearray-value atributesSA))
(setq wykonawca (vla-get-textstring (nth 0 atributesL)))

(print (vla-get-tagstring (nth 0 atributesL)))
(print  (vla-get-textstring (nth 0 atributesL)))

(vlax-dump-object selblock t    )

(setq Layer (vla-get-layer (nth 0 atributesL)))

(vla-put-layer selblock "fav")


(setq p1 nil)
(setq p2 nil)
(setq p3 nil)
(setq p1 (getpoint "p1:") )
(setq p2 (getpoint "p2:") )
(setq p3 (getpoint "p3:") )
(setq triangleSelection (ssget "_CP" (list p1 p2 p3)'((8 . "0"))))


(entmake
    (list
      (cons 0 "LAYER")
      (cons 100 "AcDbSymbolTableRecord")
      (cons 100 "AcDbLayerTableRecord")
      '(2 . "fav")
      '(70 . 0)
      '(62 . 25)
      '(6 . "Continuous")
      )
    )


(setq i 0)
(while (< i (sslength triangleSelection))
    (setq tmpEnt (ssname triangleSelection i))
    (setq tmpObj (vlax-ename->vla-object tmpEnt))

    (setq atributes2 (vla-getattributes tmpObj))

    (setq atributesSATMP (variant-value atributes2))
    (setq atributesLTMP (safearray-value atributesSATMP))

    (setq wykonawcaTMP (vla-get-textstring (nth 0 atributesLTMP)))



  (if (equal wykonawca wykonawcaTMP)
    (vla-put-layer tmpObj "fav")
    )

    ;;(vla-update tmpObj)
  (setq i (+ i 1))
)


(setvar "CLAYER" "fav")
(vla-put-layeron (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object ))) "0") :vlax-false)
(vla-put-layeron (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object ))) "bloki") :vlax-false)