[HolyDel]

так будет идеологически правильнее:

For all.Flora=Each Flora

    if EntityInView (all\mesh,cam)
    
        x=EntityDistance (all\mesh,cam)
        
	    If x>loddistant Then
	        HideEntity all\mesh
	        ShowEntity all\lod
	    else
	        HideEntity all\lod
	        ShowEntity all\mesh	    	
	    EndIf
	        
    else
        HideEntity all\mesh
        HideEntity all\lod
    EndIf
Next