(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)))

(

(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")
      )
    )