If I understand correctly this can help:
; PrpVal wcmatch style
; (ALE_SelSet_RemoveByProperty #SSet1 'EntityTransparency "70") > = 70
; (ALE_SelSet_RemoveByProperty #SSet1 'EntityTransparency "~70") > /= 70
;
(defun ALE_SelSet_RemoveByProperty (SelSet PrpNam PrpVal / Countr EntNam EntObj)
(if SelSet
(repeat (setq Countr (sslength SelSet))
(and
(setq EntNam (ssname SelSet (setq Countr (1- Countr))) EntObj (vlax-ename->vla-object EntNam))
(vlax-property-available-p EntObj PrpNam)
(wcmatch (vlax-get EntObj PrpNam) PrpVal) ; 20210630 sostituito eq con wcmatch
(setq SelSet (ssdel EntNam SelSet))
)
)
)
SelSet
)